VBA查找空白单元格并插入文本

Question

我的工作簿 A 列中有数据，它们之间用空格分组。我需要 VBA 找到第一个空单元格并添加文本“进度”然后找到下一个空单元格并添加文本“计划”

下面的代码只是在每个空白处添加相同的文本，如果填充第一个空白，我如何告诉它一次，移动到下一个空白并添加 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