文字列内の数字を削除する｜Excel VBA

ツイート

次のサンプルは、アクティブシートのすべての使用セルについて、セル内の数字を削除します。

Sub Sample()
    Dim i As Long
    
    With ActiveSheet.UsedRange
        For i = 0 To 9
            .Replace CStr(i), ""
            .Replace StrConv(CStr(i), vbWide), ""
        Next i
    End With
End Sub