復制並粘貼單元格值到新的單元格值，然后重復該過程

Question

我正在嘗試創建一個宏，該宏將前一個單元格的值復制/粘貼或重復到下一個空白單元格，直到一個新的單元格值，然后重復直到設置的365個單元格范圍的結尾。 下面的imgur鏈接中的示例試圖形象化我的意思，第二行是期望的結果。

http://imgur.com/uATxns8

Answer 1

除非我誤解了您，否則在Excel中使用公式很容易。 VBA可能會過大。

單元格A2中的公式為=A1 。 單元格B2中的公式只是=IF(B1="",A2,B1) ，它簡單地讀取單元格B1是否為空，則使用單元格A2中的值，否則，如果B1不為空，則使用B1中的值。 然后，只要您的參考值與圖像中的第1行相同，就可以將該公式復制到第2行中。

Answer 2

這是VBA中的解決方案。

Sub ReferAndRepeat()

Dim tempVal As String
Dim sheet As String

sheet = "Sheet1"   'Name your sheet here

    For lCol = 1 To 365
        If Sheets(sheet).Cells(1, lCol) <> "" Then
            tempVal = Sheets(sheet).Cells(1, lCol).Text
        End If

        Sheets(sheet).Cells(2, lCol) = tempVal
    Next lCol
End Sub