回答編集履歴
2
修正
answer
CHANGED
|
@@ -24,8 +24,8 @@
|
|
|
24
24
|
Table2 = rng2.Value 'Sheet2のデータを配列化
|
|
25
25
|
End With
|
|
26
26
|
|
|
27
|
-
For i = 1 To
|
|
27
|
+
For i = 1 To UBound(Table1, 1) Step 1 'Sheet1のデータ最終行まで
|
|
28
|
-
For k = 1
|
|
28
|
+
For k = 1 to UBound(Table2, 1) Step 1 'Sheet1とSheet2のデータがまったく同じかを確認
|
|
29
29
|
If Table2(k, 2) = "" Then
|
|
30
30
|
'Table2(k, 2)
|
|
31
31
|
ElseIf Len(Table2(k, 2)) > Len(Table1(i, 1)) Then
|
1
修正
answer
CHANGED
|
@@ -24,8 +24,8 @@
|
|
|
24
24
|
Table2 = rng2.Value 'Sheet2のデータを配列化
|
|
25
25
|
End With
|
|
26
26
|
|
|
27
|
-
For i =
|
|
27
|
+
For i = 1 To Endrow - 1 Step 1 'Sheet1のデータ最終行まで
|
|
28
|
-
For k =
|
|
28
|
+
For k = 1 To Finalrow -2 Step 1 'Sheet1とSheet2のデータがまったく同じかを確認
|
|
29
29
|
If Table2(k, 2) = "" Then
|
|
30
30
|
'Table2(k, 2)
|
|
31
31
|
ElseIf Len(Table2(k, 2)) > Len(Table1(i, 1)) Then
|