回答編集履歴
1
余計なステップがあったので削除
answer
CHANGED
|
@@ -6,7 +6,6 @@
|
|
|
6
6
|
'検索語
|
|
7
7
|
Const MYTXT As String = "23:59:58"
|
|
8
8
|
Dim firstRow As Long
|
|
9
|
-
firstRow = 1
|
|
10
9
|
|
|
11
10
|
Set c2 = ActiveSheet.Columns("F:F").Find(What:=MYTXT, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
|
|
12
11
|
If Not c2 Is Nothing Then
|