Заполнение любых пустых ячеек значением выше

Я хочу заполнить все пустые ячейки, используя значения вышеуказанных ячеек

state name IL Mike Sam CA Kate Bill Leah 

Должно быть следующим

  state name IL Mike IL Sam CA Kate CA Bill CA Leah 

Я попробовал следующее

 Sub split() Dim columnValues As Range, i As Long Set columnValues = Selection.Area Set i = 1 For i = 1 To columnValues.Rows.Count If (columnValues(i) = "") Then columnValues(i) = columnValues(i - 1) End If Next End Sub 

Я получаю сообщение об ошибке, когда устанавливаю i . Как изменить код

Это потому, что i должен быть определен как i=1 . Есть еще несколько проблем с кодом. Я бы изменил это на что-то вроде этого:

 Sub split() Dim columnValues As Range, i As Long Set columnValues = Selection For i = 1 To columnValues.Rows.Count If columnValues.Cells(i, 1).Value = "" Then columnValues.Cells(i, 1).Value = columnValues.Cells(i - 1, 1).Value End If Next End Sub 

Для тех, кто не требует VBA для этого, выберите ColumnA, Go To Special …, Blanks и:

Equals ( = ), Up ( ), Ctrl + Enter

должен дать тот же результат.

Учитывая, что вы попросили VBA, есть более быстрый путь, чем цикл (эквивалент VBA, который был поставлен выше, с дополнительным шагом удаления формулы в конце):

 On Error Resume Next With Selection.SpecialCells(xlCellTypeBlanks) .FormulaR1C1 = "=R[-1]C" .Value = .Value End With 
  • Используйте автофильтр по более чем 2 критериям
  • Как использовать FindWindow для поиска видимого или невидимого windows с частичным именем в VBA
  • Объединение рабочих листов в один
  • Как проверить пустой массив в макросе vba
  • Разделить разделенные запятой записи на новые строки
  • Словарь VBA (Excel) на Mac?
  • Ошибка Excel 1004 «Невозможно получить ... свойство classа WorksheetFunction», появляющееся непоследовательно
  • VBA: разделите значения ячеек на несколько строк и сохраните другие данные
  • Запуск такого же макроса excel в нескольких файлах excel
  • VBA извлекает данные XML в Excel
  • Переместите каждую ячейку после столбца A на новую строку
  • Interesting Posts

    Ошибка компилятора C ++ C2280 «попытка ссылки на удаленную функцию» в Visual Studio 2013 и 2015

    Текущие возможности трассировки программы в C #?

    Получение подматрицы с максимальной суммой?

    Вопрос конфигурации конфигурации WCF в отношении

    Как воспроизводить мелодию звонка / сигнала тревоги в Android

    Почему общее использование памяти, сообщаемое диспетчером задач Windows, намного выше, чем сумма использования памяти всех процессов?

    Установка диска восстановления на определенный раздел

    Тернарный оператор?: Vs if … else

    Сопоставлено ли целочисленное переполнение по-прежнему неопределенным поведением в C ++?

    Проверка программной версии приложения на Android-рынке

    ULL-суффикс на числовом литерале

    Отладка дочернего процесса после fork (настроен дочерний режим)

    Все JFrame замерзают, когда JavaMail

    Размер огромных объектов, непосредственно выделенных для старого поколения

    Сколько мб / сек можно ожидать копирования на USB 3.0 с помощью накопителя SATA?

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