我一直在尝试修补VBA片段以创建宏来执行以下操作:
我必须用“不受欢迎的”字样替换有效范围内的所有空白单元格。范围涵盖列C到L.第1行是列标题,因此它需要影响第2行到最后一个活动行。电子表格涵盖了A到U列,因此我不想一直定义到左侧或右侧。 C列没有空白单元格,因此它可用于定义活动行。所有其他列的底部都可能有一个空白行。
答案 0 :(得分:0)
我认为这可能会有所帮助,请记住更改工作表的名称。最好将宏保存在模块中
Sub macro()
Dim i As Double
Dim j As Integer
Dim ActiveRows As Double
For i = 1 To 1000000
If Sheets("Sheet1").Cells(i + 1, 3).Value <> "" Then
ActiveRows = ActiveRows + 1
Else
Exit For
End If
Next i
For i = 1 To 10
For j = 1 To ActiveRows
If Sheets("Sheet1").Cells(j + 1, i + 2) = "" Then
Sheets("Sheet1").Cells(j + 1, i + 2) = "UNREPORTED"
End If
Next j
Next i
End Sub