當我運行循環宏時 Excel 崩潰

Question

Stack Overflow 上有類似的問題，但是沒有一個答案適用於我的問題，所以我正在寫一個新問題。 我正在嘗試制作一個宏，它循環遍歷列中的單元格，直到找到一個空單元格。 然后它將一些數據（例如日期）復制到該行的單元格中。 Excel 沒有給我任何錯誤，但是當我單擊按鈕運行宏時，程序崩潰了。

Sub Button1()
    Dim cell As String
    cell = "A"
    Dim cellCount As Integer
    cellCount = 8

    Dim currentDate As Date

    Dim currentCell As String
    currentCell = cell & cellCount

    Do
        If IsEmpty(currentCell) = True Then
            Worksheets("Trades").Range(currentCell).Value = currentDate
            cellCount = cellCount + 1
            currentCell = cell & cellCount
        End If
    Loop Until IsEmpty(currentCell) = True
End Sub

Answer 1

如果您只想檢查當前單元格是否為空（不包含任何內容），我建議您使用以下內容：

currentCell = vbNullString

“vbNullString”表示來自該特定單元格的值沒有返回任何字符串值。

您的另一種方法是首先找到最后一行（我想您正在嘗試在 A 列中找到最后一行）並將該值保存到變量中。 之后，您使用該值來保存日期。

Sub Button1()
Dim lastRow As Long
Dim currentDate As String

'Save current date to a string variable
currentDate = Date

'Find last row in column A and store value to variable
lastRow = Worksheets("Trades").Cells(Rows.Count, 1).End(xlUp).Row

'Save date to last row on specified column
Worksheets("Trades").Cells(lastRow, 1).Value = Date
End Sub