こちらのURL先に書かれているマクロを一部書き換えたいのですが、やり方がわかりません。
複数のファイル(ブック)の数値をまとめるExcelマクロ
https://www.ex-it-blog.com/Excel-macro-book#i
複数のファイルから特定のシート、特定のセルから値を取り出して一覧にするものです。
《コード転載ここから》
Sub shuukei()
'フォルダの場所を変数に入れる
Dim Folder_path As String
Folder_path = Range("f1").Value
'集計先のシートを指定し、変数に入れる
Dim w
Set w = Worksheets("売上")
'集計するブックを変数に入れる
Dim Merge_book As String
Merge_book = Dir(Folder_path & "\*.xls*")
'いったん数値をクリア
w.Range("a1", "b" & Rows.Count).Clear
'集計先のシートの1行からスタート
Dim n
n = 1
'指定したフォルダから、Excelファイルを探す
Do Until Merge_book = ""
Workbooks.Open Filename:=Folder_path & "\" & Merge_book
'見つかったら、A列にファイル名、B列に集計値を入れる
w.Range("a" &n).Value = Merge_book
w.Range("b" &n).Value = Workbooks(Merge_book).Worksheets("集計").Range("b2").Value
'次の行へ
n = n + 1
'集計するブックを閉じる
Workbooks(Merge_book).Close
'次のファイルを探しに行く
Merge_book = Dir()
Loop
End Sub
《コード転載ここまで》
こちらのコードですと集約するのはb2セルのみですが、これを例えばb2:b10セルとし、かつ行列を入れ替えて貼り付け(できることなら値貼り付け)とするには、どのように書き換えたらいいのでしょうか。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こうではないかと思います。
(間違っていたらごめんなさい)
w.Range("b" &n).Value = Workbooks(Merge_book).Worksheets("集計").Range("b2").Value
↓
w.Range("b" &n).Resize(, 9).Value = WorksheetFunction.Transpose(Workbooks(Merge_book).Worksheets("集計").Range("B2:B10").Value)
うまく動きました!!
これで死ぬほど面倒だった作業がかなりの部分自動化できます…本当にありがとうございます。
さらに自分でも少しずつコードを書き換えていまして、また行き詰まったら質問させて頂きます。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAの参照先のファイル名をセルに書いて代入したい 2 2022/04/04 13:42
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAが途中で止まります
-
VBA シートをコピーする際に Co...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
VBA 複数のエクセルから一つの...
-
VBS Bookを閉じるコード
-
VBA コードを実行すると画面が...
-
VBA 別ブックからコピペしたい...
-
ワイルドカード「*」を使うとう...
-
VBA 実行時エラー 2147024893
-
【VBA】全シートの計算式を全て...
-
VBA シート名が一致した場合の...
-
vbaでvbaProjectのパスワード解...
-
ユーザーフォームの切り替えに...
-
【困っています2】VBA 追加処...
-
別ブックをダイアログボックス...
-
VBAで別のブックにシートをコピ...
-
VBAで複数のブックを開かずに処...
-
VBAで別ブックのシートを指定し...
-
(マクロ)データをAブックからB...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
別ブックをダイアログボックス...
-
ワイルドカード「*」を使うとう...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBS Bookを閉じるコード
-
【ExcelVBA】インデックスが有...
-
VBA コードを実行すると画面が...
-
【ExcelVBA】zip圧縮されたCSV...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
ExcelのVBAです。フォルダ内の...
-
vbaで他のブックに転記したい。...
-
フォルダ内の全てのファイルに...
-
VBAで複数のブックを開かずに処...
-
VBSでExcelのオープン確認
-
VBA 実行時エラー 2147024893
-
【Excel VBA】書き込み先ブック...
-
VBA シート名が一致した場合の...
おすすめ情報