前提・実現したいこと
VBAについて質問です。
以下のプログラムは
「B列にもし半角スペース,全角スペースがあれば色を付ける」 という処理をしています。
B列には英語の文字列と漢字の文字列があり、
漢字の文字列のみに処理をしたいです。
該当のソースコード
Sub test() Dim ws As Worksheet Set ws = Worksheets("Sheet1") Dim i For i = 1 To Range("B10000").End(xlUp).Row If InStr(ws.Range("B" & i), " ") > 0 Or InStr(ws.Range("B" & i), " ") > 0 Then ws.Range("B" & i).Interior.ColorIndex = 3 End If Next End Sub
試したこと
英字以外に処理をする というコードを書けばいいのかと思い、
調べたところ
VBA
1 Dim reg As New RegExp '// 正規表現クラスオブジェクト 2 3 '// 検索条件=英字以外を抽出 4 reg.Pattern = "[^a-zA-Z]"
このプログラムがでてきたのですが、これをどうIF文のなかにいれればいいのかが
わからないです。
よろしくお願いいたします。
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/09/10 09:28