- ベストアンサー
マクロで( )内を抜く方法について
- エクセルマクロを使用して、セル内の( )内の値を抜き出す方法について初心者ですが質問です。
- 具体的には、1つのセル内の( )内の値を抜き出すパターンと、行をまたいで( )がある場合に( )内の値を抜き出すパターンについて教えてください。
- また、誰かが作成された簡単なテスト版のマクロを教えていただけると助かります。
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
実行してみてください。 Sub test() Dim 最終行 As Long Dim i As Long, j As Long, k As Long Dim 左カッコ As Long, 右カッコ As Long Dim sss As String Dim tb 最終行 = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To 最終行 sss = Range("A" & i).Value j = InStr(sss, "(") If j > 0 Then 左カッコ = 左カッコ + 1 sss = Mid$(sss, j + 1) '"("から左を"("を含めて消す k = InStr(sss, ")") If k > 0 Then 右カッコ = 右カッコ + 1 sss = Replace(sss, "は実行)", "") '"は実行)"を""に置き換え If (j + k) = 0 Then 'その行に"(",")"両方がなかったら If 左カッコ = 右カッコ Then sss = "" End If End If If sss <> "" Then Range("B" & i).Value = sss tb = Split(sss, ",") Range("C" & i).Resize(1, UBound(tb) + 1).Value = tb End If Next i End Sub
その他の回答 (1)
- Wendy02
- ベストアンサー率57% (3570/6232)
・質問番号:6333915/ 作成したいマクロがあります。 そちら側に回答を付けましたが、うまくいかないようでしたら、新たにこちらに書き出します。 どうみても同じパターンのように思えました。
お礼
完璧です。助かりました。ありがとうごさいました。