|
不好意思,已更新,請再確認,謝謝
Sub Test()
Dim Arr, Brr, Crr(1 To 100000, 1 To 3)
Dim n&, n1&, i&, j%, x%, x1%
Arr = Sheets(1).[a1].CurrentRegion
Brr = Sheets(2).[a1].CurrentRegion
For i = 1 To UBound(Brr)
If Brr(i, 1) <> "" Then
If n1 < 1 Then n = n + 1 Else n = n1 + 1
For j = 1 To 3: Crr(n, j) = Brr(i, j): Next
n1 = n + UBound(Arr)
For x = n + 1 To n1
x1 = x1 + 1
For j = 1 To 3
Crr(x, j) = Arr(x1, j)
Next j
Next
x1 = 0
End If
Next
Sheets(2).[a1].Resize(n1, 3) = Crr
End Sub
|
|