Здравствуйте, надо чтобы в данном макросе присутствовала строка которая после выпадения того рандомного числа сразу удаляла ту ячейку и сдвигалась в верх,Спасибо
У меня есть данный макрос,в нем у меня после активации выпадает рандомное число и считает сколько у меня используется строк,мне нужно чтобы в данном макросе это рандомное число удалялось и сдвигалось вверх
| Код |
|---|
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 |
Изменено: - 29.05.2019 13:49:08
