teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

条件分岐を追加

2019/02/27 11:30

投稿

chibr
chibr

スコア74

answer CHANGED
@@ -20,23 +20,27 @@
20
20
  Do While flg
21
21
 
22
22
  '比較元を左、比較先を右とする。
23
- If Cells(X, Y + i) <> Cells(Z1, Y + j) Then
23
+ If Cells(X, Y + i) = Cells(Z1, Y + j) Then
24
24
 
25
+ ' 比較元と比較先が同じ場合
26
+ ' 隣の列に移動
27
+ i = i + 1
28
+ j = j + 1
29
+
30
+ 'iが109になった場合は処理を抜ける
31
+ If i = 109 Then
32
+
33
+ Exit Do
34
+
35
+ End If
36
+
37
+ Else
38
+
39
+ ' 比較元と比較先が同じではない場合
25
40
  flg = False
26
41
 
27
42
  End If
28
43
 
29
- ' 隣の列に移動
30
- i = i + 1
31
- j = j + 1
32
-
33
- 'iが109になった場合は処理を抜ける
34
- If i = 109 Then
35
-
36
- Exit Do
37
-
38
- End If
39
-
40
44
  Loop
41
45
  ```
42
46
  flgがfalseになった場合は全セルが一致しなかった、ということになります。