Makro zum Löschen von Inhalten einschließlich Format in einer Spalte

Question

Ich möchte Inhalt einschließlich Format in Spalte G bis zu den letzten Daten in der Spalte löschen. Hinweis Spalte G enthält auch einige leere Zellen dazwischen. Ich benutze unten Code es funktioniert gut, aber es löscht Daten aus allen Spalten. Bitte jede Hilfe wird geschätzt.

Sub ClearData() 
Range("A3", Columns("A").SpecialCells(xlCellTypeLastCell)).Clear 
MsgBox ("Data Cleared") 
End Sub 

Dank

Answer 1

Der folgende Code wird ClearContents und ClearFormats aus der Spalte "G"

Sub ClearData() 

With Range("G3:G" & Cells(Rows.Count, "G").End(xlUp).Row) 
    .ClearContents 
    .ClearFormats 
End With 
MsgBox "Data Cleared" 

End Sub