Új hozzászólás Aktív témák

• #14096 #90999040 törölt tag hallgat #14093

  Új Válasz 2012-06-21 15:34:36 #14096

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  #90999040

  törölt tag

  válasz hallgat #14093 üzenetére

  Próbáld meg így:

  n = Range("A" & Rows.Count).End(xlUp).Row
  For i = n - 1 To 1 Step -1
  If Cells(i, 1).Value <> Cells(n, 1).Value Then
  If i < n - 1 Then Rows(i + 1 & ":" & n - 1).Delete
  n = i
  End If
  Next
  If Cells(1, 1).Value = Cells(n, 1).Value And n > 1 Then Rows(1 & ":" & n - 1).Delete

Új hozzászólás Aktív témák