返回列表 上一主題 發帖

[發問] VBA COUNT IF

  1. Sub nn()
  2. Dim Rng As Range
  3. With Sheet1
  4. r = Application.Max(.[A65536].End(xlUp).Row, .[C65536].End(xlUp).Row)
  5. For Each a In .Range("A2:A" & r)
  6.    If a.Offset(, 1) <> a.Offset(, 4) Then
  7.       If Rng Is Nothing Then
  8.          Set Rng = a.Resize(, 5)
  9.          Else
  10.          Set Rng = Union(Rng, a.Resize(, 5))
  11.          End If
  12.     End If
  13. Next
  14. End With
  15. Sheet2.Cells = ""
  16. Rng.Copy Sheet2.[A1]
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 3# john2006168


    A欄跟C欄取多數列位
學海無涯_不恥下問

TOP

        靜思自在 : 信心、毅力、勇氣三者具備,則天下沒有做不成的事。
返回列表 上一主題