回答編集履歴

1

追記

2021/08/10 09:18

投稿

jinoji
jinoji

スコア4592

test CHANGED
@@ -5,3 +5,13 @@
5
5
  Set rng2 = .Range(.Cells(3, 1), .Cells(Finalrow, 3))
6
6
 
7
7
  ```
8
+
9
+ Vlookupは左端列がSORTされている必要があります。代わりにIndex+Matchにしてみるのはどうでしょう。
10
+
11
+ ```VBA
12
+
13
+ ws1.Cells(1, 1).Value = .Index(rng2, .Match(ws2.Cells(1, 1).Value, rng2.Columns(1), False), 3)
14
+
15
+
16
+
17
+ ```