人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelのマクロに関する質問です。良い回答は、250ポイント差し上げます。
ブック内各シートのデータを連結したい。

※関数が入っているセルはを値のみ取得

【青森シート】
2-----青森------------------- ←セルを結合しています。
3 入金 出金 損害金
4 500 1000 300
5 800 900 100
6 650 950 200 ←平均関数
7 1300 1900 400 ←合計関数


□□□集計後のイメージ□□□□□□
【集計シート】
2-----青森------------------- ←セルを結合しています。
3 入金 出金 損害金
4 500 1000 300
5 800 900 100
6 650 950 200 ←平均関数
7 1300 1900 400 ←合計関数

------------------------------------------------------------------------------------
Private Sub CommandButton3_Click()
Dim dstRow As Long
dstRow = 3

Dim lastRow As Long
Dim i As Long

For i = 3 To Worksheets.Count
lastRow = Worksheets(i).Range("L" & Rows.Count).End(xlUp).Row
Worksheets(i).Rows(3 & ":" & lastRow).Copy _
Destination:=Worksheets(1).Rows(dstRow & ":" & (dstRow + lastRow - 2))
dstRow = dstRow + lastRow - 1
Next
End Sub
------------------------------------------------------------------------------------

●質問者: anim130M
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:as Destination Excel NeXT sub
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● きゃづみぃ
●35ポイント

提示されているソースは、貼り付け先の範囲をしている箇所と 貼り付けようとしている元の範囲が

不一致となるため エラーとなります。

たとえば 4行範囲指定したところに 5行や3行を 貼り付けようとしたら

どうしたらいいのか わからないので エラーとなるのです。



貼り付け先は 先頭の行だけ指定してあげればいいのです。

Worksheets(i).Rows(3 & ":" & lastRow).Copy _

Destination:=Worksheets(1).Rows(dstRow & ":" & (dstRow))


というように。

◎質問者からの返答

回答ありがとうございました。


2 ● Mook
●250ポイント ベストアンサー

セルの結合が無ければ、一回の処理でできそうですが、

最初に全体コピーした後で、数式を値としてコピーしています。

Private Sub CommandButton3_Click()
 Dim dstRow As Long
 dstRow = 3
 
 Dim lastRow As Long
 Dim i As Long
 
 For i = 3 To Worksheets.Count
 lastRow = Worksheets(i).Range("L" & Rows.Count).End(xlUp).Row
 Worksheets(i).Rows(3 & ":" & lastRow).Copy _
 Destination:=Worksheets(1).Rows(dstRow & ":" & (dstRow + lastRow - 2))
 
 Worksheets(i).Rows(3 & ":" & lastRow).Copy
 Worksheets(1).Rows(dstRow & ":" & (dstRow + lastRow - 2)).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
 dstRow = dstRow + lastRow - 1
 Next
End Sub
◎質問者からの返答

早急に対応いただきありがとうございました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