VBA查找空白單元格並插入文本

Question

我的工作簿的A列中有數據，它們之間用空格分組。 我需要VBA查找第一個空單元格並添加文本“ Progress”，然后找到下一個空單元格並添加文本“ Plan”

下面的代碼僅將相同的文本添加到每個空白中，如何填充（如果填充）第一個空白，然后移至下一個空白並添加XXX文本，我該如何區分一次？

 Sub getnext()

lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
    If IsEmpty(Cells(i, 1)) Then
      Cells(i, 1).Value = "Progress"
      Cells(i, 1).Value = "Plan"
    End If
Next i

End Sub



 Sub FirstEmpty()
lRow = Range("A" & Rows.Count).End(xlUp).Row
Set MR = Range("A1:A" & lRow)
For Each cell In MR
If cell.Text = "" Then cell.Value = "Progress"

    Next

End Sub

Answer 1

使用以下數據：

這個小宏將在第一個空單元格中放置一些內容，在下一個空單元格中放置不同的內容：

Sub marine()
    Dim r As Range
    Set r = Intersect(ActiveSheet.UsedRange, Range("A:A")).Cells.SpecialCells(xlCellTypeBlanks)
    r(1) = "Initial"
    r(2) = "next"
End Sub

Answer 2

嘗試包含一個遞增變量，以跟蹤您進行了多少次替換。 參見以下示例：

Sub FindBlankAndFill()
    Dim cnter As Integer

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    cnter = 0

    For i = 1 To lastRow
        If IsEmpty(Cells(i, 1)) Then
            Select Case cnter
                Case 0: Cells(i, 1).Value = "Progress"
                Case 1: Cells(i, 1).Value = "Plan"
                Case Else: Cells(i, 1).Value = "Not Yet Defined"
            End Select
            cnter = cnter + 1
        End If
    Next i

End Sub