|
置換機能について教えてください。
EXCELの一つのセルに入力された文字列(【変換前】)を【変換後】のような文字列に変換したいです。
ですが、CC123CA01から5バイトととって”,(カンマ)”を”,CC123”に置換しても途中でCA588という文字列の集合にかわるため、どのようにプログラムを書いたらいいのか分かりません。
Cells.Replace What:=",", Replacement:=",CC123", LookAt:=xlPart, _
↑
この部分が変化します。
すごく初歩的なことかも知れませんが、お分かりになられる方は教えていただけないでしょうか?
よろしくお願いします。
【変換前】
CC123CA01,CC05,AD75,SS22,ET65,QE88,CA588EA35,EE77,OU96,LL09,RJ11
↓ ↓ ↓
【変換後】
CC123CA01,CC123CCC05,CC123CAD75,CC123CSS22,CC123CET65,CC123CQE88,CA588EA35,EE77,CA588EOU96,CA588ELL09,CA588ERJ11
◆まだ未完成なプログラムです。----------------------------------
Sub replace7() '文字列の変換
Dim LastRow As Long
Dim i As Long
Dim j As Long
Dim a As Range
Dim b As Range
'エラー時も処理を続けます
On Error Resume Next
Set a = Application.InputBox("上(左上)のセルを選択して下さい", "セルの指定", Type:=8)
'キャンセル時は終了します
If a Is Nothing Then
Exit Sub
End If
'エラー時も処理を続けます
On Error Resume Next
Set b = Application.InputBox("下(右下)のセルを選択して下さい", "セルの選択", Type:=8)
'キャンセル時は終了します
If b Is Nothing Then
Exit Sub
End If
For i = a.Row To b.Row
For j = a.Column To b.Column
Cells.Replace What:=",", Replacement:=",CC123", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next
Next
MsgBox "処理が完了しました。"
End Sub
|
|