我的工作簿 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
最佳答案
使用以下数据:
这个小宏将在第一个空单元格中放置一些东西,在下一个空单元格中放置一些不同的东西:
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
关于VBA查找空白单元格并插入文本,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29538911/