end-u の回答履歴

お世話になります。 Excel」のVBAで例えばオートフィルタの状態が、 ＩＦ文か何かの条件式で Range("a4").AutoFilter Field:=1, Criteria1:="=" であった時、 Range("a4").AutoFilter Field:=1 にする。 といった様にしたいのですが、どの様にコードを 書いたら良いのか分からなく、 ご教示頂きたく何卒、よろしくお願い申し上げます。

Excel2010を使っています。「何月何日に誰がどこへ行ったのか」がわかる表を作ろうとしていますが、うまく作れません。 Sheet1に以下のようなデータを作り、 　　　　　 鈴木　山田　田中 4月1日　新宿　新宿　横浜 4月2日　新宿　横浜　横浜 4月3日　新宿　渋谷　新宿 Sheet2のA1に「新宿」と入力したら、Sheet1を参照して、 新宿　　4月1日　4月2日　4月3日 鈴木　　 　1.0　　　　1.0　　　　1.0 山田　　 　1.0 田中　　　　　　　　　　　　　　　1.0 と出力されるようにしたいのです。 http://okwave.jp/qa/q5829569.html?&status=true&errcode=&msg=&qid=5829569 を参考に、 INDIRECT、SMALL、ROW等の関数を使ってやってみましたが、うまくいきません。 できれば、ピボットテーブル、関数を使って作りたいです。 無理ならば、VBAを考えています。 どなたか詳しい方がいれば教えてください。よろしくお願いします。

Excel2010を使っています。「何月何日に誰がどこへ行ったのか」がわかる表を作ろうとしていますが、うまく作れません。 Sheet1に以下のようなデータを作り、 　　　　　 鈴木　山田　田中 4月1日　新宿　新宿　横浜 4月2日　新宿　横浜　横浜 4月3日　新宿　渋谷　新宿 Sheet2のA1に「新宿」と入力したら、Sheet1を参照して、 新宿　　4月1日　4月2日　4月3日 鈴木　　 　1.0　　　　1.0　　　　1.0 山田　　 　1.0 田中　　　　　　　　　　　　　　　1.0 と出力されるようにしたいのです。 http://okwave.jp/qa/q5829569.html?&status=true&errcode=&msg=&qid=5829569 を参考に、 INDIRECT、SMALL、ROW等の関数を使ってやってみましたが、うまくいきません。 できれば、ピボットテーブル、関数を使って作りたいです。 無理ならば、VBAを考えています。 どなたか詳しい方がいれば教えてください。よろしくお願いします。

こんにちは　早速なのですが　 以下の数字の組み合わせで　合計を123,987,150　にしたいのですが （VBA などプログラミングなど詳しいかたでしたら簡単処理なのでしょうか？） 急いでいるので　もしお分かりになれば　どの組合わせにすれば良いか 教えて頂けたらと思います・・。 どうぞ宜しくお願い致します・・。 154,568 385,333 243,370 14,112 236,015 54,835 735,722 163,901 13,843 155,232 358,184 120,151,076 1,094,175 480,354 218,941 452,652 311,977

Excel２００３にて、ワークシートにActiveXのFrameを作成して、複数のオプションボタンを配置したい。 しかし、デザインモードでは配置できるのですが、デザインモードを終了すると途端にこれらのボタンは表示されません。この解決方法をご存じの方は教えて頂けませんか。VBAのUserFormのFrameの理解でいたのですが。MultiPageでも同様な現象です。

Image1.picture = LoadPicture() 上のImage1を変数にすることはできますか？ WithやActiveSheet.Shapes.Range(Array(""))なども実行しましたが 同じエラーしか出ません （オブジェクトは、このプロパティまたはメソッドをサポートしていません） 回答お願いします

