|
修改一下标题行:
Sub ddddd()
Dim arr, ws As Worksheet, i, n, arr1()
arr = Range("a2:c" & Cells(Rows.Count, 1).End(xlUp).Row)
On Error Resume Next
For Each ws In Worksheets
If ws.Name <> "总表" Then
For i = 1 To UBound(arr)
If arr(i, 3) = ws.Name Then
n = n + 1
ReDim Preserve arr1(1 To 3, 1 To n)
arr1(1, n) = n
arr1(2, n) = arr(i, 1)
arr1(3, n) = arr(i, 2)
End If
Next
ws.Range("a:c").ClearContents
ws.Cells(1, 1).Resize(1, 3) = Application.Transpose(Application.Transpose(Array("序号", "姓名", "性别")))
ws.Cells(2, 1).Resize(n, 3) = Application.Transpose(arr1)
n = 0
End If
Next
End Sub |
|