用特定范围内的文本替换空白单元格-Java 学习之路

-1

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

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

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

回复于 2024-05-18T16:15:52+08:00

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

1 回答

相关问题