VBAで転記したデータの数字を削除したい

Question

#####実現したいこと
**シート①のデータをシート②に転記するマクロを書いています。
転記後シート②のN8に入った値の数字を削除したいです。
※値を転記するところまでは出来ました。
**

######全体のコード

Dim Bsh As Worksheet

Set Bsh = Sheets(2)

'シート２のN3の数字削除
Dim Rng As Range

    For Each Rng In Selection
        If IsNumeric(Bsh.Range("N3")) And Rng.HasFormula = False Then
            Rng.ClearContents
        End If
    Next

End Sub

######ここの書き方で詰まっています

 If IsNumeric(Bsh.Range("N3")) And Rng.HasFormula = False Then
            Rng.ClearContents
        End If

何分不慣れなため、ご教授頂けますと幸いです。

Comments

[sinya0320]

数字を削除というのは、「1234_テスト」を「_テスト」にしたいという事でしょうか？

[yu-taro-]

sinya0320さん、早速のお返事ありがとうございます。
そうです。その形にしたいです。

Answer 1

先頭からの連続した数字を削除するという前提なら、Val()で数値だけを取り出し、その値をReplace()で空文字に置き換えます。

Bsh.Range("N3") = Replace(Bsh.Range("N3"), Val(Bsh.Range("N3")), "")

Comments

[yu-taro-]

ご丁寧にありがとうございます。
こんな簡単に書けるんですね。助かりました。

Answer 2

なんでSelectionを取得しているのか、その辺わからんので
単純にN3の数字を削除するだけで

Dim v As String
Dim i As Integer
Dim ret As String

v = Range("N3").Value
ret = ""

For i = 1 To Len(v)
    If Not IsNumeric(Mid(v, i, 1)) Then
        ret = ret & Mid(v, i, 1)
    End If
Next

N3の値を取得してvに入れて
vの長さ分ループして
1文字ずつ数値チェックして、数値でない場合にretに入れています。
最終的に、retに「_テスト」と格納されます。

削除。というか、数値以外を取得しているだけなので
例えば、「テスト1_結果」とか、途中の数値も「テスト_結果」と削除されます。

Comments

[yu-taro-]

助かりました。ご丁寧にありがとうございます。