У меня есть данный макрос,в нем у меня после активации выпадает рандомное число и считает сколько у меня используется строк,мне нужно чтобы в данном макросе это рандомное число удалялось и сдвигалось вверх
Sub qq()
Dim i As Integer: Application.ScreenUpdating = False
a = 1
Do While IsEmpty(Cells(a, 1)) = False
a = a + 1
Loop
a = a - 1
Cells(1, 3) = a
For i = 1 To 1
Randomize Timer
Cells(i, 2) = Cells(CInt(1 + (a - 1) * Rnd), 1)
Next i
End Sub
Число выпало. Что зачить "сдвинуть вверх число"? Откуда его удалить?
Дубль темы
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=117563&TITLE_SEO=117563-udalenie-yacheyki-posle-togo-kak-chislo-vypalo-i-sdvig-v-verkh