|
惭愧,代码看了半天,没看出个所以然来,水平有限,帮不了
Sub daoch()
Dim arr, brr()
arr = Sheet4.Range("a3:e" & Sheet4.[a65536].End(3).Row)
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 1 To UBound(arr)
If arr(i, 5) <> "" Then
m = m + 1
For j = 1 To UBound(arr, 2)
brr(m, j) = arr(i, j)
Next
End If
Next
If m > 0 Then
Sheet1.[a65536].End(3).Offset(1).Resize(m, UBound(brr, 2)) = brr
End If
MsgBox "总数据共计****条数据拷贝完成!!!"
End Sub
Private Sub CommandButton1_Click()
Range("L1:P1").ClearContents
n = 1
Do While Cells(2, 2) <> ""
If Cells(n, 2) <> "" Then
n = n
Else:
Range("L3:W3").Copy Destination:=Range(Cells(n, 12), Cells(n, 12))
Exit Do
End If
Loop
Range("L3:P3").Select |
|