1150329435

2022/5/16 11:28

22回答

【VBA】文字数の範囲を指定して特定文字の削除の方法を教えてください。 A1から一行に126文字のデータが入っています。 行数は毎回変動します。

【VBA】文字数の範囲を指定して特定文字の削除の方法を教えてください。 A1から一行に126文字のデータが入っています。 行数は毎回変動します。 24文字目から126文字目までに含まれる“*”を削除したいのです。 ご教授お願いします。

補足

24文字目以降にある”*”を削除する方法はないでしょうか？

Visual Basic | Excel・146閲覧・xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0
関数は苦手

カテゴリマスター

2022/5/16 12:11

24文字目から30文字目とした一例です。 サンプルは念の為、Ａ列の置換結果をB列に転記するようにしていますが上書きしたければそこらへんは自分で変えてください。 Sub Sample() Dim i As Long Dim s(2), a As Range For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Set a = Cells(i, "A") '非置換対象 1～23文字目 s(0) = Left(a.Value, 23) '置換対象 24文字目から7文字分 s(1) = Replace(Mid(a.Value, 24, 7), "*", "") '非置換対象 31文字目以降 s(2) = Mid(a.Value, 31) '置換、結合、転記 Cells(i, "B").Value = Join(s, "") Next i End Sub アレンジはご自分で、おかわりは無しでよろしくです。

画像

ThanksImg質問者からのお礼コメント

ありがとうございました。

お礼日時：5/18 16:55

その他の回答（1件）

0
1150246010

2022/5/16 20:36

コードの実行結果の検証のため、貴方の１２６文字のサンプル作成は大変なので、126文字を20文字、24文字目を7文字目として検証してみました。 24文字目（7文字目）以降には、”*”は含まれていても１個しか含まれていないものとする。 もし、２個以上含まれる可能性があれば別途検討したいと考えます。 実行結果の検証結果は、添付図の通りです。 良ければ、コードを参照ください。 Sub 文字削除() Dim n0 As Long Dim r As Integer For n0 = 1 To Cells(Rows.Count, 1).End(xlUp).Row myText0 = Cells(n0, 1).Value For r = 1 To 14 myText1 = Right(Cells(n0, 1).Value, r) If Left(myText1, 1) = "*" Then myText2 = Right(myText1, Len(myText1) - 1) Cells(n0, 1).Value = Left(myText0, 20 - Len(myText1)) & myText2 Exit For End If Next Next End Sub １２６文字で検証を行なう場合には、コード内の数値を書き換え下さい。 １．「For r = 1 To 14」 を 「For r = 1 To 103」 に書き換えください。 ２．「Cells(n0, 1).Value = Left(myText0, 20 - Len(myText1)) & myText2」 を 「 Cells(n0, 1).Value = Left(myText0, 126 - Len(myText1)) & myText2」 に書き換えください。

画像