実現したいこと
アドインするExcelをbook1とします。
作業時に使用するExcelをbook2とします。
book2のE列~G列に学科コードが記載されています。
これをbook1にある表を元にテキストの学科に置換をしたいという内容になります。
(book1のA列とbook2のE列~G列が一致していた場合、book1のC列に置換したい。)
該当のソースコード
book2に直接記述した場合は置換ができました(下記はE列のみ)が
アドインするためのbook1に記述すると置換ができなくなってしまいます。
こちら原因が分からず困っていますので、ご教授いただければ幸いです。
よろしくお願いいたします。
VBA
1Sub テキスト置換() 2 3 Dim st1 As Worksheet 4 Dim st2 As Worksheet 5 Dim result As Range 6 Dim r As Long 7 8 Set st1 = Worksheets("Sheet1") 9 Set st2 = Worksheets("Sheet2") 10 11 r = 2 12 Do While st1.Cells(r, 1).Value <> "" 13 Set result = st2.Range("A:A").Find(st1.Cells(r, 5).Value) 14 If Not result Is Nothing Then 15 st1.Cells(r, 5).Value = st2.Cells(result.Row, 3).Value 16 End If 17 r = r + 1 18 DoEvents 19 Loop 20 21End Sub 22
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2022/07/03 06:00
2022/07/03 06:20 編集
2022/07/03 06:33 編集