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

• #10233 Delila_1 veterán ql0qxo #10232

  Új Válasz 2011-05-03 12:12:33 #10233

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz ql0qxo #10232 üzenetére

  Ahhoz, hogy a C oszlopban össze tudja hasonlítani a makró az adatokat, a C oszlop szerint kell rendezni a táblázatot. Ha ez nem felel meg, az első üres oszlopba tegyél sorszámot a makró futtatása előtt: az első adat mellé beírsz egy 1-est, és a Ctrl bill. lenyomása mellett lehúzod.
  A makró után a sorszámos oszlop szerint visszaállíthatod az eredeti sorrendet.

  Sub NukuEgyforma()
  Dim sor%, usor%
  
  Cells(1).Select 'Rendezés C oszlop szerint
  Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
  xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortTextAsNumbers
  
  usor% = Range("A10000").End(xlUp).Row
  For sor% = usor% To 2 Step -1
  If Cells(sor%, 3) = Cells(sor% - 1, 3) Then Rows(sor%).Delete Shift:=xlUp
  Next
  End Sub

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