Pytanie : Makro- Kolumna i Puste miejsce


I próbować "" kolumna C. i jak tylko ono sortować, iść the ostatni rząd w C i kasować wszystkie the rząd pod ono. 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Okręt podwodny A1_SortbyAcctandDeleteBlanks ()

    Pasmo ("A1"). Wybiórka
    Selection.Sort Key1: =Range ("C2"), Order1: =xlAscending, Chodnikowiec: =xlGuess, _
        OrderCustom: =1, MatchCase: =False, Orientacja: =xlTopToBottom
    Pasmo ("C1"). Wybiórka
    Selection.End (xlDown). Wybiórka
    ActiveCell.Offset ((1), (0)) .EntireRow.Select
    ActiveCell.Offset ((1), (0)). Pasmo ("A1"). Aktywować
    Selection.Clear
    Pasmo ("A1"). Wybiórka
Końcówka Okręt podwodny

Odpowiedź : Makro- Kolumna i Puste miejsce

Próbować ten kod
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:

Okręt podwodny removextras ()
Ciemnawy lastc Długo
Ciemnawy lastrow Długo
lastc = Pasmo ("C" & Rows.Count). Końcówka (xlUp). Rząd
lastrow = ActiveSheet.UsedRange.Rows.Count
Jeżeli lastc <> lastrow Wtedy
Rząd (lastc + (1) & ": " & lastrow). Deleatur
Inny
Kończyć Jeżeli
Kończyć Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us