|
検索文字がある行を削除したいのですが、
Set FoundCell = sh.Cells.FindNext(FoundCell)
のところで、「RangeクラスのFindNextプロパティを取得できません。」
のエラーが出てしまいます。
アドバイスをお願いします。
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim FoundCell As Range
Dim FirstCell As Range
Dim Target As Range
Dim r As Integer
Set sh = Worksheets("表")
Set FoundCell = sh.Cells.Find(What:="検索文字")
If FoundCell Is Nothing Then
MsgBox "検索文字は見つかりませんでした"
Exit Sub
Else
Set FirstCell = FoundCell
Set Target = FoundCell
End If
Do
Set FoundCell = sh.Cells.FindNext(FoundCell)
r = FoundCell.Row
If FoundCell.Address = FirstCell.Address Then
Exit Do
Else
Set Target = Union(Target, FoundCell)
'FoundCellの行を削除する
sh.Rows(r).Delete
End If
Loop
End Sub
|
|