Excel VBA中使用变量指定工作表时语法错误问题求助

嗨，我来帮你揪出这些语法问题！你的代码里有几个容易踩的VBA语法小坑，我一个个给你指出来并修正：

主要语法错误点 #

• 括号与方法名之间的空格：VBA对语法格式要求很严格，Worksheets (mysheet)和Range ("C1")中方法名与括号之间的空格会直接导致语法错误，必须去掉空格写成Worksheets(mysheet)和Range("C1")。
• 代码行未正确分隔：你把Clear操作和下一行的SortFields.Add代码连在一起了，VBA无法识别这种连续的语句，需要在Clear后换行，将两个操作拆成独立的代码行。
• 未明确指定Range所属工作表（非强制但推荐）：直接用Range("C1")会默认指向当前活动工作表，万一活动表不是你目标的mysheet，就会出现逻辑错误，最好明确指定工作表范围。

修正后的完整代码示例 #

Dim mysheet As String
mysheet = ActiveSheet.Name

' 清除原有排序规则
ActiveWorkbook.Worksheets(mysheet).AutoFilter.Sort.SortFields.Clear

' 添加新的排序字段
ActiveWorkbook.Worksheets(mysheet).AutoFilter.Sort.SortFields.Add _
    Key:=ActiveWorkbook.Worksheets(mysheet).Range("C1"), _
    SortOn:=xlSortOnValues, _
    Order:=xlAscending, _
    DataOption:=xlSortNormal

' 应用排序设置
With ActiveWorkbook.Worksheets(mysheet).AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

这里用下划线_换行是为了让长代码更易读，With语句则简化了重复的工作表引用，让代码更整洁。

内容的提问来源于stack exchange，提问作者learn2shoot