EXCEL VBA-遍历一行中的单元格，如果不为空，则将单元格值复制到另一行，直到下一行不为空

Question

我正在考虑编写一些代码以将行的数据复制到下一行，直到下一行不为空。 假设第1行中的所有标题都是标题。

数据就像：

    A2 ClientA       B2 Product1       C2 Price       D2 Quantity       E2 Cost
    A3               B3                C3 Price       D3 Quantity       E3 Cost
    A4               B4                C4 Price       D4 Quantity       E4 Cost
    A5 ClientB       B5 Product2       C5 Price       D5 Quantity       E5 Cost
    A6               B6                C6 Price       D6 Quantity       E6 Cost
    A7 ClientC       B7 Product3       C7 Price       D7 Quantity       E7 Cost
    A8               B8                C8 Price       D8 Quantity       E8 Cost
    A9               B9                C9 Price       D9 Quantity       E9 Cost

A3和A4将用ClientA填充，B3和B4将用Product填充，直到下一行不为空。

我已经搜索找到类似的问题，但是我不知道该怎么写。

EXCEL VBA-遍历列中的单元格，如果不为空，则将单元格值打印到另一列中

最终结果如下：

    A2 ClientA       B2 Product1       C2 Price       D2 Quantity       E2 Cost
    A3 ClientA       B3 Product1       C3 Price       D3 Quantity       E3 Cost
    A4 ClientA       B4 Product1       C4 Price       D4 Quantity       E4 Cost
    A5 ClientB       B5 Product2       C5 Price       D5 Quantity       E5 Cost
    A6 ClientB       B6 Product2       C6 Price       D6 Quantity       E6 Cost
    A7 ClientC       B7 Product3       C7 Price       D7 Quantity       E7 Cost
    A8 ClientC       B8 Product3       C8 Price       D8 Quantity       E8 Cost
    A9 ClientC       B9 Product3       C9 Price       D9 Quantity       E9 Cost

有人知道VBA代码是什么吗？

Answer 1

如果要使用VBA，则可以使用它。

我不确定您想如何找到包含数据的最后一行，因此我提供了一个可以更改自己的变量，它对应于该行。 第一个使用Z的For循环将遍历A（1）列和B（2）列，在此循环内，我们还有另一个For遍历单元格，如果单元格值为“”，则输入最后看到的值。

Sub LoopFill()

Dim LastEntry As String, LastRow As Integer

LastRow = 25

For Z = 1 To 2
    LastEntry = ""
    For i = 1 To LastRow
        If Cells(i, Z).Value = "" Then Cells(i, Z).Value = LastEntry
        LastEntry = Cells(i, Z).Value
    Next i
Next Z

End Sub

Answer 2

这是没有VBA的另一种方法。

1. 选择空白（CTRL + G，单击“特殊”，选择“空白”，然后单击“确定”）
2. 在编辑栏中，键入=（直接位于第一个空白上方）例如：如果A2为空白，则= A1
3. 按住CTRL键，然后按Enter键将公式提交到所有空白单元格。
4. 选择范围，复制和粘贴值（如有必要）以删除公式。
5. 如果您不粘贴值，并尝试进行排序或过滤，则数据将是错误的

Answer 3

不需要VBA。

将此公式写在帮助器列中： =IF(ISBLANK(A2),F1,A2)

假定帮助程序列在F列中。将其向下拖动到数据集中，然后将值复制到原始列中。 重复B列。

Answer 4

您需要：

• SheetName：到要处理的工作表的名称

• arColumns = Array（“ A”，2，3）：将要填充的列号或字母添加到此数组

---

Sub FillRows()
    Const SheetName As String = "Sheet3"

    Dim lastRow As Long, x As Long, y
    Dim arColumns
    arColumns = Array("A", 2, 3)

    With Worksheets(SheetName)
        lastRow = .Rows(Rows.Count).End(xlUp).Row
        For x = 3 To lastRow
            For y = 0 To UBound(arColumns)
                If IsEmpty(.Cells(x, arColumns(y)).value) Then .Cells(x, arColumns(y)).value = .Cells(x - 1, arColumns(y)).value

            Next
        Next

    End With

End Sub