在VBA中排序數據

Question

我正在運行財務蒙特卡羅，並且作爲最後一步我想對存儲的輸出結果進行排序。我有一張工作表，其中包含單元格D21中的所有模擬結果：BM ##其中## =模擬次數+ 20。在21以上的行中，我有各種統計數據，（最小，最大，標準開發等）。

每次我運行這個，它都排序輸出行和它上面的行。即它不會對我命名的範圍進行排序。 這裏是我的代碼：（注「計數器」早在我的代碼作爲整數命名，是已運行的迭代次數

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 

什麼是令人沮喪的是，我已經添加了Interior.ColorIndex。命令來跟蹤發生了什麼，只有我的輸出行是彩色的，所以在這一步中，它正在選擇正確的範圍，但下一步它不限制SortRange.Note，我添加了「.cells（1， 1）在「Key1：= range（」SortRange「）」之後「，並且也沒有做到這一點。

Answer 1

我不確定你需要什麼，因爲我不明白你想要什麼，說。雖然你的SortRange在左邊的計算行D21上水平設置爲BM21，如果這就是它們。你說你的命名範圍是D21到BM21，它是排序，但然後說它不排序？如果是這種情況，那麼你的命名範圍是什麼？ D1：BM21 and NOT D21：BM21？

D1到BM1 [列的名稱]

D2到BM2值

...（D3 - D19到BM3 - BM19）值

D20至BM20值

D21 to BM21 tot ALS /輸出/你的命名範圍

命名範圍= 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 

加括號到工作表，因爲名稱空間名稱[Sand Price]。將D21:BM21更改爲D1:BM21。在Key到key,Order到order和Header到header的第一個字母上更改大寫字母到小寫字母。

別的東西來看待正在發生變化Range("SortRange").Sort到Columns("SortRange").Sort（或什麼威廉姆斯先生指出的），因爲你擁有它的方式出現在自己被調用本身（這是行），因爲你宣佈Dim SortRange As Range然後試圖要做Range("SortRange")這相當於說SortRange("SortRange")，除非我解釋過這個錯誤？