vba - 填充列中非空白单元格旁边的空白单元格

Question

我正在寻找 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

Answer 1

也许是这样的？

Sub fillbankaccount()

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

End Sub