VBA：列ごとに確認し、数値に変換できる文字列は数値に変換したい

Question

実現したいこと

列ごとに文字列と数値が混在しています。（同じ列に混在している事はないです。また最大で20列までとなります。）
ですが、書式上は数値も文字列として出力されてしまいます。
※セルの左上に緑のマークと該当セルを選択時に感嘆符が表示され『数値が文字列として保存されています』と表示される

それを数値に変換したいです。
ただし、他文字列はそのままでお願いします。

・シートイメージ

https://www.tipsfound.com/vba/04004#:~:text=i)%20%27%201.5-,CInt%20%E9%96%A2%E6%95%B0,-%E3%81%93%E3%81%AE%E6%96%B9%E6%B3%95%E3%81%AF
上記を参考にしたのですが、自身で対応できずご教授いただければ幸いです。

該当のソースコード

Dim s As String
  s = "123あいう"

Dim i As Integer

  If IsNumeric(s) = True Then ' 変換できるときだけ数値にする
    i = CInt(s)
  Else
    i = 0
  End If

Debug.Print(i)

Comments

[tatsu99]

シートのレイアウトはどうなってますか。画像で提示していただけませんでしょうか。
数値はすべて整数なのでしょうか。数値に変える場合、書式設定も変えないとだめかと思います。

[退会済みユーザー]

ご確認ありがとうございます。
画像を追加いたしました。

数値は整数となります。
※画像は規則性のある数値を入力していますが、実際は会員番号のため全て異なります。

Answer 1

下記でどうでしょう。

列ごとに、区切り位置の機能で数値に変換して、セル書式を数値に設定。

Sub Sample()
    Dim Rng As Range
    
    For Each Rng In Cells(1, 1).CurrentRegion.Offset(1).Columns
        If IsNumeric(Rng.Cells(1)) Then
            Rng.TextToColumns Comma:=True
            Rng.NumberFormatLocal = "0_ "
        End If
    Next
End Sub

Comments

[退会済みユーザー]

ありがとうございます。
いただいた内容で問題なく対応できました。

Answer 2

これでどうでしょうか。

Sub 数値変換処理()
    Dim rng As Range
    Dim r As Range
    Set rng = Range("A1").CurrentRegion
    For Each r In rng
        If IsNumeric(r.Value) = True And r.PrefixCharacter = "'" Then
            r.Value = r.Value
        End If
    Next
End Sub

Comments

[退会済みユーザー]

こちらありがとうございます。
今後の参考にさせていただきます。

また何かあった際はよろしくお願いいたします。