VBA Val関数で文字列を数値に変換 型が一致しません

Question

前提・実現したいこと

CSVから取り込んだシートの内、文字列になっている数値(K:M列)をVal関数で数値に再変換したいのですが、オブジェクト変数の部分でエラーが出ます。

一方で、エラーが出ている割に途中までは処理されるのですが、下記U2のセルで処理が止まるようです。
初歩的な質問で申し訳ありませんが、対処法をご教授いただけますと幸いです。

![

発生している問題・エラーメッセージ

型が一致しません。

該当のソースコード

Option Explicit

Sub 文字列を数値変換2()

    Dim i As Long '行カウンタ
    Dim j As Long '列カウンタ
    Dim ActCell As Range
    
    Range("A2").CurrentRegion.Select
    
    For i = 0 To Selection.Rows.Count - 1
        For j = 0 To Selection.Columns.Count - 1
            Set ActCell = ActiveCell.Offset(i, j)
            **ActCell = Val(ActCell)** 'ここでエラーが出ます
        Next j
    Next i

End Sub

試したこと

https://macvba.net/val-moji-suchi
お恥ずかしながら、このページのコードをほぼそのまま使っています。

https://oshiete.goo.ne.jp/qa/7877706.html?from=recommend
ここに書かれているIf文とEnd(xlUp).Rowを組み合わせて自分なりのコードも書いてみましたが、うまく行きませんでした。

https://vbabeginner.net/error-13-correspondence-method-type-does-not-match/
対処法としてこのページを読みましたが、あまり理解できませんでした。

補足情報（FW/ツールのバージョンなど）

Windows10 64bit
Excel 2019

Comments

[Daregada]

> 文字列になっている数値(K:M列)を

と質問文に書いているのに、実際のコードはA2セルからCurrentRegionで「空白セルで囲まれた範囲」を取得して選択し、それらすべてを数値に変換しようとしています。

実際に文字列になっている列は、どこからどこまでなのでしょうか。

[hm6]

実際はK:M列以外にもいくつか文字列になっている列があるのですが、うまくK:M列のみを対象にできなかったため、やむなくCurrentRegionを使ってデータが入っているセル全体を対象にしています。

問題は解決しましたが、ご指摘を踏まえて質問内容と処理結果が矛盾しないよう今後は気を付けます。ありがとうございました。

Answer 1

U2のセルは見たところ緑のマークがついているので文字列になっていると思います。
Val関数では"0.96%"の文字列を数値に変換することはできません。

実際に選択範囲にどのような値が入るのかわからないのでなんとも言えませんが、
一案としてセルの書式を「標準」に戻してから再代入してみてはどうでしょうか？
数値変換可能なものは自動的に数値になると思います。

具体的には

ActCell = Val(ActCell)

の部分を

ActCell.NumberFormatLocal = "G/標準"
ActCell.Value = ActCell.Value

に修正します。

Comments

[hm6]

こちらで解決できました！ありがとうございます！

Answer 2

ここを修正しました。
＞Range("A2").CurrentRegion.Select＜
コード
Sub 文字列を数値変換2()

Dim i As Long '行カウンタ
Dim j As Long '列カウンタ
Dim ActCell As Range

Range("K2").CurrentRegion.Select

For i = 0 To Selection.Rows.Count - 1
    For j = 0 To Selection.Columns.Count - 1
        Set ActCell = ActiveCell.Offset(i, j)
      ActCell = Val(ActCell) 'ここでエラーが出ます
      MsgBox ActCell
    Next j
Next i

End Sub

![イメージ説明](63e80bb83db9952005817e79a0b13e9e.png)

Comments

[hm6]

コメントありがとうございます。すみません、実際はA列からデータが入っています。説明が足りず申し訳ありませんでした。

Answer 3

ワークシート関数を使う方法もありそうです。

'ActCell = Val(ActCell)
ActCell = WorksheetFunction.Value(ActCell)

Comments

[hm6]

こんな関数もあるのですね。ご教示いただきありがとうございました。