열의 공백을 같은 값으로 채우기

Question

엑셀 파일을 액세스 데이터베이스에 추가하려고합니다. 방 이름으로 각 방 이름을 검색 할 수있게하고 싶습니다.

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