| |
Ａ Ｂ Ｃ
１ １２３ ９８７ ９９９
２ ８７６
３ ５６９
４
５
６ ７８９
７
と仮にシートがあったとすると
Ａ Ｂ Ｃ
１ １２３ ９８７ ９９９
２ １２３ ８７６ ９９９
３ ５６９ ８７６ ９９９
４ ５６９ ８７６ ９９９
５ ５６９ ８７６ ９９９
６ ７８９ ８７６ ９９９
７ ７８９ ８７６ ９９９
というふうに数値が入ってるセルの下側が空白の場合のみ上の数値をコピーすると
いうマクロを作りたいです。
ここまでは本やネットで調べながらできましたが、
最終行+1行まで値がコピーされてしまいます。
最終行までにする場合はどうすればよいでしょうか？
Sub セルの自動入力()
'1. 開始行・列の取得
'2. 最終行・最終列の取得
'3. 開始列から最終列まで繰り返す
'4. 開始行+1行から最終行まで繰り返す
'5. セルの値が未入力のとき １つ上のデータをセット
'6. 次のセルへ
Dim Row1 As Long, Row2 As Long
Dim Clm1 As Long, Clm2 As Long
Dim i As Long
Dim j As Long
With Selection
Row1 = .Row
Row2 = Row1 + .Rows.Count
Clm1 = .Column
Clm2 = Clm1 + .Columns.Count - 1
End With
For i = Clm1 To Clm2
For j = Row1 To Row2
If Cells(j, i).Value = "" Then _
Cells(j, i).Value = Cells(j - 1, i).Value
Next
Next
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
