如何sorting一定范围的行到一定数量（未知）的列？

如果我将范围的初始部分设置为Range（“A：A”），如何确保将整行传递给sorting？

数据ID，FNAME，MNAME，LNAME，后缀，状态，位置，时区

范围是通过searchid开始点和结束点来select的。 因此，范围可能是A1：183在一张纸上，A1：A1138在另一张纸上。 并且列以G或H结尾。数据仍然需要“按摩”

在D（lname）和B（fname）进行sorting的每一张纸上，我想包括其余的列，所以数据的完整性被保留下来。

到目前为止，我有一个select范围的子，但我不知道如何在没有rng.EntireRow.Select附加列上标记，这似乎并没有工作。

Sub sortRows(bodyName As String, ByRef wksht As Worksheet) Dim operationalRange As Range, sortRange As Range Set operationalRange = selectBodyRow(bodyName).EntireRow Debug.Print "Sorting Worksheet " & wksht.Name & " containing " & operationalRange.Count & " rows." ActiveWorkbook.Worksheets(wksht.Name).Sort.SortFields.Clear ActiveWorkbook.Worksheets(wksht.Name).Sort.SortFields.Add Key:=operationalRange, _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets(wksht.Name).Sort.SortFields.Add Key:=operationalRange, _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets(wksht.Name).Sort .SetRange operationalRange .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply ' Fails here with: ' Runtime Error '1004': ' The sort reference is not valid. Make sure that it's within the data ' you want to sort, and the first Sort By box isn't the same or blank. End With End Sub 

Answer 1

你需要find最后一行和最后一列来构build你的范围。

例如

 Option Explicit Sub Sample() Dim ws As Worksheet Dim LRow As Long, LCol As Long Dim rng As Range '~~> Change this with thee relevant sheet name Set ws = ThisWorkbook.Sheets("Sheet1") '~~> Get Last Row and Last Column LRow = LastRow(ws) LCol = LastColumn(ws) With ws '~~> Define your range Set rng = .Range("A1:" & ReturnName(LCol) & LRow) Debug.Print rng.Address End With End Sub '~~> Function to get last row Public Function LastRow(Optional wks As Worksheet) As Long If wks Is Nothing Then Set wks = ActiveSheet LastRow = wks.Cells.Find(What:="*", _ After:=wks.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row End Function '~~> Function to get last column Public Function LastColumn(Optional wks As Worksheet) As Long If wks Is Nothing Then Set wks = ActiveSheet LastColumn = wks.Cells.Find(What:="*", _ After:=wks.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column End Function '~~> Function to get the Column name from Column Number Function ReturnName(ByVal num As Integer) As String ReturnName = Split(Cells(, num).Address, "$")(1) End Function