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

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

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

taka

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

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

『雑記』最近の私の話～ - 2019年9月26日
【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

どうも、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

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

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

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

カテゴリーで絞る

月で探す

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

taka

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

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

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

フォロー・チャンネル登録お願いします

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

Sponsored Link

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

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

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

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

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

フォロー・チャンネル登録お願いします

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

Sponsored Link

共有:

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

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

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

sheet名の一覧をダブルクリックし対象のsheetに移動させる

VBA セルをダブルクリックしたら数式をコメントする

VBAでマウスポインターの形を変える方法

VBA ランダムの数値を条件を指定して出してみよう！

VBAでGooglemapを使わずに地図を作成(Yahoo！API)

ExcelVBAでデータの完全削除をしてみた【コマンドプロンプト】

VBA 繰り返しの「For~Next」と「Do～Loop」どちらが早いのか？

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

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

VBA　セルをダブルクリックしたら数式をコメントする

VBA　ランダムの数値を条件を指定して出してみよう！