回答編集履歴
1
誤字の修正
answer
CHANGED
|
@@ -20,8 +20,6 @@
|
|
|
20
20
|
Dim endRow As Long
|
|
21
21
|
Dim targetRange As Range
|
|
22
22
|
|
|
23
|
-
Application.ScreenUpdating = False
|
|
24
|
-
|
|
25
23
|
Set ws = Workbooks(1).Worksheets(1)
|
|
26
24
|
endRow = ws.Cells(Rows.Count, 1).End(xlUp).Row 'ドメイン列の最終行取得
|
|
27
25
|
|
|
@@ -88,12 +86,10 @@
|
|
|
88
86
|
Next i
|
|
89
87
|
|
|
90
88
|
matchedRange.Interior.Color = RGB(242, 221, 220) '取得した範囲を一括塗りつぶし
|
|
91
|
-
|
|
92
|
-
Application.ScreenUpdating = True
|
|
93
89
|
|
|
94
90
|
endTime = Time - startTime
|
|
95
91
|
|
|
96
|
-
MsgBox UBound(domains)
|
|
92
|
+
MsgBox UBound(domains) + 1 & "個のドメインが一致しました" & vbCrLf & _
|
|
97
93
|
matchedRange.Count & "個のセルを塗りつぶしました" & vbCrLf & _
|
|
98
94
|
"所要時間：" & Second(endTime) & "秒"
|
|
99
95
|
|