Sheet1 :4桁の数字が"A"に100行まで入っている
Sheet2 :"I"にSheet1のAに入っている数字がばらばらに入っている。
"A"に8桁の数字が入っている
Sheet1を基にSheet1"A2"から最終行までを、Sheet2の"I"と照らし合わせ
同じ数字があった場合に、Sheet1"A"にSheet2"A"を書き換えたいです。
どうしても同じ値がある行に書き換えるというコードが書けないです・・・
お力を貸していただけると幸いです。
<参考資料>
自分で書いたコード
VBA
1'//使用セルの最終行を取得 2 Dim wS As Worksheet 3 Set wS = ThisWorkbook.Worksheets("Sheet1) 4 Dim ws1 As Worksheet 5 Set ws1 = ThisWorkbook.Worksheets("Sheet2") 6 Dim fin_line As Long, k 7 With ws1.UsedRange 8 fin_line = .Rows(.Rows.Count).Row 9 End With 10 For k = 2 To fin_line 11 12 If wS.Range("A" & k) = ws1.Range("I" & k) Then 13 wS.Range("A" & k).Value = ws1.Range("A" & k) 14 End If 15 DoEvents 16 Next k
これだと希望結果を出せないのは分かっておりますが、いい方法を思いつかないです・・
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/09/23 11:43
2021/09/23 12:12
2021/09/23 12:46