在工作表中查找值，然后为每一列替换不同的值

Question

如何在工作表中找到一个值，然后用每列的不同值替换 我想不出一种方法来获取非连续单元格的范围，并通过它循环值

附上前后：

Answer 1

用列索引替换字符

Sub ReplaceChar()

    Const Char As String = "a"

    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    Dim rg As Range: Set rg = ws.UsedRange
    
    Dim crg As Range, c As Long
    
    For Each crg In rg.Columns
        c = c + 1
        crg.Replace Char, c, xlWhole, , False
    Next crg
    
    MsgBox "Character replaced.", vbInformation

End Sub