写一段excel VBA自动分类的代码

以下是一段可以在 Excel 中使用的 VBA 代码，用于将数据按照某一列的值自动分类到不同的工作表中：

Sub AutoClassify()
  Dim lastRow As Long
  Dim i As Long
  Dim ws As Worksheet
  Dim wsName As String
  
  ' 获取数据的最后一行
  lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
  
  ' 遍历数据的每一行
  For i = 2 To lastRow
    wsName