|
>シートにデータがない場合、コピーされないのですが
>データがないシートは飛ばして、他のシートのコピーを続けたい場合はどうしたらいいのでしょうか?
えーと
今は
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
以下続く・・・
って形で、一つのシートずつ処理してったらどうですか?
|
|