- 664 名前：デフォルトの名無しさん [2010/06/27(日) 01:30:22 ]
- 正規表現で置換するだけの処理なんですが上手くいきません
ご教授願います
Sub sample01()
Dim re As Object, n As Object
Dim Match As Object, Matches As Object
Dim Val As Variant '配列
Dim i As Integer 'カウンタ
Val = Worksheets("Sheet1").Range("A1:A5").Value
Set re = CreateObject("VBScript.RegExp")
For i = 1 To 5 Step 1
MsgBox "対象セルの文字列は" & "【" & Val(i, 1) & "】"
re.Pattern = "\d{1}" '検索する正規表現パターン
re.Global = True '検索範囲はグローバル
re.IgnoreCase = True '大文字・小文字を区別する
Set Matches = re.Execute(Val(i, 1))
'■HITしたらああああに置換↓ここが上手く動いてくれない■
Val(i, 1) = re.Replace(Val(i, 1), "ああああ" & i)
'Set re = Nothing
Next i
MsgBox i - 1 & "件マッチ！"
End Sub
|
 |
