-2

下の列の空白セルをデータ範囲の空でないセルに埋めるための VBA コードを探しています。

CploumnJ  ColoumnK        ColoumnL
1           10            K
1           20            L
1           30            M
Blank Cell  Blank Cell    Blank Cell
2           15            A
2           25            B
2           35            C
2           45            D
Blank Cell  Blank Cell    Blance Cell

そしてデータは続きます...毎回変数の行数まで）。

データの終わりまで、列「K」のすべての空白セルで「AAA」を更新したい (列 K のみ J と L には更新がありません)。VBAコードを投稿するのに役立つ人がいますか。

以下のコードを作成しましたが、列 B の長さを超えています。データに 20 行ある場合、保証されていない最大 350 行になります。

Sub fillbankaccount()
    Columns("K:K").Select.End(xlDown).Offset(1, 0).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.Value = "AAA"
End Sub
4

1 に答える 1

1

おそらくこのようなものですか？

Sub fillbankaccount()

    On Error Resume Next
    Range("K1:K" & Cells(Rows.Count, "B").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Value = "AAA"

End Sub
于 2013-08-16T19:45:10.133 に答える