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

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

1 个答案: