回答編集履歴
1
誤字の修正
test
CHANGED
@@ -39,10 +39,6 @@
|
|
39
39
|
Dim endRow As Long
|
40
40
|
|
41
41
|
Dim targetRange As Range
|
42
|
-
|
43
|
-
|
44
|
-
|
45
|
-
Application.ScreenUpdating = False
|
46
42
|
|
47
43
|
|
48
44
|
|
@@ -178,17 +174,13 @@
|
|
178
174
|
|
179
175
|
matchedRange.Interior.Color = RGB(242, 221, 220) '取得した範囲を一括塗りつぶし
|
180
176
|
|
181
|
-
|
182
|
-
|
183
|
-
Application.ScreenUpdating = True
|
184
|
-
|
185
177
|
|
186
178
|
|
187
179
|
endTime = Time - startTime
|
188
180
|
|
189
181
|
|
190
182
|
|
191
|
-
MsgBox UBound(domains)
|
183
|
+
MsgBox UBound(domains) + 1 & "個のドメインが一致しました" & vbCrLf & _
|
192
184
|
|
193
185
|
matchedRange.Count & "個のセルを塗りつぶしました" & vbCrLf & _
|
194
186
|
|