| |
マクロの事で１件ご教示ください。
Sub フォルダ内のファイルを出力()
read_folder = Range("B2")
read_row = Range("C2")
read_col = Range("D2")
read_file = Dir(read_folder & "\")
Do While read_file <> ""
output_end_row = Sheets("出力").Range("A65536").End(xlUp).Row
Workbooks.Open read_folder & "\" & read_file
input_end_row = Range("A65536").End(xlUp).Row
Range(Cells(read_row, 1), Cells(input_end_row, read_col)).Copy
ThisWorkbook.Sheets("出力").Activate
Range("A" & output_end_row + 1).Select
ActiveSheet.Paste
Workbooks(read_file).Close
read_file = Dir()
Loop
End Sub
あるサイトを参考に、フォルダ内の複数のExcelファイルから、１つの集計表にデータを抽出したいと考え、上記のモジュールでマクロを作ってみました。
上記の式では、集計表の出力表に「読み込み始める行」と「読み込む列数」で関数を組んでると思われますが、
例えば、「13行目から14行目」と「K列目からAI列目」のみを読み込むようにする方法はありますでしょうか？
読み込む行と列の範囲を指定して、特定の項目だけ読み込みしたいのですが、どうしてもできませんでした。
よろしくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
