用相似的值填充列的空格

我試圖將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

來源

2011-02-03 Growler

假設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

來源

2011-02-03 16:40:21 strcompnice

用相似的值填充列的空格

回答

相關問題