Question

我的目标是根据C列中的最小到最大对整个原始数据工作簿进行排序。这样可以确保在这种情况下，极点＃在输出excel文件中按顺序排序。我为此使用VBA，似乎无法弄清楚。下面是我现有的代码。

Sub ECOECCSV()
Dim desPathName As Variant
desPathName = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv*), *.csv*", Title:="Please select a file")
If desPathName = False Then
    MsgBox "Stopping because you did not select a file. Reselect a destination file through the menu"
    Exit Sub
Else
    Workbooks.Open Filename:=desPathName
    Set des = Workbooks.Open(desPathName, True, False)
End If
ActiveSheet.Name = "RawData"
Set RDBook = Worksheets("RawData").Parent

Workbooks.Add
If Worksheets.Count > 2 Then
Application.DisplayAlerts = False ' prevent are you sure message while deleting
Sheets("Sheet3").Delete
Sheets("Sheet2").Delete
Application.DisplayAlerts = True
End If
lastcolumn = 1
Do While HomeSheet.Cells(1, lastcolumn) <> ""
lastcolumn = lastcolumn + 1
Loop

lastrow = 2
Do While HomeSheet.Cells(lastrow, 1).Value <> ""
HomeSheet.Cells(lastrow, PoleNum) = CDbl(HomeSheet.Cells(lastrow, PoleNum))
lastrow = lastrow + 1
Loop
sortColumn = Cells(1, PoleNum).Address(RowAbsolute:=False, 
ColumnAbsolute:=False)
sortEnd = Cells(lastrow, lastcolumn).Address(RowAbsolute:=False, 
ColumnAbsolute:=False)

HomeSheet.Range("A1:" & sortEnd).Sort key1:=HomeSheet.Range(sortColumn), 
order1:=xlAscending, Header:=xlYes

Sheets(1).Name = "Make-Ready"
Set MRBook = Worksheets("Make-Ready").Parent

“原始数据”工作表是将在宏中使用的输入文件，即我要对极点号进行排序的文档。 “准备就绪”是将要输出的文档。从lastcolumn = 1到Header：= xlYes是我的代码不起作用。

提醒：我的目标是根据该列对整个工作表进行排序。

排序原始数据工作簿VBA

0 个答案: