用特定范圍內的文本替換空白單元格

Question

我一直在嘗試將 VBA 片段拼湊在一起以創建一個宏來執行以下操作：

我必須用“未報告”一詞替換活動范圍內的所有空白單元格。 范圍涵蓋 C 列到 L 列。第 1 行是列標題，因此它需要影響第 2 行到最后一個活動行。 電子表格涵蓋 A 到 U 列，因此我不想一直定義到左側或右側。 C 列將沒有空白單元格，因此它對於定義活動行可能很有用。 所有其他列的底部可以有一個空白行。

Answer 1

我認為這會有所幫助，記得更改工作表的名稱。 最好將宏保存在模塊中

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