Макрос Excel VBA: удаление строк (на основе списка значений)
greggowaffles
0:00 / 0:00
Макрос Excel VBA: удаление строк (на основе списка значений)
3 627 просмотров · 2 года назад
greggowaffles
6,51 тыс. подписчиков
3 627 просмотров · 2 года назад
💼 Закажите автоматизацию рабочих процессов в Excel с помощью VBA
Нужна помощь в автоматизации ваших рабочих процессов в Excel? Я специализируюсь на создании индивидуальных решений на основе VBA для Excel, которые помогут вам сэкономить время и исключить повторяющиеся задачи.
👉 https://www.upwork.com/freelancers/~0...
Макрос Excel VBA: Удаление строк (на основе списка значений)
💥Подпишитесь: / @greggowaffles
Код:
Sub delete_rows_based_on_list()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim row_count1 As Long
Dim row_count2 As Long
Dim i As Long
Dim j As Long
Set ws1 = ThisWorkbook.Sheets("Stock Screener")
Set ws2 = ThisWorkbook.Sheets("Items to Delete")
ws2.Activate
row_count2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
ws1.Activate
row_count1 = ws1.Cells(Rows.Count, "A").End(xlUp).Row
For j = 1 To row_count2
i = 2
Do While i ＜= row_count1
If Cells(i, 10) = ws2.Cells(j, 1).Text Then
Rows(i).EntireRow.Delete
i = i - 1
row_count1 = row_count1 - 1
End If
i = i + 1
Loop
Next j
End Sub
#excelmacro #excelvba
