如何使用Excelmacros来sorting数据与空单元格？

非常感谢您阅读我的问题。 我试图在stackoverflowsearch类似的问题，但没有得到答案…非常感谢，如果你能帮助我。

我的目的是将数据从表格（“零件”）复制粘贴到表格（“摘要”），然后按A列sorting，忽略空单元格。

A1: 2.1 A2: A3: 1.1 A4: 1.2 

sorting后：

 A1: 1.1 A2: 1.2 A3: 2.1 A4: 

macros在macrosbuild设者中取得成功，但在工作表中失败（第一行为空）。 事实上，我试图不用“SkipBlanks”复制空单元格，但function不…

 Sub IEMacro() Dim Lastcell As Range Sheets("Parts").Range("A3:A300").Copy With Sheets("Summary") Set Lastcell = .Range("A65536").End(xlUp) .Range("A2", Lastcell).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False .Range("A2", Lastcell).Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess End With 

Answer 1

这应该正确应用sorting键：

 Sub IEMacro() Dim LastCell As Range Sheets("Parts").Range("A3:A300").Copy With Sheets("Summary") Set LastCell = .Range("A" & .Rows.count).End(xlUp) .Range("A2").PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=True, _ Transpose:=False With .Sort .SortFields.Clear .SortFields.Add Key:=Sheets("Summary").Range(Sheets("Summary").Range("A1"), LastCell), _ SortOn:=xlSortOnValues, _ Order:=xlAscending, _ DataOption:=xlSortNormal .SetRange Sheets("Summary").Range(Sheets("Summary").Range("A1"), LastCell) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With End Sub 

Answer 2

在这种情况下，您需要select完整范围，直到数据的最后一列为止，然后按升序对其进行sorting，最后使用自动filter。

 Sub sort() 'selecting complete range change it as required Range("A1:O12").Select ' Replace the sheet name with yours ActiveWorkbook.Worksheets("Sheet1").sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").sort.SortFields.Add Key:=Range("A1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").sort 'sorting complete range change it as required .SetRange Range("A1:O11") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub