Excel VBA宏自动完成列复制上述值

Question

我有一个 Excel 文档，我想编写一个宏来完成包含单元格值的列。例如：

figure 1

在图 1 中，我在 A 列中有 value1。我想要一个视觉基本按钮，当我点击它时，它会自动用 value1 完成该列的剩余单元格，直到找到一个非空单元格。在 b 列中，我有 value3 value4 和 value5 粗体黑色。当我按下按钮时，vb 代码会自动完成具有 te 红色值的单元格。对不起我的英语，它不是我的母语。总而言之，一开始我只有黑色值，当我单击按钮时，它应该自动添加红色值。你能帮我吗？我有这个代码：

Sub split()
Dim columns  As Range, i As Long

Set columns = Selection

i = 1

For i = 1 To columns.Rows.Count
    If columns.Cells(i, 1).Value = "" Then
        columns.Cells(i, 1).Value = columns.Cells(i - 1, 1).Value
    End If
Next

结束子

它只对选定的列起作用，我希望它适用于整个工作簿。我该如何改变呢？

Answer 1

这是如何工作的？它应该比遍历一个单元格快一点，因为我们可以使用SpecialCells() 一次性选择空白单元格：

Sub copyDown()
Dim lastRow As Long, firstRow As Long, lastCol As Long, i As Long
Dim rng As Range, totalCell As Range
Dim cols As Variant

cols = Split(InputBox("What columns do you want? Use space to separate." & vbCrLf & vbCrLf & "I.e. 'A C D F'"), " ")

'Set totalCell = Range("A:A").Find(what:="SubTotal :", LookIn:=xlPart)

If Not Application.IsNA(Application.Match("SubTotal *", Range("A:A"), 0)) Then
    Set totalCell = Cells(Application.Match("SubTotal :", Range("A:A"), 0), 1)
End If

For i = LBound(cols) To UBound(cols)
    firstRow = Cells(1, cols(i)).End(xlDown).Row

    Set rng = Range(Cells(firstRow, cols(i)), Cells(totalCell.Row - 1, cols(i)))
    rng.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=r[-1]C"
    rng.Value = rng.Value
Next i

End Sub