|
Sub CommandButton1_Click()
Dim T0(1 To 3000), R0(1 To 3000), T%, R%
ARR = Sheets("达成率数据源").UsedRange
For I = 2 To UBound(ARR)
If (Not InStr(ARR(I, 24), "周边")) And (Not InStr(ARR(I, 24), "顺丰")) And InStr(ARR(I, 25), "seewo") Then
T = T + 1
T0(T) = ARR(I, 1)
End If
If (Not InStr(ARR(I, 24), "周边")) And (Not InStr(ARR(I, 24), "顺丰")) And InStr(ARR(I, 25), "MAXHUB") Then
R = R + 1
R0(R) = ARR(I, 1)
End If
Next
Sheets("达成率-seewo").Range("A2:A3000").ClearContents
Sheets("达成率-seewo").Range("A2").Resize(T) = Application.Transpose(T0)
Sheets("达成率-MH").Range("A2:A3000").ClearContents
Sheets("达成率-MH").Range("A2").Resize(R) = Application.Transpose(R0)
MsgBox "搞定!"
End Sub |
|