excel - 連続していない空白セルに、最初の空白の上のセルの値を入力します

Question

次のような列があります。

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

空白は、その上のレコードを参照します。したがって、#4 は赤に関連付けられ、6 と 7 は青に関連付けられます。

列全体の空白を簡単に埋める方法はありますか?

Answer 1

• を選択しA1:A8ます。
• を押すF5と、Gotoダイアログが表示されます。
• Special ..... をクリックし、Blanks を選択してOK をクリックします。

これにより、連続していない空白セルの範囲が選択されます。

• 次に、何も選択せずに、タイプしてcontrol + enter=A3を押します。
• これにより、その上のセルを参照するすべての空白セルに配列数式が入力されます。
• 再選択A1:A8し、編集 - コピーします。
• 次にEdit - Paste Special - Values。これで準備完了です。

は、最初の空白セル=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