© 1999-2048 dssz.net 粤ICP备11031372号
[VB] excel拆分表格.txt
说明: Sub 拆分() Dim sh As Worksheet Dim arr As Variant Dim brr() Dim i, s As Integer arr = Sheets("总表").UsedRange For Each sh In Worksheets ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2)) n = 0 If sh.Name "总表" Then For i = 3 To UBound(arr) If arr(i, 1) =<yingying19841128> 在 上传 | 大小:483