Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1323 / 76734

←次へ　｜　前へ→


	【81063】二重置換の防止方法

おのでら

- 19/8/5(月) 21:04 -


	引用なし

	パスワード

二重置換が発生し困っております。　　　　
エクセルで、置換と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

4 hits

▼

【81063】二重置換の防止方法 おのでら 19/8/5(月) 21:04