自定义序列
晃仙 2019-05-12 10:20:05 总是说worksheet 作用range错误,哪里错了?
代码如下,sheet3有自定义序列,是有顺序百家姓,剩下的工作簿是没有排序的名字,姓加名,未排序
帮我看看哪里错了!求救!
Option Explicit
Sub demo1()
Dim sin As Worksheet, rng As Range, i As Long, myorder As Range
Set myorder = Worksheets("sheet3").Range("b3:b18")
Application.AddCustomList (myorder)
For Each sin In Worksheets
If sin.Name <> "Sheet3" Then
i = 2
Do While sin.Cells(i, 2).Value <> ""
sin.Cells(i, 1).Value = Left(sin.Cells(i, 2), 1)
i = i + 1
Loop
Set rng = sin.Range(Cells(1, 1), Cells(1, 1).End(xlDown).End(xlToRight))
rng.Sort key1:=Range("A:A"), ordercustom:=Application.CustomListCount + 1
Range("A:A").Clear
End If
Next
Application.DeleteCustomList (Application.CustomListCount + 1)
End Sub