Заполните пробелы столбца с одинаковыми значениями partII

Question

Я задавал этот вопрос раньше, но мне было трудно показать, какие правки я сделал.

Я написал код для сканирования строк в столбце 1 ... каждый раз, когда он сталкивается с уникальным номером комнаты, он заполняет пустые ячейки под ним этим номером. К сожалению, он только копирует значение первой ячейки («1») и вставляет его во все строки с 3 по 10.

Код, который у меня есть: 'Заполняет столбец номера комнаты одинаковыми номерами комнаты:

AboveCellValue = Range("A3").Offset(-1, 0).Value
For RowIndex = 2 To 10
    For ColIndex = 1 To 1
        If Cells(RowIndex, ColIndex).Value = "" _
        Then Cells(RowIndex, ColIndex).Value = AboveCellValue
    Next ColIndex
Next RowIndex

Вот фотография того, что должно произойти: http://i802.photobucket.com/albums/yy304/Growler2009/AESProjectPic.jpg

Спасибо за вашу помощь! * 1011 Дан *

Answer 1

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

Answer 2

Вот еще один способ, который не зацикливается. Он помещает формулу в каждую пустую ячейку, которая ссылается на ячейку над ней.

With Range("A2:A10")
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Copy
    .PasteSpecial xlPasteValues
End With

Изменить диапазон в соответствии с вашими данными. Кроме того, предполагается, что у вас нет других формул в этом диапазоне. Если вы это сделаете, они будут преобразованы в значения, и вы, вероятно, не хотите этого.