マクロ・VBAのプロシージャ作成 仕事の業務で急遽必要になり助けていただけると幸いです。

マクロ・VBAのプロシージャ作成 仕事の業務で急遽必要になり助けていただけると幸いです。 ①Book1(コピー先)のSheet1にあるラベル名をBook2(コピー元)のSheet1で検索し、Book2のSheet1のラベル名から下のデータをBook1のSheet1のラベル名の下にコピーさせる。 「ラベル名:時間(ms)、時間(sec)、トルク、E/G回転、車速、開度、開度信号、加速度」 補足1:Book2は、その都度OpenBookでファイルを選択して変更できるようにする。 補足2:Book1のラベルはA3~H3の固定だが、Book2にあるラベルはどこのセルにあるか分からないので、固定ではなく(画像はA3~H3になっているが)ファイル全体で検索して該当するラベル名の下のデータをコピーする。 ②Book1のA2セルにBook2のファイル名がコピーされる。

画像

Visual Basic31閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

実質1行のコーディングで済みますね。 Sub 一例です() Dim xTo As Range, ws2 As Worksheet Set xTo = _ Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A3:H3") Set ws2 = Workbooks("Book2.xlsx").Worksheets("Sheet1") ws2.Cells.SpecialCells(xlCellTypeConstants).AdvancedFilter _ Action:=xlFilterCopy, copyToRange:=xTo, Unique:=False End Sub

ありがとうございます。 実施してみたところコンパインエラーが発生してしまいます。 補足1:Book2は、その都度OpenBookでファイルを選択して変更できるという内容なのですが、下記の内容で作成できますでしょうか。 sub test() dim ofn as string ofn = application.getopenfilename("ブック,*.xlsx,マクロ,*.xlsm,CSV,*.csv") if ofn<>"false"then workbooks.open(ofn) end if end sub

ThanksImg質問者からのお礼コメント

ありがとうございました。 参考にさせていただきます。

お礼日時:10/26 19:33