主页 / coding / 问题 / 79486531
Accepted
Alan - Seattle
Asked: 2025-03-05 20:45:54 +0800 CST

Excel 2019 排序时出现问题，无法将所选区域上方的行拉入排序，有人能帮我修复这个问题吗

  • 772

我正在尝试通过编写一些 VBA 代码来帮助我的高尔夫联盟自动化他们的每周日程表电子表格操作。该过程涉及录制宏以模仿他们的过程。当尝试对部分列选择进行排序时，排序会将选择上方的行（第 6 行中的标题行）拉入排序。我尝试了所有方法并阅读了许多关于此问题的文章，但对我来说毫无意义，我似乎无法修复它。有人能帮帮我吗？请参阅下面的屏幕截图，了解发生了什么以及我尝试修复它的方法。

问题截图

excel

1 个回答

  1. Best Answer

    排序数据

    Sub SortHandles()

    ' Define constants.
    Const SHEET_NAME As String = "Sheet1"
    Const HEADER_CELL_ADDRESS As String = "A6" ' row 5 is empty
    Const SORT_COLUMN As Long = 3  
     
    ' Reference the objects.
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    Dim ws As Worksheet: Set ws = wb.Sheets(SHEET_NAME)
    Dim rg As Range:
    With ws.Range(HEADER_CELL_ADDRESS).CurrentRegion
        Set rg = .Resize(.Rows.Count - 1).Offset(1) ' exclude top row
    End With
    
    ' Sort.
    rg.Sort rg.Columns(SORT_COLUMN), xlAscending, , , , , , xlNo

End Sub
    • 0

相关问题