Sortieren von Daten in VBA

Question

Ich bin ein finanzieller Monte Carlo, und als letzten Schritt möchte ich die gespeicherten Ergebnisse sortieren. Ich habe ein Blatt, das alle simulierten Ergebnisse in Zelle D21 enthält: BM ## wobei ## = Anzahl der Simulationen + 20. In den Zeilen über 21 habe ich verschiedene Statistiken, (min, max, std dev, etc).

Jedes Mal wenn ich dies führe, sortiert es sowohl die Ausgabezeilen als auch die Zeilen darüber. I.e. Es sortiert nicht meinen benannten Bereich. Hier ist mein Code: (Anmerkung „Zähler“ ist früher in meinem Code als eine ganze Zahl genannt und ist die Anzahl der Iterationen, die ausgeführt wurden

Worksheets("Sand Price").Activate 
Dim SortRange As Range 
Set SortRange = Worksheets("Sand Price").Range("D21:BM21").Resize(Counter, 62) 
SortRange.Interior.ColorIndex = 20 

Range("SortRange").Sort Key1:=Range("SortRange"), _ 
Order1:=xlAscending, Header:=xlNo 

Was frustrierend ist, dass ich die Interior.ColorIndex hinzugefügt haben. Befehl, um zu verfolgen, was passiert. Nur meine Ausgabezeilen werden Farbe, so dass in diesem Schritt der richtige Bereich abgreift. Aber im nächsten Schritt ist es nicht auf Sortierbereich beschränkt. Hinweis, ich habe hinzugefügt ".cells (1, 1) nach "Key1: = range (" SortierungRange ")" und das hat den Trick auch nicht gemacht.

Answer 1

Ich bin mir nicht sicher, was Sie brauchen, weil ich nicht verstehe, was Sie zu erreichen versuchen, basierend auf dem, was Sie sind Sprich: Obwohl Ihre SortRange wird horizontal auf Ihrer berechneten Zeile gesetzt D21 auf der linken Seite zu BM21 auf der rechten Seite, wenn das ist, was sie sind. Sie sagen, dass Ihr benannter Bereich D21 zu BM21 ist und es sortiert, aber dann sagt, dass es nicht sortiert? Wenn das der Fall ist, wie lautet Ihr benannter Bereich? D1: BM21 und NICHT D21: BM21?

D1 bis BM1 [Namen der Spalten]

D2 zu BM2 Werte

... (D3 - D19 bis BM3 - BM19) -Werten

D20 zu BM20-Werte

D21 bis BM21 ~ tot als/output/Ihr benannten Bereich

Bereich Named = Set SortRange = Worksheets("Sand Price").Range("D21:BM21").Resize(Counter, 62)

Worksheets("[Sand Price]").Activate 
Dim SortRange As Range 

Set SortRange = Worksheets("[Sand Price]").Range("D1:BM21").Resize(Counter, 62) 
SortRange.Interior.ColorIndex = 20 

Range("SortRange").Sort key1:=Range("SortRange"), _ 
order1:=xlAscending, header:=xlNo 

Hinzugefügt Klammern Name [Sand Price] wegen Namensraum Arbeitsblatt. Geändert von D21:BM21 zu D1:BM21. In den ersten Buchstaben für Key zu key, Order zu order und Header zu header geändert.

Etwas anderes zu sehen ändert Range("SortRange").Sort-Columns("SortRange").Sort (oder was Herr Williams wies darauf hin), weil die Art und Weise haben Sie es selbst erscheint Aufruf werden auf sich selbst (die eine Reihe ist), da Sie Dim SortRange As Range dann erklärt versuchen zu tun Range("SortRange") was entspricht zu sagen SortRange("SortRange"), es sei denn, ich habe dies falsch interpretiert?