Выберите строки, которые были только что вставлены, затем сортируйте по столбцу, затем очищайте лишние строки - PullRequest
Новая
       42

Выберите строки, которые были только что вставлены, затем сортируйте по столбцу, затем очищайте лишние строки

0 голосов
/ 28 января 2020

Я пытаюсь создать макрос, который выполняет следующие 3 шага:

Шаг 1 - Скопируйте и вставьте данные из файла .txt в Excel в первую пустую ячейку

Шаг 2 - Сортируйте вновь вставленные данные по третьему столбцу (D). Над этим будут сотни строк данных, которые я не хочу сортировать с ним.

Шаг 3 - очистить данные от всех строк, не содержащих чисел, которые будут нижними строками, может быть 1 строка может быть 3 строки 

Sub LASTROW()
Dim rngLast As Range

With ThisWorkbook.Worksheets("RCM")
If .Range("B1").Value = "" Then
Set rngLast = .Range("B1")
Else
Set rngLast = .Cells(.Rows.Count, "B").End(xlUp).Offset(1, 0)
End If
rngLast.PasteSpecial

Selection.Sort Key1:=Selection.Cells(1, 3), Header:=xlNo

End With

End Sub

Редактировать: последний шаг я решил, имея отдельный макрос, который выполнял очистку: 

Sub ClearHeaders()

    Dim LASTROW As Long
    Dim I As Long

LASTROW = Cells(Rows.Count, "D").End(xlUp).Row
For I = LASTROW To 2 Step -1
If (Not (IsNumeric(Cells(I, "D")))) Then
 Rows(I).ClearContents
 End If
 Next I

End Sub

У меня просто будет кнопка, которая вызывает обе функции по одному за другим. Спасибо всем!

...