|
Find(xlCellTypeConstants)
↑
意味不明です。
もう少しヘルプを読んでFindの書き方を学んでください。
>数字の"23"は選択してくれるのですが
は、
Msgbox xlCellTypeConstants
とすれば、原因がわかります。
発想も大事だけどSpecialCellsの引数は使えません。
書き方はこんなだけど、Findの引数 LookIn、LookAtは省略するとろくな事にならないと思います。
色々実験してみてください。
Dim saigocel As Range
Dim saishocel As Range
Dim SaveCel As String
Set saishocel = Range("A1")
With Range(saishocel, "A38")
'Set saigocel = .Find("*", After:=.Cells(.Cells.Count), LookIn:=xlValues, LookAt:=xlPart)
Set saigocel = .Find("*", After:=saishocel, LookIn:=xlValues, LookAt:=xlPart)
SaveCel = saigocel.Address
If Not saigocel Is Nothing Then
Do
saigocel.Select
Set saigocel = .FindNext(saigocel)
Loop Until saigocel.Address = SaveCel
End If
End With
|
|