・Sheet3 を Sheet2 へコピーし、Sheet2 へ改ページを挿入するマクロを作りました。 しかしこの改ページ処理 　　ws_sheet2.Cells(idx_sentou + 1, 1).PageBreak = xlManual を実行すると以下のエラーが発生します。 　　実行時エラー '1004': 　　Range クラスの PageBreak プロパティを設定できません。 不思議なことに、デバッグウィンドウを表示しＦ５で実行すると、上記のエラーは発生しません。 ・以下の条件下で発生する事が判明しています。 ＥＸＣＥＬ２０１０、他のバージョンでは試していません。 Sheet1 へ図形を貼り付け、そこへマクロはを登録し実行しています。 Sheet2 は［改ページプレビュー］です、［標準］ビューではエラーになりません。 Sheet2 の全てのセルを削除した状態でのみ発生し、１行でもセルが存在する場合には発生しません。 ※具体的には Sheet2 の "A1"セルにカーソルがある状態で、CTRL + SHIFT + END で全セルを選択後、右クリックより削除(D)でセルを削除。 ・どうかご教授の程、宜しくお願い致します。 ・マクロ Sub Macro1() Dim ws_sheet2 As Object Dim ws_sheet3 As Object Dim idx_sentou As Long '* ワークシート変数の設定 Set ws_sheet2 = Worksheets("Sheet2") Set ws_sheet3 = Worksheets("Sheet3") '* インデックスの設定 idx_sentou = 10 '* sheet2 の初期クリア ws_sheet2.Range("A1:P999").Clear '* sheet2 の改ページをクリア ws_sheet2.ResetAllPageBreaks '* sheet3 を sheet2 へコピー '* ※sheet3には書式が設定されており、その書式を sheet2 へコピーする為 ws_sheet3.Range("1:10").Copy ws_sheet2.Range("1:10").PasteSpecial Paste:=xlPasteAll '* sheet2 をクリア ws_sheet2.Cells(1, 1).Resize(9, 4).Value = "" '* sheet2 を編集 ws_sheet2.Cells(10, 1).Value = "ＸＸＸＸＸＸＸＸ" '* 改ページの挿入 ws_sheet2.Cells(idx_sentou + 1, 1).PageBreak = xlManual End Sub

http://officetanaka.net/excel/vba/tips/tips95.htm を参考に、 フォルダの一覧を取得するコードを作ってるのですが Sample4ならエラーにならずにフォルダの一覧を取得できるのですが、 フォルダ名にドットがある場合も取得されてしまうので、Sample6を使いたいのですが、 If GetAttr(buf) And vbDirectory Then の部分で、 「53ファイルが見つかりません。」 のエラーになります。 なぜでしょうか？

現在、vbsを使用してExcelピボットテーブルを自動更新する仕組みを作成しております。 更新対象のピボットテーブルですが、ODBC接続でoracle(10g)を参照しており、 ピボット更新時にパスワードの入力を求められます。 これをvbsファイル内でパスワードを渡して実行するように出来ないでしょうか？ 下記のスクリプトのみだとパスワードにnullが挿入されましたとうエラーがでて更新できません。 '1.1. ファイルコピー 'objFSO.CopyFile szWBTemplate, szWBOutput,True '2.0. ワークブック OPEN objEXCEL.Workbooks.Open szWBTemplate '2.1. エクセル画面を非表示 objEXCEL.DisplayAlerts = False objEXCEL.Visible = False objEXCEL.ScreenUpdating = False objEXCEL.Calculation = -4135 WScript.sleep(1000) objEXCEL.ScreenUpdating = True objEXCEL.Calculation = -4105 '2.2. Reflesh Pivot Tables For Each objxlSh in objEXCEL.Worksheets For Each objPvt In objxlSh.PivotTables objPvt.RefreshTable Next Next よろしくお願いいたします。

現在、vbsを使用してExcelピボットテーブルを自動更新する仕組みを作成しております。 更新対象のピボットテーブルですが、ODBC接続でoracle(10g)を参照しており、 ピボット更新時にパスワードの入力を求められます。 これをvbsファイル内でパスワードを渡して実行するように出来ないでしょうか？ 下記のスクリプトのみだとパスワードにnullが挿入されましたとうエラーがでて更新できません。 '1.1. ファイルコピー 'objFSO.CopyFile szWBTemplate, szWBOutput,True '2.0. ワークブック OPEN objEXCEL.Workbooks.Open szWBTemplate '2.1. エクセル画面を非表示 objEXCEL.DisplayAlerts = False objEXCEL.Visible = False objEXCEL.ScreenUpdating = False objEXCEL.Calculation = -4135 WScript.sleep(1000) objEXCEL.ScreenUpdating = True objEXCEL.Calculation = -4105 '2.2. Reflesh Pivot Tables For Each objxlSh in objEXCEL.Worksheets For Each objPvt In objxlSh.PivotTables objPvt.RefreshTable Next Next よろしくお願いいたします。

