こんなことが可能かわかりませんが、
毎月集計をとっているファイルがあります。
そのファイルは毎月名前がかわるのですが、(2013.05○○ファイル←毎月数がふえていきます。)
そのファイルの中にあるシートの数枚(4枚をれぞれに名前がAデータ・Bデータ・Cデータ・Dデータ)を違うファイル(調査ファイル)に値だけを貼り付けたいのです。
月末にデータが完成したら、あるボタンをおしたら2013.05○○ファイルのA・B・C・Dデータを
調査ファイルのデータa・b・c・dデータに値だけを貼り付けたいです。
対象となるのは各シート全体の数値です。
どなた様かご教授くださいませ。
よろしくお願い致します。
そのようなことができるマクロというのはあるのでしょうか。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんばんは。
集計ファイルシートのフォーマット、および、コピーされる調査ファイル側のフォーマットがわからないので、外れているかもしれませんが。
以下の前提でコードを作ってみました。
1)データ元の集計ファイル(ファイル名を"集計.xlsx"とする。)は、既に開かれているとする。
2)Aシート~Dシートのデータは、A1セルを含み、空白行・空白列で囲まれた範囲にあるとする。
3)調査シートには、同じ名前のシートを新規作成し、そこにデータをコピーする。
以下コード例です。標準モジュールにコピペして、実行させて下さい。
Sub CopySheetData()
Dim wb As Workbook
Dim tRow As Long, tCol As Long
Dim i As Integer
Dim shName As Variant
'シート名定義
shName = Array("Aシート", "Bシート", "Cシート", "Dシート")
'ターゲットブック設定
Set wb = Workbooks("OKW月別.xlsx")
Application.ScreenUpdating = False
With ThisWorkbook
'シート生成&データコピー
For i = 0 To 3
With .Worksheets.Add
.Name = shName(i)
wb.Activate
wb.Sheets(shName(i)).Activate
tRow = wb.Sheets(shName(i)).[A1].CurrentRegion.Rows.Count
tCol = wb.Sheets(shName(i)).[A1].CurrentRegion.Columns.Count
.[A1].Resize(tRow, tCol).Value = wb.Sheets(shName(i)).[A1].CurrentRegion.Value
End With
Next i
End With
Application.ScreenUpdating = True
Set wb = Nothing
End Sub
いかがでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける (再質問) 4 2022/09/14 22:51
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) VBA 毎日取得するデータを順番に反映していく方法 6 2023/08/26 16:22
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
Excelでシートの違うデータでグ...
-
複数シートからデータを拾って...
-
Excelで日付変更ごとに、自動的...
-
シート削除して同名シート追加...
-
excelの不要な行の削除ができな...
-
トランジスタの選び方
-
VBAで CTRL+HOMEの位置へ移動...
-
Excel 売上管理シートに入力し...
-
EXCEL 複数行のデータを1行にま...
-
エクセルのカメラ機能について
-
別々のシートの表をピボットテ...
-
EXCELで2つのファイルから重複...
-
EXCEL の表を一行ずつシートに...
-
エクセルで複数行のデータを1列...
-
エクセルで複数の条件を抽出し...
-
エクセル2010 別シートへのデー...
-
重いExcelファイルのことで教え...
-
Googleスプレッドシートフィル...
-
エクセル、シ-ト1とシ-ト2の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
Excelで日付変更ごとに、自動的...
-
excelの不要な行の削除ができな...
-
VBAで CTRL+HOMEの位置へ移動...
-
(VBAにて)日付でデータを抽出す...
-
EXCELで2つのファイルから重複...
-
他のシートの一番下の行データ...
-
エクセルのカメラ機能について
-
トランジスタの選び方
-
別々のシートの表をピボットテ...
-
エクセル 縦に長い表の印刷時...
-
EXCEL 複数行のデータを1行にま...
-
【エクセル」 特定のセルで条件...
-
オートフィルタで抽出したデー...
-
Excel 売上管理シートに入力し...
-
エクセル VBA VLOOKUP
-
EXCEL の表を一行ずつシートに...
おすすめ情報