公式改VBA代码

liushibiao

请各位老师指导

3190496160

玩公式的往往看不懂代码，玩代码的往往看不懂公式，请读对你的公式做具体的说明，

xiangbaoan

Sub test()
  Dim ar, i&, k&
  ar = Range("A3:c" & Cells(Rows.Count, 3).End(xlUp).Row + 1)
  For i = 1 To UBound(ar) - 1
    k = k + 1
    ar(i, 1) = k
    If ar(i, 3) <> ar(i + 1, 3) Or ar(i, 2) < ar(i + 1, 2) Then k = 0
  Next
  Range("A3").Resize(i) = ar
End Sub

liushibiao

xiangbaoan 发表于 2020-8-1 10:06
Sub test()
  Dim ar, i&, k&
  ar = Range("A3:c" & Cells(Rows.Count, 3).End(xlUp).Row + 1)

谢谢，为了节约时间，能不能将按扭触发改成事件触发，请指教

liushibiao

xiangbaoan 发表于 2020-8-1 10:06
Sub test()
  Dim ar, i&, k&
  ar = Range("A3:c" & Cells(Rows.Count, 3).End(xlUp).Row + 1)

谢谢，为了节约时间，能不能将按扭触发改成事件触发，请指教