VBA初心者です。 イベントプロシージャ　「beforeprint」　を使用して 印刷時、不要なオートシェイプを不可視にしています。 ～～　visible = false にすると、確かに印刷時に消えてくれるのですが 印刷が終わった後も消えたままなのです。 印刷が終わったあと、オートシェイプを再可視化するには どうしたらよろしいでしょうか？？ 可視化に限らず、印刷後（もしくは印刷プレビューを閉じた後） なんらかの処理を加える方法でもかまいません。 ヒントだけでもいいので、なにとぞアドバイスの程よろしくお願いいたします！

超初心者です。 セルの値が変化したときにマクロが実行されるようなものを作りたいです。 セルに入力されているのは、”関数”です。 なので、関数の”戻り値”が変化したときにマクロを実行したいのです。 今は、戻り値が変化しても式自体が変わっていないため マクロが実行されません。 （セルの式を切り取ってもう一度貼りなおせば、マクロは実行される） ちなみに今は Private Sub Worksheet_Change(ByVal Target As Range) で書いています。 まずVBAの勉強をしろと言われてしまいそうですが＞＜； 何卒アドバイスのほどよろしくお願いいたします！

VBA初心者です、よろしくお願いします。 列Eでオートフィルタを使用可能と設定したいので、下記のようにしましたが、「シートの保護を設定」のステップを終えた後オートフィルタも使用できません。 「AllowFiltering:=True」でEXCELのオートフィルタの使用にチェックを入れた状態になると考えていましたが、思うようになりませんでした。 「シートの保護を設定」のステップがおかしいと思うのですが、わかりません。 教えてください。 ------------------------------------------------------ Private Sub Auto_Open() '一旦、シート保護を解除 ActiveSheet.Unprotect Password:="AAA" 列Hのデータを重複データを無視で列Oに抽出 セルH２は「入力規則－リスト」～列Oのデータを使用 　　・ 　　・ 　　・ ' シート保護を設定 ActiveSheet.Protect Password:="AAA", UserInterfaceOnly:=True, AllowFiltering:=True End Sub

ブックの共有を設定しているbook1.xlsというexcelファイルがあります。 ブックの共有を行なっているとだんだんデータサイズが肥大化してくるので、その対策として 【1】"book1.xls"のシート単位で全て新しい"book2.xls"にコピーする。 【2】"book1.xls"を別のフォルダへ移動。 【3】"book2.xls"の名前を"book1.xls"に変え、ブックの共有設定を行う。 ということをしています。 これらの作業を自動で行えたらと思うのですが、 タスクスケジューラー？.batファイル？VBA?など、何をどう組み合わせたらよいのかがよくわかりません。 アドバイスよろしくお願いします。

