Excel 2007のマクロで、別のファイルの情報をコピーして貼り付ける
マクロを作成しています。
別ファイルが1つであれば下記のマクロでできました。
他に別ファイルがもう1つあり、全部で2つのファイルからそれぞれ
必要なシートから情報をコピーしたいと思います。
※各シート名は異なります。
別ファイルが2つになった場合、マクロをどのように記載すればよろしいでしょうか。
よろしくお願いいたします。
Sub Test1()
Dim myCellall As Range
Set myCellall = Sheets("すべて").Range("A1")
With Workbooks.Open("\")
With .Worksheets("すべて")
.Range(.Range("A1"), .Cells.SpecialCells(xlCellTypeLastCell)).Copy myCellall
End With
.Close False
End With
End Sub
No.1ベストアンサー
- 回答日時:
基本方針としては,1枚目を貼り付け終えたあと貼り付け先になるmyCellallの位置を更新して,あとは同じ手順を繰り返します。
どこをどのように調べたら「1枚目貼り付け後の次の貼り付け先」を決められるのか,実際のシートの姿をよく見てアイデアを考えます。
作成例:
Sub Test1r1()
Dim myCellall As Range
Set myCellall = Sheets("すべて").Range("A1")
With Workbooks.Open("\")
With .Worksheets("すべて")
.Range(.Range("A1"), .Cells.SpecialCells(xlCellTypeLastCell)).Copy myCellall
End With
.Close False
End With
’ここから追記
set mycellall = thisworkbook.worksheets("すべて").cells.specialcells(xlcelltypelastcell).offset(1).end(xltoleft)
’以下同文
With Workbooks.Open( 2冊目のブックを開く)
With .Worksheets("すべて")
.Range(.Range("A1"), .Cells.SpecialCells(xlCellTypeLastCell)).Copy myCellall
End With
.Close False
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】名前を保存する際に...
-
EXCEL VBA 指定したファイルが...
-
VBAでワークブックの名前を変数...
-
エクセル(マクロ)のファイル...
-
【マクロ】読取専用のファイル...
-
エクセルマクロで不特定なファ...
-
エクセルのシートの数を数えた...
-
vlookup関数の引数を変数で指定...
-
エクセルのxls形式からxlsx形式...
-
Excelで漢字人名が勝手に並び変...
-
エクセルのマクロについて教え...
-
エクセル 複数ファイルの一括...
-
ACCESS VBAでファイルを開くダ...
-
リンク切れチェックを行うマクロ
-
ファイルの保存場所を変えたら...
-
フォルダ内のブック全部にパス...
-
vba初心者です。 質問です。 毎...
-
複数のエクセルファイルに対し...
-
<ACCESS VBA -> EXCEL>getObjec...
-
複数のexcelファイルを一つにす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
VBAでワークブックの名前を変数...
-
フォルダ内のexcelファイルを順...
-
エクセルのxls形式からxlsx形式...
-
エクセル 複数ファイルの一括...
-
エクセルのシートの数を数えた...
-
accessフォルダを移動したらフ...
-
vlookup関数の引数を変数で指定...
-
Accessのaccdbファイルを起動で...
-
ファイルを開かずにマクロを実行
-
【Excel VBA】ファイル名が一...
-
EXCELマクロを無効にして開く方法
-
エクセル(マクロ)のファイル...
-
ACCESS VBAでファイルを開くダ...
-
Excel VBA でファイルが開かれ...
-
ファイルの保存場所を変えたら...
-
フォルダ内のブック全部にパス...
-
vba初心者です。 質問です。 毎...
-
エクセルマクロ 異なるファイ...
おすすめ情報