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

使用相似的值填充列的空格

1 个答案: