sortieren Bereich von Zellen in einzelnen Spalte Excel-VBA-Makro

Question

Ich möchte eine Reihe von Zellen unter Verwendung von Excel-VBA-Makro

ich viele Websites gesucht haben sortieren, sondern überall die Beispiele zeigen, wie man mit einem einzigen Tasten

mehrere Spalten sortieren

z dieses example

Example Excel

In obigem Beispiel mag ich die Zellen A2 bis A8 sortieren, das ist es. Für diesen meinen Code ist

Range("A2:A8").Sort 

Aber es ist gibt Laufzeitfehler 1004

Was ist der richtige Weg, es zu tun?

Answer 1

Versuchen Sie, diese

sub test() 
Sheets("sheet1").Range("A2:A8").sort key1:=Range("A2:A8"), order1:=xlAscending, Header:=xlNo 
End sub