Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20039 / 76736

←次へ　｜　前へ→


	【62122】Re:複数シートをひとつのシートにまとめる

つん - 09/6/23(火) 17:41 -


	引用なし

	パスワード

>シートにデータがない場合、コピーされないのですが
>データがないシートは飛ばして、他のシートのコピーを続けたい場合はどうしたらいいのでしょうか？

えーと
今は

If WS_1.Cells(Rows.Count, 1).End(xlUp).Row > 3 Then

で、「Sheet1」が4行以上ないと、そく終了！
って形になってますよね？

If WS_1.Cells(Rows.Count, 1).End(xlUp).Row > 3 Then
　 WS_1.Rows("1:" & WS_1.Cells(Rows.Count, 1).End(xlUp).Row).Copy _
　　　　　WS_TOTAL.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If

If WS_2.Cells(Rows.Count, 1).End(xlUp).Row > 3 Then
　 WS_2.Rows("1:" & WS_1.Cells(Rows.Count, 1).End(xlUp).Row).Copy _
　　　　　WS_TOTAL.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If

以下続く・・・

って形で、一つのシートずつ処理してったらどうですか？

0 hits

▼

【62118】複数シートをひとつのシートにまとめる 初心者です 09/6/23(火) 16:39