VBAで()に囲われた文字列を抜き出して上書きしたい。

Question

初心者質問で恐縮ですが、
エクセルのB列全体にに格納された
a19970705_履歴書_ver2.0(1631_田中K）.xls

のような文字列の中から学籍番号(1631)を抜き出して上書き、もしくは別の列に格納する処理を作っており、ネットで検索などをしていますが、調べ方が悪いのか中々うまくいきません。
なにか初心者でもわかりやすいHPやサンプルを頂けたらありがたいです。

追記
学籍番号は必ず四桁でそれ以外の部分（a19970705_履歴書_ver2.0）等は不定形です。

Answer 1

B列にデータがあり、C列に学籍番号を書き出すコード例です。

学籍番号は4桁以外でも対応してます。

Sub TEST()
    Dim MaxRow As Long, i As Long
    
    With Sheets("sheet1")
        MaxRow = .Cells(.Rows.Count, 2).End(xlUp).Row

        For i = 2 To MaxRow
            .Cells(i, 3).Value = Val(Split(.Cells(i, 2).Value, "(")(1))
        Next
    
    End With
End Sub

Comments

[radames1000]

SplitでLeftかなと考えていたのですが、確かにValでいけますね。
勉強になります。ありがとうございます。

[mako1972]

拡張性がいいですね。

[tokumeikibou162]

解決できました。ありがとうございます。

Answer 2

（）の内容が4桁なのか、桁数がバラバラなのかで処理が変わります。
簡単なサンプルですが、(の位置が分かれば4桁の数字を取り出すという前提の
サンプルです。
下記のマクロを実行すると、A１セルにある値の1631をメッセージボックスで表示します。
質問は、もう少し詳しくしてください（学籍番号はかならず４桁 or 不定形 etc）。

Sub test()
Dim d As Integer
Dim dd As String

'range("A1")=a19970705_履歴書_ver2.0(1631_田中K）.xls

d = InStr(Range("A1").Value, "(")
dd = Mid(Range("A1"), d + 1, 4)

MsgBox dd

End Sub

ちょい！解決には早くて
不定形なら(と＿の間の文字を取り出すことになりますよ。

tokumeikibou162さんは、解決するのが早いんだよなー。

Comments

[tokumeikibou162]

学籍番号は四桁で合っています。そこ以外が不定形という形です。

承知しました。以後気を付けます。

早すぎました...（くぁwせdrftgyふじこlp）

[mako1972]

４桁ならなんとかなりますね。
なんかあれば、コメントしてください。

[tokumeikibou162]

承知しました。

[mako1972]

上書きだと

sub test()
for i= 2 to データ数
d = InStr(sheets("sheet1").Range("A1").Value, "(")
sheets("sheet1").range("A" & i).value = Mid(sheets("sheet1").Range("A1"), d + 1, 4)

next

end sub
みたいな感じでしょうか・・。

[tokumeikibou162]

実行した感じだとエラーですね