質問: 毎日、フォルダー内のエクセルファイルを1つ1つ開いて、 トータル(TOTAL:)の行を別のシートにコピペする仕事をしています。 A列 B列 C列 E列 種類 型番 個数 重量(KG) ネジ A-3511 1 10 ホルダ D-4522 1 10 ナット B-2387 1 10 TOTAL: 3 30 上記の場合、6行目にある”TOTAL:”の行のみをコピーして 別シートに貼り付ける方法をマクロでご教示お願い致します。
回答: 自身のシートのA列から`TOTAL:`のセルを探し、その行を`Sheet2`の1行目にコピーするコードです。 コピー先等は適宜修正願います。 ``` Set fo = Range("A:A").Find("TOTAL:", Range("A1")) If Not fo Is Nothing Then Range(fo.Row & ":" & fo.Row).Copy Worksheets("Sheet2").Range("1:1").PasteSpecial End If ```