回答編集履歴

1

条件分岐を追加

2019/02/27 11:30

投稿

chibr
chibr

スコア74

test CHANGED
@@ -42,35 +42,43 @@
42
42
 
43
43
  '比較元を左、比較先を右とする。
44
44
 
45
- If Cells(X, Y + i) <> Cells(Z1, Y + j) Then
45
+ If Cells(X, Y + i) = Cells(Z1, Y + j) Then
46
46
 
47
47
 
48
+
49
+ ' 比較元と比較先が同じ場合
50
+
51
+ ' 隣の列に移動
52
+
53
+ i = i + 1
54
+
55
+ j = j + 1
56
+
57
+
58
+
59
+ 'iが109になった場合は処理を抜ける
60
+
61
+ If i = 109 Then
62
+
63
+
64
+
65
+ Exit Do
66
+
67
+
68
+
69
+ End If
70
+
71
+
72
+
73
+ Else
74
+
75
+
76
+
77
+ ' 比較元と比較先が同じではない場合
48
78
 
49
79
  flg = False
50
80
 
51
81
 
52
-
53
- End If
54
-
55
-
56
-
57
- ' 隣の列に移動
58
-
59
- i = i + 1
60
-
61
- j = j + 1
62
-
63
-
64
-
65
- 'iが109になった場合は処理を抜ける
66
-
67
- If i = 109 Then
68
-
69
-
70
-
71
- Exit Do
72
-
73
-
74
82
 
75
83
  End If
76
84