VBA カッコの内の文字列を抜き出す

1 カッコ内の文字列を抜き出すプログラムの流れ
- 1.1 カッコ内の文字列を抜き出すサンプルコード
- 1.2 共有:

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

最新記事 by taka (全て見る)

VBA　スピンボタンで日付を変更する - 2018年12月9日
【雑記】MicrosoftOfficeのアイコンが変わるらしいですよ - 2018年11月30日
ExcelとPowerPointの連携パート2【シェイプのテキストを取得する】 - 2018年11月29日
ExcelとPowerPointの連携パート１【PowerPointの起動とスライドの挿入】 - 2018年11月27日
Office365とOffice永続ライセンスの違い - 2018年11月25日

どうも、taka(@takabou63)です(^^♪

さて、Excelファイルでたまーにカッコで囲まれているデータってありませんか？

こんな感じに↓

こんな感じになっていた時って本当にめんどくさいですよね？

今回はそんなときに便利かもしれない【カッコ内の文字列を抜き出す方法】についてご紹介していきます(^^)/

カッコ内の文字列を抜き出すプログラムの流れ

今回のプログラムの流れは大きく分けて

カッコと閉じカッコがある文字の位置をInStr関数で取得
カッコがない場合の処理をしておく
1で取得した位置の間の文字をMid関数で抜き出す

の流れをとっております。カッコがない場合の処理は必要な場合でいいと思います。

カッコ内の文字列を抜き出すサンプルコード

今回はA列のデータの【()】の中にあるデータをB列に転記するプログラムです。

簡単な解説はコメントアウトにしておきますので参考にしてください！

Sub Sample()
Dim i As Long
Dim row As Long
Dim start As Long  '【(】の位置
Dim goal As Long  ' 【)】の位置
row = Cells(Rows.Count, 1).End(xlUp).row
For i = 1 To row
'①:カッコと閉じカッコがある文字の位置をInStr関数で取得
start = InStr(Cells(i, 1).Text, "(") '【(】の位置を取得
goal = InStr(Cells(i, 1).Text, ")") '【)】の位置を取得
'②:カッコがない場合の処理
If start = 0 Or goal = 0 Then 'かっこがなかった場合は処理をしない
GoTo Skip
End If
'③:①で取得した位置の間の文字をMid関数で抜き出す
Cells(i, 2).Value = Mid(Cells(i, 1).Text, start + 1, goal - start - 1)
Skip: '
Next i
End Sub

Sub Sample()

Dim i As Long

Dim row As Long

Dim start As Long '【(】の位置

Dim goal As Long ' 【)】の位置

row = Cells(Rows.Count, 1).End(xlUp).row

For i = 1 To row

'①:カッコと閉じカッコがある文字の位置をInStr関数で取得

start = InStr(Cells(i, 1).Text, "(") '【(】の位置を取得

goal = InStr(Cells(i, 1).Text, ")") '【)】の位置を取得

'②:カッコがない場合の処理

If start = 0 Or goal = 0 Then 'かっこがなかった場合は処理をしない

GoTo Skip

End If

'③:①で取得した位置の間の文字をMid関数で抜き出す

Cells(i, 2).Value = Mid(Cells(i, 1).Text, start + 1, goal - start - 1)

Skip: '

Next i

End Sub

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

VBA カッコの内の文字列を抜き出す

taka

最新記事 by taka (全て見る)

カッコ内の文字列を抜き出すプログラムの流れ

カッコ内の文字列を抜き出すサンプルコード

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

コメントを残すコメントをキャンセル

翻訳【translation】

現在のオンライン数

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

最新記事 by taka (全て見る)

カッコ内の文字列を抜き出すプログラムの流れ

カッコ内の文字列を抜き出すサンプルコード

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

共有:

コメントを残す コメントをキャンセル

RECOMMENDこちらの記事も人気です。

VBA セルの塗りつぶしで遊んでみたお話

千葉銀行の払い戻し用紙用のExcelファイルを作成しました

VBAでストップウォッチを作ってみた

VBA ユーザーフォームにPDFを表示する方法

時間で閉じるメッセージボックスを作成する方法

開いているbookの情報の取得

マクロをショートカットで実行する方法

VBA 【Escキー】で処理を中断する、無限ループからの脱出！

翻訳【translation】

現在のオンライン数

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

コメントを残すコメントをキャンセル