| |
二重置換が発生し困っております。
エクセルで、置換とSheet1という2つのシートを用意し、置換のシートにはA,Bの列に新旧のコードを置きます。
全部で300行くらいになります。
Sheet1のA列に旧コードを入れ、一気に新コードに置換えたいのですが、置換の新旧に同じコード番号が含まれます。
A B
610 712
712 822
二重の置換にならない方法をご教示いただければと思います。
置換前と置換後で書式を変えたのですが、駄目でした。マクロ自体に問題があるのか、そもそも無理なのでしょうか。
作成マクロです
Sub 科目置換()
' 検索条件を設定します。
With Application.FindFormat.Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
End With
' 置換後の書式を設定します。
With Application.ReplaceFormat
.Clear
.Font.Name = "Arial"
.Font.Color = rgbCrimson
End With
Dim i As Long, k As Long, wS As Worksheet
Columns("A:B").Select
With Worksheets("置換")
For k = 1 To Worksheets.Count
If Worksheets(k).Name <> .Name Then
Set wS = Worksheets(k)
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
wS.Cells.Replace what:=.Cells(i, "A"), replacement:=.Cells(i, "B"), lookat:=xlWhole, ReplaceFormat:=True
Next i
End If
Next k
End With
MsgBox "完了"
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 19/8/5(月) 21:04 -
