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

回答編集履歴

1

別解を追記

2019/06/02 12:10

投稿

TanakaHiroaki
TanakaHiroaki

スコア1065

answer CHANGED
@@ -17,4 +17,26 @@
17
17
  Next j
18
18
  Next i
19
19
  End Sub
20
+ ```
21
+
22
+ <別解を追記>
23
+ 行単位の重複を調査したい範囲で一度に確認する場合の記載は以下となります。
24
+ ```VBA
25
+ Sub JufukuKakunin2()
26
+ Dim i As Long, j As Long
27
+ Dim bF As Boolean
28
+ For i = 4 To 8
29
+ For j = 2 To 4
30
+ If Application.WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 4)), Cells(i, j)) > 1 Then
31
+ Cells(i, j).Interior.ColorIndex = 3
32
+ bF = True
33
+ Else
34
+ Cells(i, j).Interior.ColorIndex = 0
35
+ End If
36
+ Next j
37
+ Next i
38
+ If bF Then
39
+ MsgBox "名前が重複している箇所を赤字にしました。"
40
+ End If
41
+ End Sub
20
42
  ```