用特定范围内的文本替换空白单元格

时间:2015-10-07 14:38:17

标签: excel vba

我一直在尝试修补VBA片段以创建宏来执行以下操作:

我必须用“不受欢迎的”字样替换有效范围内的所有空白单元格。范围涵盖列C到L.第1行是列标题,因此它需要影响第2行到最后一个活动行。电子表格涵盖了A到U列,因此我不想一直定义到左侧或右侧。 C列没有空白单元格,因此它可用于定义活动行。所有其他列的底部都可能有一个空白行。

1 个答案:

答案 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