teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップVBAに関する質問配列処理をしたいが、値が入らない

編集履歴

回答編集履歴

2

修正

2021/08/09 06:11

投稿

jinoji
jinoji

スコア4592

test CHANGED
@@ -50,9 +50,9 @@
50
50
 
51
51
 
52
52
 
53
- For i = 1 To Endrow - 1 Step 1 'Sheet1のデータ最終行まで
53
+ For i = 1 To UBound(Table1, 1) Step 1 'Sheet1のデータ最終行まで
54
54
 
55
- For k = 1 To Finalrow -2 Step 1 'Sheet1とSheet2のデータがまったく同じかを確認
55
+ For k = 1 to UBound(Table2, 1) Step 1 'Sheet1とSheet2のデータがまったく同じかを確認
56
56
 
57
57
  If Table2(k, 2) = "" Then
58
58
 

1

修正

2021/08/09 06:11

投稿

jinoji
jinoji

スコア4592

test CHANGED
@@ -50,9 +50,9 @@
50
50
 
51
51
 
52
52
 
53
- For i = 2 To Endrow Step 1 'Sheet1のデータ最終行まで
53
+ For i = 1 To Endrow - 1 Step 1 'Sheet1のデータ最終行まで
54
54
 
55
- For k = 3 To Finalrow Step 1 'Sheet1とSheet2のデータがまったく同じかを確認
55
+ For k = 1 To Finalrow -2 Step 1 'Sheet1とSheet2のデータがまったく同じかを確認
56
56
 
57
57
  If Table2(k, 2) = "" Then
58
58