ＶＢＡで。

質問

お世話になります。
ややこしい質問かも知れませんが、
エクセルで、ある列（一列）に、７５００行くらい
文字が記入されており、その文字は全部で２０桁近く
あります。その文字の初めから５～７桁あとに＿アンダーパーが有、
またその後に文字や数字が１０桁くらい入っています。

やりたい事は、アンダーパーまで５～７桁ある文字だけ抜き出し
右隣の列に書き出す。
又は、今書かれてる列にアンダーパー以降の文字を
削除する。

ＶＢＡでどういう記述をすれば良いかお教え頂きたく
宜しくお願い致します。

　　　　記

○○○○○○_○○○○○○○

回答No.2

imogasi · ベストアンサー

これは普通のシート関数でも出来る課題（Find関数）。なぜまたVBAかな。
（１）VBAでも
１字１字アンダーバーを探す
（２）アンダーバーでSplit
（３）Instr関数で探す
などが考えられる
（２）（３）は
Sub test01()
d = Range("A65536").End(xlUp).Row
MsgBox d
For i = 1 To d
p = InStr(Cells(i, "A"), "_")
If p <> 0 Then
Cells(i, "B") = Mid(Cells(i, "A"), 1, p - 1)
End If
Next i
End Sub
Sub test02()
d = Range("A65536").End(xlUp).Row
MsgBox d
For i = 1 To d
p = Split(Cells(i, "A"), "_")
Cells(i, "B") = p(0)
Next i
End Sub

お礼

ありがとうございます。
大変参考になりました。

回答No.3

hotosys

こんなのはどうでしょうか？
何行あるかわかっていて数式残していいなら
Sub sample()
Range("B1:B7500").Formula = "=LEFT(A1,FIND(""_"",A1)-1)"
End Sub

行数不定で値にしたい場合は
Sub sample2()
Dim tmp() As Variant
With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Offset(0, 1)
.Formula = "=LEFT(A1,FIND(""_"",A1)-1)"
'以降2行で数式を数値化
tmp = .Value
.Value = tmp
End With
End Sub

p.s.
必ずアンダーバーがあるのか、無い場合はどうするのかがわかりませんが、必要に応じてFormulaの式を変更してください。

お礼

ありがとうございました。
参考になりました。

回答No.1

okormazd

次のユーザー定義関数でどうでしょう。
donocell:もとのデータのセル
delimit:区切り文字
banme:何番目の区切りか。

Function bunri(donocell, delimit, banme)
bunri = Split(donocell, delimit)(banme - 1)
End Function

お礼

ありがとうございます。
参考になりました。