Excel中VBA排序不工作究竟是什麼worksheet.range參考

Question

隨着代碼正確的語法下面我得到一個錯誤：

Run-time error '1004' Method 'Range' of object'_Worksheet failed.

Dim destLastCol As Integer 'last column in range 
    Dim destLastRow As Integer 'last row in range 
    Dim wsCrewDetail As Worksheet ' 

    Set wsCrewDetail = Worksheets("CrewDetail_M") 
    destLastCol = integer assigned previously 
    destLastRow = integer assigned previously 

    With wsCrewDetail.Range(Cells(4, 1), Cells(destLastRow, destLastCol)) <== error here 
    .Sort Key1:=.Cells(4, 2), Order1:=xlAscending, _ 
    key2:=.Cells(4, 1), Order2:=xlAscending, _ 
    key3:=.Cells(4, 3), order3:=xlAscending, Header:=xlYes 
    End With 

我搜索和瀏覽的例子很多很多努力在設置Range參考的變化，並沒有任何工作。

什麼是正確的參考語法？

編輯補充先前分配destLastRow =整數和編輯，以顯示destLastCol

Answer 1

那麼你不喂行數爲destLastRow在這一行
With wsCrewDetail.Range(Cells(4, 1), Cells(destLastRow, destLastCol))

另外，不要使用Integer變量，使用Long。他們更有效率，也適合大量人羣。使用較短的變量，如ws用於工作表使得Long而非Integer

我將通常設定的工作範圍更容易地輸入和閱讀代碼

使用

建議

• （rng1）而不是使用從紙張開始的較長物體
• 假人destLastRow和destLastCol個值

示例代碼

Dim destLastCol As Long 'last column in range 
    Dim destLastRow As Long 'last row in range 
    Dim ws As Worksheet 
    Dim rng1 As Range 

    Set ws = Worksheets("CrewDetail_M") 
    destLastCol = 6 
    destLastRow = 10 

    Set rng1 = ws.Range(ws.Cells(4, 1), ws.Cells(destLastRow, destLastCol)) 
    With rng1 
    .Sort Key1:=.Cells(4, 2), Order1:=xlAscending, _ 
    key2:=.Cells(4, 1), Order2:=xlAscending, _ 
    key3:=.Cells(4, 3), order3:=xlAscending, Header:=xlYes 
    End With