Próbuję znaleźć i usunąć wszystkie wiersze zawierające pogrubioną kursywę (to znaczy nagłówki) w makrze programu Excel.
Oto co mam:
Sub CLEARHEAD()
With Application.FindFormat.Font
.Bold = True
.Italic = True
End With
x = ActiveSheet.UsedRange.Rows.Count
With Range(Cells(1, 1), Cells(x, 1))
Set i = .Find(What:="*", SearchFormat:=True)
If Not i Is Nothing Then
firstAddress = i.Address
Do
i.EntireRow.Delete
Set i = .FindNext(i)
Loop While Not i Is Nothing And i.Address <> firstAddress
End If
End With
End Sub
Wygląda na to, że nic nie znajduje się w zasięgu, ale w pierwszej kolumnie jest kilka.
Odpowiedzi:
0 dla odpowiedzi № 1Ponownie uruchomiłem program Excel i makro działało poprawnie. Nie wiem, na czym polegał problem, chociaż wystąpił niewielki błąd, musiałam zastąpić .FindNext (i) przez .Find (What: = "*", SearchFormat: = True) .Również firstAddress jest bez znaczenia i powinno być usunięty, gdy makro zostanie usunięte.