回答編集履歴
2
変数 s が存在しないのにOffsetしようとしていたので修正
test
CHANGED
|
@@ -30,7 +30,7 @@
|
|
|
30
30
|
|
|
31
31
|
If chkVal > 1 Then
|
|
32
32
|
|
|
33
|
-
|
|
33
|
+
r.Range("B1").Offset(0, 1).Value = "重複"
|
|
34
34
|
|
|
35
35
|
End If
|
|
36
36
|
|
1
CountIfsの範囲設定を正しく行っていませんでした。失礼しました。
test
CHANGED
|
@@ -14,6 +14,10 @@
|
|
|
14
14
|
|
|
15
15
|
set rng = Range("A1:B30")
|
|
16
16
|
|
|
17
|
+
Dim arng as Range: set arng = Range("A1:A30")
|
|
18
|
+
|
|
19
|
+
Dim brng as Range: set brng = Range("B1:B30")
|
|
20
|
+
|
|
17
21
|
|
|
18
22
|
|
|
19
23
|
dim row
|
|
@@ -22,7 +26,7 @@
|
|
|
22
26
|
|
|
23
27
|
for each r in rng.rows
|
|
24
28
|
|
|
25
|
-
chkVal = Application.CountIfs(rng, r.Range("A1"),
|
|
29
|
+
chkVal = Application.CountIfs(arng, r.Range("A1"), brng, r.Range("B1"))
|
|
26
30
|
|
|
27
31
|
If chkVal > 1 Then
|
|
28
32
|
|