カラムの空白を同じ値で埋める

Question

アクセスデータベースにExcelファイルを追加しようとしています。私は部屋の名前で各部屋の名前を検索できるようにしたいと思います。

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

：あなたは部屋番号を照会する場合は今、それだけで部屋番号下の行はまた、そうのような...その同じ部屋のためのデータが含まれているにもかかわらず、その部屋番号を含む行を思い付きます

私がしたいのは、部屋番号の列（列1）をスキャンするスクリプトを作成することです...スクリプトが一意の部屋番号になるたびに、その下の空白を埋める同じ部屋番号。

後：私は、このテストスクリプトを書いている...しかし、それは動作していないようですので、これまで http://i802.photobucket.com/albums/yy304/Growler2009/BlankSpace_FillIn.jpg

...任意のヒント？ ありがとう！ materialDescriptionColumnを仮定

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

は、リストの最後まで空ではなく、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