Excel VBA问题：过滤排序后复制数据至其他工作表的代码异常

我要实现将数据过滤并排序后复制到其他工作表的功能，写了两段VBA代码：第一段是完整可运行的示例代码，第二段写到设置AutoFilter的Criteria1时只输入了"Eas"就中断了，需要帮忙完成这段代码并确保功能正常。

完整示例代码 #

Sub FilterSortAndCopyData()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim sourceDataRange As Range
    Dim destinationRange As Range
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("Sheet1") ' 根据实际修改源工作表名称
    Set wsDestination = ThisWorkbook.Worksheets("Sheet2") ' 根据实际修改目标工作表名称
    
    ' 设置源数据范围
    Set sourceDataRange = wsSource.Range("A1:D10") ' 根据实际调整数据范围
    
    ' 应用筛选，仅显示"East"区域的数据
    sourceDataRange.AutoFilter Field:=4, Criteria1:="East"
    
    ' 按"Amount"列降序排序筛选后的数据（假设Amount在第3列）
    With sourceDataRange
        .AutoSort Field:=3, Order:=xlDescending
    End With
    
    ' 将筛选排序后的数据复制到目标工作表
    Set destinationRange = wsDestination.Range("A1")
    sourceDataRange.SpecialCells(xlCellTypeVisible).Copy destinationRange
    
    ' 关闭筛选
    sourceDataRange.AutoFilter
    
End Sub

未完成的代码（中断处） #

Sub FilterSortAndCopyData()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim sourceDataRange As Range
    Dim destinationRange As Range
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("Sheet1") ' 根据实际修改源工作表名称
    Set wsDestination = ThisWorkbook.Worksheets("Sheet2") ' 根据实际修改目标工作表名称
    
    ' 设置源数据范围
    Set sourceDataRange = wsSource.Range("A1:D10") ' 根据实际调整数据范围
    
    ' 应用筛选，仅显示"East"区域的数据（此处代码中断）
    sourceDataRange.AutoFilter Field:=4, Criteria1:="Eas

问题修复与代码补全 #

这段未完成代码的核心问题：

• 字符串未闭合：Criteria1:="Eas" 缺少闭合双引号，需改为Criteria1:="East"
• 语句不完整：AutoFilter方法调用未结束，需补全语法结构
• 后续排序、复制、关闭筛选的逻辑完全缺失

补全后的完整代码如下：

Sub FilterSortAndCopyData()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim sourceDataRange As Range
    Dim destinationRange As Range
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsDestination = ThisWorkbook.Worksheets("Sheet2")
    
    ' 设置源数据范围
    Set sourceDataRange = wsSource.Range("A1:D10")
    
    ' 应用筛选，仅显示"East"区域
    sourceDataRange.AutoFilter Field:=4, Criteria1:="East"
    
    ' 按第3列（Amount）降序排序
    sourceDataRange.AutoSort Field:=3, Order:=xlDescending
    
    ' 复制可见数据到目标工作表
    sourceDataRange.SpecialCells(xlCellTypeVisible).Copy wsDestination.Range("A1")
    
    ' 关闭筛选
    sourceDataRange.AutoFilter
End Sub

注意事项 #

• 确认Sheet1和Sheet2存在，或根据实际工作表名称修改代码
• 保证A1:D10范围包含表头和完整数据，第4列为区域列、第3列为Amount列
• 如需筛选其他区域，直接修改Criteria1的值即可，比如Criteria1:="West"

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