|
- Sub YY()
- T = Timer
- ARR = Range("D2:D" & Range("D65536").End(3).Row)
- ReDim BRR(1 To UBound(ARR) + 1, 1 To 3)
- Range("I1") = "金额"
- Range("H1") = "货号"
- Range("J1") = "礼券金额"
- For I = 1 To UBound(ARR)
- BRR(I, 2) = Split(ARR(I, 1), "|")(39)
- BRR(I, 1) = Split(ARR(I, 1), "|")(5)
- If Mid(Split(ARR(I, 1), "|")(5), 1, 5) = 99743 Then
- BRR(I, 3) = Split(ARR(3, 1), "|")(39)
- ElseIf Mid(Split(ARR(I, 1), "|")(5), 1, 5) <> 99743 Then
- BRR(I, 3) = " "
- End If
- TOL = TOL + BRR(I, 2) * 1
- Next
- BRR(I, 1) = "合 计"
- BRR(I, 2) = TOL
- Range("H2").Resize(UBound(BRR), 3) = BRR
- MsgBox "用时:" & Timer - T
- End Sub
复制代码 |
|