VBA 编程常见实例讲课讲稿.docVIP

将excel汇总好的表，按字段拆分为多sheet的情况：如下图： 代码如下：Sub cfs() Dim GSArr() As String 公司名称清单 Dim Rca As Integer A列数据行数 Dim i As Integer Dim Sn As String Sn = ActiveSheet.Name Rca = Columns(A:A).End(xlDown).Row ‘按第A列数据拆分，且第一行无合并单元格 ReDim GSArr(1 To 1) GSArr(1) = Cells(2, 1) For i = 3 To Rca If IsError(Application.Match(Cells(i, 1), GSArr, 0)) Then ReDim Preserve GSArr(1 To UBound(GSArr) + 1) GSArr(UBound(GSArr)) = Cells(i, 1) End If Next If ActiveSheet.AutoFilterMode = False Then Rows(1:1).AutoFilter Else If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If For i