帮忙给翻一下语句，没有接触过，想修改一下就用了

qingicq

Sub 拆分工作表()
'
' 排序 Macro
'

'   ActiveWorkbook.Worksheets("拆分报表").Sort.SortFields.Clear
' ActiveWorkbook.Worksheets("拆分报表").Sort.SortFields.Add Key:=Range("B2:B9000"), _
'     SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' With ActiveWorkbook.Worksheets("拆分报表").Sort
  '     .SetRange Range("A1:L9000")
'  .Header = xlYes
   '   .MatchCase = False
   '  .Orientation = xlTopToBottom
   '.SortMethod = xlPinYin
   '.Apply
  '  End With

introw = Sheets("拆分报表").Range("a65536").End(xlUp).Row
str1 = Sheets("拆分报表").Cells(2, 2)

ActiveWorkbook.Sheets.Add(after:=Sheets(Sheets.Count)).Name = str1
   For i = 1 To 12
  
        Cells(1, i).Value = Sheets("拆分报表").Cells(1, i).Value
   Next
   n = 2
  For j = 2 To introw
  
      If str1 = Sheets("拆分报表").Cells(j, 2).Value Then

         For i = 1 To 12
      
             Cells(n, i).Value = Sheets("拆分报表").Cells(j, i).Value

         Next
         n = n + 1
     Else
      
       str1 = Sheets("拆分报表").Cells(j, 2).Value
      
      
       ActiveWorkbook.Sheets.Add(after:=Sheets(Sheets.Count)).Name = str1
      
  
      
       n = 2
       j = j - 1
      
       For i = 1 To 12
            Cells(1, i).Value = Sheets("拆分报表").Cells(1, i).Value
       Next
      
      
     End If
      
  Next
  
End Sub

skvin

这不是　么尤　老师的作业吗？　让他自己来回复你吧！我帮你转告一下！

么尤

前面几句是录制排序的，后面是根据自己需要拆分的。这是一开始作的，里面有很多不完美的地方，后来改了一次。明天找找看。