8

我有一个如下的列:

1 red
2 blue
3 red
4 
5 blue
6
7
8 white

空格指的是上面的记录。所以#4 将与红色相关联,而 6 和 7 将与蓝色相关联。

有没有一种简单的方法可以填写整列的空白?

4

1 回答 1

16
  • 选择A1:A8
  • F5显示转到对话框。
  • 单击特殊.....选择空白并单击确定。

这将选择一个不连续的空白单元格范围。

  • 然后,不选择其他任何内容,键入=A3并按 +
  • 这将在引用其上方单元格的所有空白单元格中输入一个数组公式。
  • 重新选择A1:A8,然后编辑-复制
  • 然后编辑-粘贴特殊值。你都准备好了。

请注意,=A3指的是第一个空白单元格上方的单元格。

如果你想用宏来做,你可以遍历单元格并填写空的。

Public Sub FillBlanks()

    Dim rColumn As Range
    Dim rCell As Range

    If TypeName(Selection) = "Range" Then
        For Each rColumn In Selection.Columns
            For Each rCell In rColumn.Cells
                If rCell.Row > rColumn.Cells(1).Row Then
                    If IsEmpty(rCell.Value) Then
                        rCell.Value = rCell.Offset(-1).Value
                    End If
                End If
            Next rCell
        Next rColumn
    End If
End Sub
于 2010-09-21T17:21:30.507 回答