Sub 删除排序()
Dim ar As Variant
Dim br()
With Sheets("sheet1")
r = .Cells(Rows.Count, 13).End(xlUp).Row
y = .Cells(2, Columns.Count).End(xlToLeft).Column
If r < 3 Then MsgBox "数据表为空!": End
ar = .Range(.Cells(2, 1), .Cells(r, y))
End With
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 1 To UBound(ar)
If Trim(ar(i, 15)) <> "" Then
n = n + 1
If n = 1 Then
br(n, 1) = ar(i, 1)
Else
br(n, 1) = n - 1
End If
For j = 2 To UBound(ar, 2)
br(n, j) = ar(i, j)
Next j
End If
Next i
With Sheets("导出")
.UsedRange = Empty
.[a2].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub
|