Если строка пуста, как мне скопировать / вставить данные из строки под ней, чтобы заполнить пустую строку?

Question

У меня есть электронная таблица с множеством пустых строк, и мне нужно извлечь конкретные данные из ячеек под каждой пустой строкой, чтобы заполнить пустую.Я просто недостаточно хорош в VBA, чтобы понять, как выполнить этот сложный набор шагов, поэтому заранее благодарю и извините разработчиков, которым не нравится, как делать эти вопросы.

Я разбил шаги, которые мне нужны.

1. Определите, если строка пуста.
2. Если true, скопируйте текст из столбца A строки под пустой строкой.
3. Вставить текст в столбец A пустой строки.
4. Заменить последние три цифры текста на "XXX".
5. Продолжить до конца таблицы.

РЕДАКТИРОВАТЬ: Клетки, как они в настоящее время:

Как я хочу, чтобы они выглядели так:

Япытаясь сделать это для каждого набора, но может быть 2, 3, 4 или более групп строк с пустой строкой над ними.Поэтому VBA должен включить все строки в эту группу.

Answer 1

Звучит так, как вы хотите.Если ваши числа являются числовыми, вам нужно преобразовать их в текст, прежде чем пытаться извлечь цифры.

Sub dostuff()

For ir = 1 To 10000

   If (Cells(ir, 1).value = "" And Cells(ir + 1, 1).value = "") Then _
      Exit For 

   If (Cells(ir, 1).value = "") Then _
      Cells(ir, 1).value = _ 
          Mid(Format(Cells(ir + 1, 1).value,"00000000"),1,5) & "XXX"

 Next ir


 End Sub