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