Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Microsoft Excel => Тема начата: impaktoff от 29.05.2019, 12:25

Название: Удаление ячейки после того как число выпало и сдвиг в верх
Отправлено: impaktoff от 29.05.2019, 12:25
У меня есть данный макрос,в нем у меня после активации выпадает рандомное число и считает сколько у меня используется строк,мне нужно чтобы в данном макросе это рандомное число удалялось и сдвигалось вверх
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

Название: Re: Удаление ячейки после того как число выпало и сдвиг в верх
Отправлено: vikttur от 29.05.2019, 12:45
Число выпало. Что зачить "сдвинуть вверх число"? Откуда его удалить?

Дубль темы
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