Question

VB6代码，哪儿错了？

Answer 1

Select Case Button.Key 中的 Button.Key 与 Case "降序排列" 中的 "降序排列" 类型不匹配。导致出现你下图问的“编译错误”。

追问

可是该怎么改呢？

追答

我再次仔细看了你的编码，并亲自试验。看来我上面的回答有误，真正的原因是：
每个 Do While 语句需要用 Loop 结束。否则会出现 Select Case 没有 End Select 的提示。即：
Do While (条件)
'要执行的代码
Loop
另外，你的代码中开始定义的是xlAscending1=2 ，可是后面的引用却成了xlAscending。
还有，个人觉得没必要写那么多的 Do While 语句，直接用 With 语句会更省事些。即：
With xlsheet
If Trim(.Cells(i, 1))"" Then .Cells(i, 1).Hidden = True
If Trim(.Cells(i, 3))"" Then .Cells(i, 3) = ""
'添加在EXCEL中的其他代码......
End With

Answer 2

第十六行，objrang1变为objrange1

追问

这个呢？

Answer 3

你用vb6精简版试一试。