|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 对账单()
Dim ar As Variant
Dim br()
ar = Sheets("销售明细").UsedRange
ReDim br(1 To UBound(ar), 1 To 9)
With Sheets("客户对账单")
kh = .[b2]
For i = 3 To UBound(ar)
If ar(i, 1) = "" Then ar(i, 1) = ar(i - 1, 1)
If ar(i, 2) = "" Then ar(i, 2) = ar(i - 1, 2)
If Trim(ar(i, 2)) = Trim(kh) Then
n = n + 1
For j = 1 To 9
br(n, j) = ar(i, j)
Next j
End If
Next i
.[a1].CurrentRegion.Offset(3) = Empty
.[a4].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub
|
|