Вставить в столбец, если номер отсутствует

Скажем, у меня есть столбец в Excel:

15 14 13 10 9 6 1 

И мне нужно вставить значение, когда при пропуске числа новая ячейка вставлена ​​в его место, она не должна быть числом, которое может просто быть «ЛОЖНЫМ». Но он должен сделать это БЕЗ добавления целой строки, только этой ячейки и значения. Это возможно?

Сейчас я играю, но если вы зацикливаетесь и используете ниже, он будет работать:

 Cells(1,1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 

С помощью VBA используйте следующий код. Щелкните правой кнопкой мыши на вкладке листа и щелкните код просмотра , вставьте это и запустите:

 Sub add_rows(ByVal myCol As String) With ActiveSheet Dim l As Long, i As Long, myCol As String myCol = "E" '<~~ alter this for your column l = .Columns(myCol).Find("*", SearchDirection:=xlPrevious).Row '<~~ get last row in column i = 1 Do While i <= l If i > 1 Then '<~~ not first row? Dim c1, c2 'get cell values c1 = .Cells(i - 1, myCol).Value c2 = .Cells(i, myCol).Value If c1 - 1 > c2 Then 'shift cells down by the numbers missing .Cells(i, myCol).Resize(c1 - c2 - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'set to false .Cells(i, myCol).Resize(c1 - c2 - 1) = False 'increase variable by number of inserted rows l = l + c1 - c2 - 1 i = i + c1 - c2 - 1 End If End If i = i + 1 Loop End With End Sub 
  • Объединить строку и ссылку на ячейку и преобразовать в формулу
  • Выполнение итогов различных параметров
  • Excel: вывод на основе выбора из нескольких выпадающих меню
  • Возможно ли цвет столбца / строки ячеек на основе другого столбца / строки ячеек?
  • Операторы Excel IF и выпадающие списки
  • Формула поиска или If Condition в MS Excel
  • Если ячейки содержат определенные тексты, тогда помещают указанные тексты в другие ячейки
  • Excel - Заменить ссылку на ячейку в формуле со значением в ячейке
  • Сводная таблица - Калиброванный элемент
  • Ошибка #VALUE при попытке умножить диапазон полей
  • Сопоставьте колонку A с столбцом B, если значение равно такому же отображению с данными строки строки C
  • Interesting Posts

    Формулы Excel перестали работать

    Скрыть столбцы, когда в строке в Excel 2003

    VBA Excel копирует несколько фигур в буфер обмена

    Python df.to_excel () сохраняет числа как текст в excel. Как сохранить значение?

    Попытка динамически передавать параметры хранимой процедуре из excel 2013, вызывая универсальный мэйнфрейм DB2

    Как сделать текущую ячейку в столбце C согласно значению ячейки в A

    C # GetOleDbSchemaTable. Имя первого листа Excel и его столбцов

    Нужна помощь в создании пользовательской функции в Excel с помощью VBA

    Excel: функция запуска при изменении ячеек (не одна указанная ячейка)

    Формат файла и расширение не совпадают с преимуществом при загрузке с веб-сайта .net

    R & Excel: создание сводных таблиц и слайсеров

    Excel: как использовать команду «Копировать вставить» в выбранную область листа (VBA)

    Определение имени рабочего листа зависит от переменной

    найдите 1 столбец для определенного термина и при обнаружении копирования всей строки на другой лист

    Top 5, используя диапазон в столбце A, который соответствует диапазону значений столбца B

    Давайте будем гением компьютера.