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

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Автор Тема: Удаление ячейки после того как число выпало и сдвиг в верх  (Прочитано 967 раз)

0 Пользователей и 1 Гость просматривают эту тему.

impaktoff

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 1

У меня есть данный макрос,в нем у меня после активации выпадает рандомное число и считает сколько у меня используется строк,мне нужно чтобы в данном макросе это рандомное число удалялось и сдвигалось вверх
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, 12:44:36 от vikttur »
Записан

vikttur

  • Глобальный модератор
  • Ветеран
  • *****
  • Уважение: +50/-0
  • Оффлайн Оффлайн
  • Сообщений: 1 016

Число выпало. Что зачить "сдвинуть вверх число"? Откуда его удалить?

Дубль темы
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
« Последнее редактирование: 29.05.2019, 13:50:09 от vikttur »
Записан
 



Темы без ответов

27.05.2022 14:38 конструкция из Shape 36
09.08.2019 14:09 Макрос для заполнения таблиц через форму 5026
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4437
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 5995
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 3132
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 4934
15.03.2017 15:45 автозамена картинок PowerPoint 3859
11.03.2017 13:43 Изменить нумерацию страниц 3783
07.02.2017 18:43 Блокировка ячеек по наступлению даты 2897
28.08.2016 19:29 Одинаковые заголовки после обновления оглавления 3404





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.099 секунд. Запросов: 96.