Вопрос : Макрос к виду пробелами Колонки и Delete

Я пытаюсь сортировать «восходить» C. колонки и как только оно сортировано, иду к последнему рядку в c и уничтожаю все рядки под им.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:

Sub A1_SortbyAcctandDeleteBlanks () Ряд («A1»). Отборно Selection.Sort Key1: =Range («C2»), Order1: =xlAscending, коллектор: =xlGuess, _ OrderCustom: =1, MatchCase: =False, ориентация: =xlTopToBottom Ряд («C1»). Отборно Selection.End (xlDown). Отборно ActiveCell.Offset (1, 0) .EntireRow.Select ActiveCell.Offset (1, 0). Ряд («A1»). Активируйте Selection.Clear Ряд («A1»). Отборно Подводная лодка конца

Ответ : Макрос к виду пробелами Колонки и Delete

Попытайтесь это Кодий

1: 2: 3: 4: 5: 6: 7: 8: 9: 10:

Sub removextras () Затемните lastc как длиной Затемните lastrow как длиной lastc = ряд («c» & Rows.Count). Конец (xlUp). Рядок lastrow = ActiveSheet.UsedRange.Rows.Count Если lastrow <> lastc после этого Рядки (lastc + 1 & «: » & lastrow). Delete Еще Закончитесь если Закончите подводную лодку