![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?e8efa67)
下記コード(複数のシートの纏め)で、値のみをコピーする手法を教えて戴きたくお願いします。
Sub matome()
Dim Sh
Dim i As Integer
Dim lRow As Long, lCol As Long, lRow2 As Long
Application.ScreenUpdating = False
'----列見出しをコピーします
Worksheets(2).Range("1:1").Copy Worksheets(1).Range("A1")
'----コピーする順番にシート名を配列Shに登録します
Sh = Array("Sheet1", "Sheet2", "Sheet3")
For i = LBound(Sh) To UBound(Sh)
With Worksheets(Sh(i))
lRow = .Cells(Rows.Count, 1).End(xlUp).Row
lCol = .Cells(1, Columns.Count).End(xlToLeft).Column
If lRow >= 2 Then
lRow2 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
.Activate
.Range(Cells(2, 1), Cells(lRow, lCol)).Copy Worksheets(1).Cells(lRow2, 1)
End If
End With
Next i
Worksheets(1).Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub
No.1ベストアンサー
- 回答日時:
参考になるかわかりませんが
Sub macro2()
Dim Sh
Dim i As Integer
Dim lRow As Long, lCol As Long, lRow2 As Long
Application.ScreenUpdating = False
'----列見出しをコピーします
Worksheets(2).Range("1:1").Copy Worksheets(1).Range("A1")
'----コピーする順番にシート名を配列Shに登録します
Sh = Array("Sheet1", "Sheet2", "Sheet3")
For i = LBound(Sh) To UBound(Sh)
With Worksheets(Sh(i))
lRow = .Cells(Rows.Count, 1).End(xlUp).Row
lCol = .Range("a1").CurrentRegion.Columns.Count
If lRow >= 2 Then
lRow2 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
.Activate
.Range(Cells(2, 1), Cells(lRow, lCol)).Copy
Worksheets(1).Cells(lRow2, 1).PasteSpecial Paste:=xlPasteValues
End If
End With
Next i
Worksheets(1).Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access VBAから使用したExcelプ...
-
DataTableに入っているデータを...
-
.BATでクリップボードに複数の...
-
Ctrl + Cなど複数の入力キー...
-
Listviewに表示された文字のコ...
-
文字化け ’能’
-
EXCEL VBAで複数行のコピー(...
-
一行おきに貼り付ける 可能でし...
-
他プロジェクトのFormを自プロ...
-
Eclipseでコピーするとき行数な...
-
VBA 最終行・最終列コピー範囲...
-
Activesheet.Pasteで困っています
-
arduino unoからデータを読み出...
-
文字列の切り出し
-
テーブルのコピーについて
-
エクセルVBA 実行時エラー'...
-
ROBOCOPYをスペース付きのフォ...
-
vb2010 ビルド後のexeコピーに...
-
C++言語で、構造体のコピーは可...
-
[Unity]シーンファイルの中が消...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access VBAから使用したExcelプ...
-
C++言語で、構造体のコピーは可...
-
一行おきに貼り付ける 可能でし...
-
Activesheet.Pasteで困っています
-
DataTableに入っているデータを...
-
Ctrl + Cなど複数の入力キー...
-
マウントしたディスクにcpで、...
-
Listviewに表示された文字のコ...
-
Eclipseのコード入力時の、行コ...
-
エクセルVBA 実行時エラー'...
-
arduino unoからデータを読み出...
-
文字列の切り出し
-
ROBOCOPYをスペース付きのフォ...
-
シートに張り付けたボタンがシ...
-
ブラウザからコピペすると文字...
-
【UWSC】WEBページ内コピーした...
-
他プロジェクトのFormを自プロ...
-
バッチで当日日付で作成される...
-
jakarta poiを使用し、EXCELの...
-
.BATでクリップボードに複数の...
おすすめ情報