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

Question

Я пытаюсь добавить файлы Excel в базу данных доступа.Я бы хотел, чтобы каждое название комнаты можно было искать по номеру комнаты.Прямо сейчас, если вы запрашиваете номер комнаты, он обнаруживает только строку, содержащую этот номер комнаты, хотя строки под номером комнаты также содержат данные для этой же комнаты ... например, так:

http://i802.photobucket.com/albums/yy304/Growler2009/Database_Fill_In.jpg

Итак, я хотел бы написать скрипт, который будет сканировать столбец с номером комнаты (Столбец 1) ... каждый раз, когда скрипт попадает на уникальный номер комнаты, он заполняетсяпробелы под ним с тем же номером комнаты.

После: http://i802.photobucket.com/albums/yy304/Growler2009/BlankSpace_FillIn.jpg

Пока что я написал этот тестовый сценарий ... но, похоже, он не работает... Какие-нибудь советы?Спасибо!

RoomNumber = Array(1, 2, 3, 4, 5)

    For RoomNumberRow = 1 To 5
        For ColIndex = 1 To 5

        If Cells(RoomNumberRow, ColIndex).Value = RoomNumber(RoomNumberRow) Then
        'Move down a cell
        ActiveCell.Offset(1, 0).Select
        'changes that cell to the same room number
        Cells.Value = RoomNumber(RoomNumberRow)

    End If
Next RoomNumberRow

Answer 1

Предполагая, что materialDescriptionColumn не пуст до конца списка, а номер roomNumberValue не пуст в первой строке.

Если у всех столбцов есть пустые поля до конца списка, то цикл For был бы опцией.

counter = 'First row.

Do Until IsEmpty(Cells(counter, materialDescriptionColumn).Value)
    roomNumberValue = Cells(counter, roomNumberColumn).Value

    If roomNumberValue = "" Then
        Cells(counter, roomNumberColumn) = roomNumber
    Else
        roomNumber = roomNumberValue
    End If

    counter = counter + 1
Loop