| |
教えてください。
収納調書シートから会計1.シートへ転記させたいです。
以下のコードだと転記自体はうまくいくのですが、会計1.シート100行目にあった合計行や、罫線がすべて消えてしまいます。
どのようにコードを変更させればよいのでしょうか？
Sub 学級費_収()
With Sheets("会計1.").Cells(Rows.Count, "A").End(xlUp)
.Offset(1, 0).Resize(3) = Sheets("収納調書").Range("G2").Value '日付
.Offset(1, 1).Resize(3) = Sheets("収納調書").Range("I3").Value '整理番号
.Offset(1, 3).Resize(3) = Sheets("収納調書").Range("I5").Value '項目
.Offset(1, 4).Resize(3) = Sheets("収納調書").Range("C19:C21").Value '内訳
.Offset(1, 5).Resize(3) = Sheets("収納調書").Range("G19:G21").Value '単価
.Offset(1, 6).Resize(3) = Sheets("収納調書").Range("I19:I21").Value '数量
.Offset(1, 7).Resize(3) = Sheets("収納調書").Range("J19:J21").Value '金額
End With
'空白がある場合
If WorksheetFunction.CountBlank(Sheets("会計1.").Range("A1").CurrentRegion.Columns(5)) > 0 Then
'空白行を削除
Sheets("会計1.").Range("A1").CurrentRegion.Columns(5).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
MsgBox "処理が完了しました。", 0, "確認"
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
