2961| 4
|
VBA按订单号打印 |
1学分
最佳答案Sub Click()
Dim A, d, i
ActiveSheet.AutoFilterMode = False
A = Range("a1").CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 5 To UBound(A)
If Not d.exists(A(i, 1)) Then
d(A(i, 1)) = ""
Range([a4], Cells(UBound(A), UBound(A, 2))).AutoFilter 1, A(i, 1)
ActiveSheet.PrintOut
End If
Next
End Su ...
| ||
发表于 2019-12-13 10:32
|
显示全部楼层
| ||
发表于 2019-12-18 11:13
|
显示全部楼层
| ||
| ||
| ||