エクセル2003です。
マクロで以下の事を行いたいです。
セル内の文字の中で
(( )) で囲まれた文字を(( )) もろとも削除して
別の列に転記したいです。
C列に品名があり、行数は都度違います。
上から順に調べて (( )) が有ったら
(( ))もろともその間の文字を削除してD列に転記する。
(( ))が無いセルはそのまま転記。
( )の場合もあるがそれは削除対象外。
品名の文字は文字数は決まっていません。MAX数も決まっていません。
また(( ))内の文字数も決まっていません。
( は半角です。
大変あつかましくすいませんがコードそのものを教えてください。
よろしくお願いします。
例
DE-500((ABC))
↓ ((ABC))を削除
DE-500
HV-32578934-B(BOH)
↓ ( )はあるが(( ))が無いから変更無し
HV-32578934-B(BOH)
AH-57BD-645(マイクロソフト)((OKウエブ))
↓ ((OKウエブ))を削除
AH-57BD-645(マイクロソフト)
BCF-562BN-DER
↓ (( ))が無いから変更無し
BCF-562BN-DER
No.2ベストアンサー
- 回答日時:
ふつーに置換で一括削除します。
sub macro1()
range("C:C").copy range("D1")
range("D:D").replace what:="((*))", replacement:=""
end sub
No.1
- 回答日時:
こんにちは!
一例です。
(( )) で囲まれた文字列は必ず最後にあるという前提で・・・
Sheetモジュールです。
尚データはC列の1行目からあるとします。
Sub Sample1()
Dim i As Long, k As Long
For i = 1 To Cells(Rows.Count, "C").End(xlUp).Row
With Cells(i, "C")
If InStr(.Value, "((") > 0 And InStr(.Value, ("))")) > 0 Then
k = InStr(.Value, "((") - 1
.Offset(, 1) = Left(.Value, k)
Else
.Offset(, 1) = .Value
End If
End With
Next i
End Sub
こんな感じではどうでしょうか?
※ (( ))で囲まれた文字列が途中にある場合は当然コードも変わってきます。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/02/10 11:41
- Visual Basic(VBA) 指定した文字から指定した文字のスペースまでを削除するVBAの構文について 6 2022/07/24 22:20
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Visual Basic(VBA) 列を指定して値を左から5文字にそろえる 1 2022/06/10 20:28
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【Excel】特定の文字から文字までの間を削除する
Excel(エクセル)
-
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
指定した文字から指定した文字のスペースまでを削除するVBAの構文について
Visual Basic(VBA)
-
-
4
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
5
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
6
EXCELで=より左の文字を一括で削除したい
Excel(エクセル)
-
7
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
8
マクロで特定の行まで削除する方法を探しています。
Excel(エクセル)
-
9
VBAで文字列を数値に変換したい
Excel(エクセル)
-
10
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
11
エクセルでエラーが出て困っています。
Excel(エクセル)
-
12
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
13
エクセルVBA 変数への代入がうまくできない
Visual Basic(VBA)
-
14
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
15
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
16
EXCELで2つの数値のうち大きい方を採択する数式
Excel(エクセル)
-
17
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
18
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
19
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
20
B列の最終行までA列をオートフィル
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロで最終行を取得してコピ...
-
エクセルで空白行を削除する ...
-
【至急】Excel 同一人物の情報...
-
VB.net
-
VBAで特定の行と一つ上の行を削...
-
Excel VBAでオートフィルタで抽...
-
マクロにて指定の文字間の文字...
-
エクセルのデータがない行には...
-
エクセルで階層図を作る方法
-
【VBA】条件に一致しない行を削...
-
数値に見えるものはすべて数値...
-
Excelで、マウスで範囲を選択し...
-
Excel マクロ 検索結果を別シ...
-
条件に合った行を削除するマク...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
Excelのマクロでボタンを押すと...
-
エクセル ボタンに設定したマク...
-
エクセルで、「いいね」のよう...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
数値に見えるものはすべて数値...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
エクセルのデータがない行には...
-
【VBA】条件に一致しない行を削...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
列から特定の文字列検索→該当以...
-
Excel97 指定した行だけマク...
-
エクセルで階層図を作る方法
-
Excel 別ブックから該当データ...
-
VBAでの重複データに色付け
-
EXCEL VBAでA列にある空白行よ...
-
マクロにて指定の文字間の文字...
-
エクセルのVBAで指定した行数の...
-
Access2003レポート:最終ペー...
-
VBAで特定の行と一つ上の行を削...
-
各個体に対する平均値の自動計...
-
Excel マクロ 検索結果を別シ...
おすすめ情報