Dim i As Long
For i = 1 To 5
If IsNumeric(Cells(i, 1).Value) = True Then 'IsNumericで判断
Cells(i, 2).Value = Cells(i, 1).Value + 50 '数値なら+50
'(文字ならなにもしない=空白)
End If
Next i
Sub IsNumericSapmple()
'1文字ずつ調べる
Dim n As Long
Dim myStr1 As String, myStr2 As String, Letter As String
myStr1 = "〇〇町3丁目14番地305-2" '元データ
myStr2 = "" '出力データ 最初は""(空値)にしておく
For n = 1 To Len(myStr1) 'Len関数は文字列の長さを取得します。変数nは「n文字目」
Letter = Mid(myStr1, n, 1) 'Mid関数でn番目の文字(1文字)を取出してLetterに代入
If IsNumeric(Letter) = True Then 'n文字目(Letter)が数値なら
Letter = "X" '"X"に変える
End If
myStr2 = myStr2 & Letter '上で処理したものをmyStr2に連結する
Next n
Debug.Print myStr2 'イミディエイトウインドウに出力
End Sub