初めまして。VBA初心者です。 まずはこちらを見て下さい。 　 Sheet1 　　　　　　　　　　 　　　　Sheet2　　　　　　　　 　 　 A 　　　 B 　　　C 　　D 　　　　　　　A　　　　 B 　　　C 　　D 1 大区分 中区分 名称 　　　　　　20 大区分 中区分 名称 2　　A　　　　 a　　　 あ　　 1　　　　21　　A　　　　 a　　　あ　　　1 3　　　　　　　　　　　　い　　2　　　　22　　　　　　　　　　　 い　　　2 4　　　　　　　　　　　　う　　 3　　　　23　　　　　　　　　　　 う　　　3 5　　　　　　　　　　　　え　　4　　　　24　　　　　　　　　　　 お　　　5 6　　　　　　　　　　　　お　　5　　　　25　　　　　　　 b　　　 あ　　　1→6 7　　　　　　　 b　　　　あ　　6　　　　26　　　　　　　　 　　　い　　　2→7 8　　　　　　　　　　　　い　　7　　　　27　　　　　　　　　　　 う　　　 3→8 9　　　　　　　　　　　　う　　 8　　　　28　　　　　　　　　　　 お　　　5→10 10　　　　　　　　　　　 え　　9　　　　29　　B　　　　 a　　　 か　　　11 11　　　　　　　　　　　 お　　10　　　30　　　　　　　　　　　　き　　　12 12　　B　　　　a　　　 か　　11　　 　31　　　　　　　　　　　 け　　　14 13　　　　　　　　　　　 き　　12　　　 32　　　　　　　　　　　 こ　　　 15 14　　　　　　　　　　　 く　　 13　　　 33　　　　　　　b　　　 か　　　 11→16 15　　　　　　　　　　　 け　　14　　　 34　　　　　　　　　　　 き　　　 12→17 16　　　　　　　　　　　 こ　　 15　　　 35　　　　　　　　　　　け　　　 14→19 17　　　　　　　b　　　 か　　 16　　　 36　　　　　　　　　　　こ　　　 15→20 18　　　　　　　　　　 　き　　 17 19　　　　　　　　　　　 く　　　18 20　　　　　　　　　　　 け　　 19 21　　　　　　　　　　　 こ　　 20 元々関数を使用していたのですが、数があまりに多くなってきたため、VBAで処理できればと初めて作ってみましたが、途中で行き詰った為ご教授お願いします。 Sheet1,2にそれぞれ表があり、Sheet1が元となります。（行は1000行以上になることもあります。） それで、Sheet2の名称をSheet1の名称と比べ同じ場合、Sheet1のD列をSheet2のD列にリンクさせたいのです。 一応、色々見ながら下記のように組んでみたのですが、矢印の左側のようになってしまいます。 これを、右側のような結果にしたいのですが、なんとなく間違ってる箇所は分かるものの、どのようにしていいか分かりません。 これをどのようにしたらよろしいでしょうか？若しくは、他にやり方があれば教えて頂きたいです。 分かりづらい説明で申し訳ないですが、よろしくお願い致します。 sub test() 　Dim i As Integer,maxrow As Integer 　maxrow = Sheet2.Range("C" : Rows.Count).End(xlup).Row 　　　For i = 1 To maxrow - 19 　　　　　If Sheet1.Cells (1+i,3)=Sheet2.Cells(19+i,3) Then 　　　　　　　Sheet2.Cells(19+i,4)="=Sheet1" & Sheet1.Cells(1 + i,3).Offset(0,1).Address 　　　　　Else 　　　　　　　Sheet2.Cells(19+i,4)="=Sheet1" & Sheet1.Cells.Find(Sheet2.Cells(19+i,3))　_ 　　　　　　　　　　　　　　　　　　　　　　　.Offset(0,1).Address 　　　　　End　if 　　　Next i End sub

