Excel VBA質問箱 IV

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

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


15 / 75426 ←次へ | 前へ→

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

引用なし
パスワード
   二重置換が発生し困っております。    
エクセルで、置換とSheet1という2つのシートを用意し、置換のシートにはA,Bの列に新旧のコードを置きます。    
全部で300行くらいになります。    

Sheet1のA列に旧コードを入れ、一気に新コードに置換えたいのですが、置換の新旧に同じコード番号が含まれます。    
A    B
610    712
712    822
二重の置換にならない方法をご教示いただければと思います。    
置換前と置換後で書式を変えたのですが、駄目でした。マクロ自体に問題があるのか、そもそも無理なのでしょうか。    
 
作成マクロです
Sub 科目置換()

  ' 検索条件を設定します。
  With Application.FindFormat.Font
    .Name = "MS Pゴシック"
    .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

44 hits

【81063】二重置換の防止方法 おのでら 19/8/5(月) 21:04 質問[未読]
【81064】Re:二重置換の防止方法 マナ 19/8/5(月) 21:31 発言[未読]
【81065】Re:二重置換の防止方法 おのでら 19/8/5(月) 22:18 お礼[未読]
【81066】Re:二重置換の防止方法 マナ 19/8/5(月) 22:36 発言[未読]
【81067】Re:二重置換の防止方法 おのでら 19/8/5(月) 23:23 お礼[未読]

15 / 75426 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free