|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
或者
Sub 东1风()
Dim arr, brr
r = ActiveSheet.Range("F157").End(3).Row
arr = Range("G4:H" & r)
rr = r - 3
ReDim brr(1 To rr, 1 To 2)
For i = 4 To r
brr(i - 3, 1) = arr(i - 3, 1) + arr(i - 3, 2)
Next
[I4].Resize(rr, 1) = brr
Range("A4:I" & r).Sort [I4], 2
aa = Round([f1] * rr, 0)
bb = Round([g1] * rr, 0) + aa
cc = Round([H1] * rr, 0) + bb
For i = 1 To rr
If i <= aa Then
cl = "一等奖"
ElseIf i <= bb Then
cl = "二等奖"
ElseIf i <= cc Then
cl = "三等奖"
Else
cl = ""
End If
brr(i, 1) = i
brr(i, 2) = cl
Next
[J4].Resize(rr, 2) = brr
End Sub
|
|