Удаление ячеек по условию: код не работает - PullRequest
Новая
       18

Удаление ячеек по условию: код не работает

0 голосов
/ 15 ноября 2018

Я не знал, в чем проблема с этим, когда я выполняю этот код, он не работает.

Когда я выполняю код, ничего не происходит: 

Sub dltcls()

Dim i As Long
Dim lRow As Long
Dim j As Long
Dim s As Long


lRow = Cells(Rows.Count, 1).End(xlUp).Row
s = lRow / 10

For i = 1 To lRow Step 10
For j = 0 To s

If i / 10 = j Then Cells(i + j, 1).Delete

Next j
Next i

End Sub

Вот что я хочу сделать:

для i = от 1 до N, шаг 10

если я делю 10 = 0, то удаляю ячейки1

если я делю 10 = 1, то удаляю ячейки i + 1

если я делю 10 = 2, то удаляю ячейки i + 2

если я делю 10 = 3, то удаляю ячейки i + 3

если я делю 10 = 4, то удаляю ячейки i + 4

если я делю 10 = 5, то удаляю ячейки i + 5

если я делю 10 = 6, то удаляю ячейки i + 6

если я делю 10 = 7, то удаляю ячейки i + 7

если я делю 10 = 8, то удаляю ячейки i + 8

если я делю 10 = 9, то удаляю ячейки i + 9

если я делю 10 = 10, то удаляю ячейки i + 10 , , , .

и т.д ....

Кто-нибудь из вас может мне помочь с этим?

Заранее спасибо.

...