Question

需要您的帮助以达到相同的目标，以比以下脚本更快地填充“空”值。

Sub FillEmptyCell()
  Dim rng As Range
  Dim i As Long
  Dim cell As Range
  Dim sht As Worksheet
  Set sht = ActiveWorkbook.Sheets("rawdata")
  sht.Activate
  Set rng = Range(Range("G2:G14614"), Range("G" & sht.UsedRange.Rows.Count))
  For Each cell In rng
    If cell.Value = "" Then cell.Value = "BLANKON"
  Next
End Sub

Answer 1

尝试

Sub FillEmptyCell()
    with workSheets("rawdata")
        with .range(.cells(2, "G"), .cells(.rows.count, "G").end(xlup))
            on error resume next
            .specialcells(xlcelltypeblanks) = "BLANKON"
            on error goto 0
        end with
        .Activate
    end with
End Sub

Excel VBA：快速填充或替换空白值

1 个答案: