• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:マクロで( )内を抜く方法について)

マクロで( )内を抜く方法について

このQ&Aのポイント
  • エクセルマクロを使用して、セル内の( )内の値を抜き出す方法について初心者ですが質問です。
  • 具体的には、1つのセル内の( )内の値を抜き出すパターンと、行をまたいで( )がある場合に( )内の値を抜き出すパターンについて教えてください。
  • また、誰かが作成された簡単なテスト版のマクロを教えていただけると助かります。

質問者が選んだベストアンサー

  • ベストアンサー
  • ki-aaa
  • ベストアンサー率49% (105/213)
回答No.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

tk01223
質問者

お礼

完璧です。助かりました。ありがとうごさいました。

その他の回答 (1)

  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.1

・質問番号:6333915/ 作成したいマクロがあります。 そちら側に回答を付けましたが、うまくいかないようでしたら、新たにこちらに書き出します。 どうみても同じパターンのように思えました。

関連するQ&A