|
代码如下。。。
Sub test()
Dim wb As Workbook, sht As Worksheet, sh As Worksheet
Set wb = ThisWorkbook
Set sht = wb.Sheets("sheet0")
Application.ScreenUpdating = False
For Each sh In wb.Sheets
If sh.Name <> sht.Name Then
r = sh.Cells(Rows.Count, 1).End(3).Row
c = sh.Cells(1, Columns.Count).End(1).Column
ReDim brr(1 To 100000, 1 To c)
arr = sh.[a1].Resize(r, c)
n = 0
For i = 1 To UBound(arr)
If i <> UBound(arr) Then
For j = i + 1 To UBound(arr)
n = n + 1
For k = 1 To c
brr(n, k) = arr(i, k)
Next
n = n + 1
For k = 1 To c
brr(n, k) = arr(j, k)
Next
n = n + 1
Next
' Else '最后一行不处理了吧
' n = n + 1
' For k = 1 To c
' brr(n, k) = arr(i, k)
' Next
End If
Next
sh.[a1].Resize(n, c) = brr
End If
Next
Application.ScreenUpdating = True
Beep
End Sub
|
评分
-
1
查看全部评分
-
|