いつもお世話になっております。
複数のExcelブックの可視セルのみを、別のブックの1つのシートに統合することはできるのでしょうか?
やりたいことは、始めに複数人に同一ファイルを配布し、1つのフォルダにそれを纏め、各担当者ごとでフィルタを掛けた部分(可視セル)だけを1つのブックの2シート目(1シート目はAccessにリンクさせています)に纏めたいと思っております。
ファイルは、1行目に集計・2行目に各項目があり、必要データは3行目からです。
VBA初心者の為、どなたかおわかりになる方いらっしゃいますでしょうか?
宜しくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
>やりたいことは、始めに複数人に同一ファイルを配布し、1つのフォルダにそれを纏め、各担当者ごとでフィルタを掛けた部分(可視セル)だけを1つのブックの2シート目(1シート目はAccessにリンクさせています)に纏めたい
どこからどこまでをあなたが手で準備し、どこから先をマクロにやらせたいのですか。
状況が不明なので、各ブックに内容不明のフィルタをかけて所定のフォルダに集めておく所まで、あなたが事前に準備することにします。
準備:
謎の所定のフォルダはとりあえずc:\test\とします
集めたブックはシートが1枚しか無いものとします
各ブックにはあなたがフィルタをかけた状態で、保存しておきます
マクロの仕事は、
1.c:\test\に入っているブックを1冊ずつ順繰り開き、
2.その1枚目のシートの
3.オートフィルタで絞り込まれている範囲をコピーして
4.シート2の上から順に貼り付けていく
ことにします
#といった段取りを、ご相談の状況を持ってるあなたがまず考えて下さい。
sub macro1()
dim myPath as string
dim myFile as string
mypath = "c:\test\" ’あなたの実際に合わせて正しく記入する
myfile = dir(mypath & "*.xls*")
on error resume next
do until myfile = ""
’ブックを開いてコピーする
workbooks.open mypath & myfile
activeworkbook.worksheets(1).autofilter.range.offset(1).copy _
destination:=thisworkbook.worksheets(2).range("A65536").end(xlup).offset(1)
’作業を終えたら閉じて次のブックを探す
workbooks(myfile).close false
myfile = dir()
loop
end sub
言わずもがなですが、マクロは集約ブックの標準モジュールに登録します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) 複数のExcelブックのシート1の内容を1つのExcelブックにコピー貼り付けたいのでvbaコードを 7 2023/02/10 23:20
- Excel(エクセル) エクセルの複数ブックのシートを1つまとめたい 都道府県ごとに47ブックがあり、そのシートのデータを1 5 2022/11/15 14:57
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
VBA 別ブックからコピペしたい...
-
別ブックをダイアログボックス...
-
【ExcelVBA】インデックスが有...
-
VBSでExcelのオープン確認
-
VBS Bookを閉じるコード
-
VBA コードを実行すると画面が...
-
ユーザーフォームの切り替えに...
-
複数のエクセルブックをひとつ...
-
VBA 複数のエクセルから一つの...
-
【ExcelVBA】zip圧縮されたCSV...
-
ACCESSVBA からExcelの他ブック...
-
ワイルドカード「*」を使うとう...
-
フォルダ内の全てのファイルに...
-
VBAで複数のブックを開かずに処...
-
vbaでvbaProjectのパスワード解...
-
VBAで別のブックにシートをコピ...
-
(マクロ)データをAブックからB...
-
【VBA】全シートの計算式を全て...
マンスリーランキングこのカテゴリの人気マンスリー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 シート名が一致した場合の...
おすすめ情報