初めまして。VBA初心者です。 まずはこちらを見て下さい。 　 Sheet1 　　　　　　　　　　 　　　　Sheet2　　　　　　　　 　 　 A 　　　 B 　　　C 　　D 　　　　　　　A　　　　 B 　　　C 　　D 1 大区分 中区分 名称 　　　　　　20 大区分 中区分 名称 2　　A　　　　 a　　　 あ　　 1　　　　21　　A　　　　 a　　　あ　　　1 3　　　　　　　　　　　　い　　2　　　　22　　　　　　　　　　　 い　　　2 4　　　　　　　　　　　　う　　 3　　　　23　　　　　　　　　　　 う　　　3 5　　　　　　　　　　　　え　　4　　　　24　　　　　　　　　　　 お　　　5 6　　　　　　　　　　　　お　　5　　　　25　　　　　　　 b　　　 あ　　　1→6 7　　　　　　　 b　　　　あ　　6　　　　26　　　　　　　　 　　　い　　　2→7 8　　　　　　　　　　　　い　　7　　　　27　　　　　　　　　　　 う　　　 3→8 9　　　　　　　　　　　　う　　 8　　　　28　　　　　　　　　　　 お　　　5→10 10　　　　　　　　　　　 え　　9　　　　29　　B　　　　 a　　　 か　　　11 11　　　　　　　　　　　 お　　10　　　30　　　　　　　　　　　　き　　　12 12　　B　　　　a　　　 か　　11　　 　31　　　　　　　　　　　 け　　　14 13　　　　　　　　　　　 き　　12　　　 32　　　　　　　　　　　 こ　　　 15 14　　　　　　　　　　　 く　　 13　　　 33　　　　　　　b　　　 か　　　 11→16 15　　　　　　　　　　　 け　　14　　　 34　　　　　　　　　　　 き　　　 12→17 16　　　　　　　　　　　 こ　　 15　　　 35　　　　　　　　　　　け　　　 14→19 17　　　　　　　b　　　 か　　 16　　　 36　　　　　　　　　　　こ　　　 15→20 18　　　　　　　　　　 　き　　 17 19　　　　　　　　　　　 く　　　18 20　　　　　　　　　　　 け　　 19 21　　　　　　　　　　　 こ　　 20 元々関数を使用していたのですが、数があまりに多くなってきたため、VBAで処理できればと初めて作ってみましたが、途中で行き詰った為ご教授お願いします。 Sheet1,2にそれぞれ表があり、Sheet1が元となります。（行は1000行以上になることもあります。） それで、Sheet2の名称をSheet1の名称と比べ同じ場合、Sheet1のD列をSheet2のD列にリンクさせたいのです。 一応、色々見ながら下記のように組んでみたのですが、矢印の左側のようになってしまいます。 これを、右側のような結果にしたいのですが、なんとなく間違ってる箇所は分かるものの、どのようにしていいか分かりません。 これをどのようにしたらよろしいでしょうか？若しくは、他にやり方があれば教えて頂きたいです。 分かりづらい説明で申し訳ないですが、よろしくお願い致します。 sub test() 　Dim i As Integer,maxrow As Integer 　maxrow = Sheet2.Range("C" : Rows.Count).End(xlup).Row 　　　For i = 1 To maxrow - 19 　　　　　If Sheet1.Cells (1+i,3)=Sheet2.Cells(19+i,3) Then 　　　　　　　Sheet2.Cells(19+i,4)="=Sheet1" & Sheet1.Cells(1 + i,3).Offset(0,1).Address 　　　　　Else 　　　　　　　Sheet2.Cells(19+i,4)="=Sheet1" & Sheet1.Cells.Find(Sheet2.Cells(19+i,3))　_ 　　　　　　　　　　　　　　　　　　　　　　　.Offset(0,1).Address 　　　　　End　if 　　　Next i End sub

システムから抽出したCSVファイルをExcelで読み込むと同時に不要な列を削除します。 その際、セル内の改行が邪魔で行がずれてしまいます。 すでに記述したコードを生かしながら、セル内の改行を削除する方法はありますでしょうか？ 以下がコードです Private Sub CommandButton1_Click() '//Sheet7のセルをクリア Sheets("Sheet7").Cells.Clear '// Sheet7のA1にissue_export.csvを読み込み With Sheets("Sheet7").QueryTables.Add(Connection:="TEXT;C:\*****.csv", Destination:=Sheets("sheet7").Range("A1")) Dim R As Range For Each R In Sheets("Sheet7").Range("A1") R.Value = Trim(Replace(R.Value, vbCr, "")) R.Value = Trim(Replace(R.Value, vbLf, "")) Next R .Name = "test" .FieldNames = True .RowNumbers = False .Refresh BackgroundQuery:=False .RefreshPeriod = 0 .RefreshOnFileOpen = False .PreserveFormatting = True .AdjustColumnWidth = True .FillAdjacentFormulas = False .RefreshStyle = xlInsertEntireRows .SavePassword = False .SaveData = True .TextFilePromptOnRefresh = False .TextFileParseType = xlDelimited .TextFileStartRow = 1 .TextFilePlatform = 65001 .TextFilePlatform = xlWindows .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileTrailingMinusNumbers = False .TextFileColumnDataTypes = Array(9, 9, 9, 9, 2, 9, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 2, 2, 2, 9, 2, 2, 2, 2, 2, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9) .Refresh .Parent.Names(.Name).Delete .Delete End With End Sub

