-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
válasz Hosssszu #3997 üzenetére
Nem is annyira egyszerű a dolog, de azért itt a makrós megoldás:
Sub rendez()
usor = Range("A65536").End(xlUp).Row
For sor_a = 2 To usor
adat = Cells(sor_a, 1)
For sor_b = 2 To Range("B65536").End(xlUp).Row
If Cells(sor_b, 2) = adat Then
Cells(sor_b, 2).Select
Selection.Cut Destination:=Cells(sor_a, 4)
End If
Next
Next
also = usor
For sor_b = 2 To usor
adat = Cells(sor_b, 2)
If adat > "" Then
also = also + 1
Cells(sor_b, 2).Select
Selection.Cut Destination:=Cells(also, 2)
End If
Next
Range("D2:D" & usor).Select
Selection.Cut Destination:=Range("B2:B" & usor)
Range("B2:B21").Select
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Hosssszu #3997 üzenetére
Vigyázz! a makró írásánál feltételeztem, hogy a D oszlopod üres. Ideiglenesen oda helyezek adatokat.
Ha nem szabad az oszlop, két helyen kell átírni a makrót. A
Selection.Cut Destination:=Cells(sor_a, 4) sorban a 4-et mondjuk 30-ra,
és ennek megfelelően a
Range("D2: D" & usor).Select sort Range("AD2:AD" & usor).Select-re.Mód.: ez a fránya átírta. A fenti sor elején a kettőspont után a D elé be kellett tennem egy szóközt, hogy ne egy vigyori fej (ilyen) jelenjen meg.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.