システムから抽出したCSVファイルをExcelで読み込むと同時に不要な列を削除します。 その際、セル内の改行が邪魔で行がずれてしまいます。 すでに記述したコードを生かしながら、セル内の改行を削除する方法はありますでしょうか？ 以下がコードです Private Sub CommandButton1_Click() '//Sheet7のセルをクリア Sheets("Sheet7").Cells.Clear '// Sheet7のA1にissue_export.csvを読み込み With Sheets("Sheet7").QueryTables.Add(Connection:="TEXT;C:\*****.csv", Destination:=Sheets("sheet7").Range("A1")) Dim R As Range For Each R In Sheets("Sheet7").Range("A1") R.Value = Trim(Replace(R.Value, vbCr, "")) R.Value = Trim(Replace(R.Value, vbLf, "")) Next R .Name = "test" .FieldNames = True .RowNumbers = False .Refresh BackgroundQuery:=False .RefreshPeriod = 0 .RefreshOnFileOpen = False .PreserveFormatting = True .AdjustColumnWidth = True .FillAdjacentFormulas = False .RefreshStyle = xlInsertEntireRows .SavePassword = False .SaveData = True .TextFilePromptOnRefresh = False .TextFileParseType = xlDelimited .TextFileStartRow = 1 .TextFilePlatform = 65001 .TextFilePlatform = xlWindows .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileTrailingMinusNumbers = False .TextFileColumnDataTypes = Array(9, 9, 9, 9, 2, 9, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 2, 2, 2, 9, 2, 2, 2, 2, 2, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9) .Refresh .Parent.Names(.Name).Delete .Delete End With End Sub

システムから抽出したCSVファイルをExcelで読み込むと同時に不要な列を削除します。 その際、セル内の改行が邪魔で行がずれてしまいます。 すでに記述したコードを生かしながら、セル内の改行を削除する方法はありますでしょうか？ 以下がコードです Private Sub CommandButton1_Click() '//Sheet7のセルをクリア Sheets("Sheet7").Cells.Clear '// Sheet7のA1にissue_export.csvを読み込み With Sheets("Sheet7").QueryTables.Add(Connection:="TEXT;C:\*****.csv", Destination:=Sheets("sheet7").Range("A1")) Dim R As Range For Each R In Sheets("Sheet7").Range("A1") R.Value = Trim(Replace(R.Value, vbCr, "")) R.Value = Trim(Replace(R.Value, vbLf, "")) Next R .Name = "test" .FieldNames = True .RowNumbers = False .Refresh BackgroundQuery:=False .RefreshPeriod = 0 .RefreshOnFileOpen = False .PreserveFormatting = True .AdjustColumnWidth = True .FillAdjacentFormulas = False .RefreshStyle = xlInsertEntireRows .SavePassword = False .SaveData = True .TextFilePromptOnRefresh = False .TextFileParseType = xlDelimited .TextFileStartRow = 1 .TextFilePlatform = 65001 .TextFilePlatform = xlWindows .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileTrailingMinusNumbers = False .TextFileColumnDataTypes = Array(9, 9, 9, 9, 2, 9, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 2, 2, 2, 9, 2, 2, 2, 2, 2, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9) .Refresh .Parent.Names(.Name).Delete .Delete End With End Sub

システムから抽出したCSVファイルをExcelで読み込むと同時に不要な列を削除します。 その際、セル内の改行が邪魔で行がずれてしまいます。 すでに記述したコードを生かしながら、セル内の改行を削除する方法はありますでしょうか？ 以下がコードです Private Sub CommandButton1_Click() '//Sheet7のセルをクリア Sheets("Sheet7").Cells.Clear '// Sheet7のA1にissue_export.csvを読み込み With Sheets("Sheet7").QueryTables.Add(Connection:="TEXT;C:\*****.csv", Destination:=Sheets("sheet7").Range("A1")) Dim R As Range For Each R In Sheets("Sheet7").Range("A1") R.Value = Trim(Replace(R.Value, vbCr, "")) R.Value = Trim(Replace(R.Value, vbLf, "")) Next R .Name = "test" .FieldNames = True .RowNumbers = False .Refresh BackgroundQuery:=False .RefreshPeriod = 0 .RefreshOnFileOpen = False .PreserveFormatting = True .AdjustColumnWidth = True .FillAdjacentFormulas = False .RefreshStyle = xlInsertEntireRows .SavePassword = False .SaveData = True .TextFilePromptOnRefresh = False .TextFileParseType = xlDelimited .TextFileStartRow = 1 .TextFilePlatform = 65001 .TextFilePlatform = xlWindows .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileTrailingMinusNumbers = False .TextFileColumnDataTypes = Array(9, 9, 9, 9, 2, 9, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 2, 2, 2, 9, 2, 2, 2, 2, 2, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9) .Refresh .Parent.Names(.Name).Delete .Delete End With End Sub