VBA セルの操作空白セルの選択

空白セルの選択

構文
Object.SpecialCells(xlCellTypeBlanks).Select

Sub test1()

’ セルA2を含むセル範囲で、空白セルを選択する
Range("A2").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

End Sub

空白セルの埋め込み

Sub test2()

    Dim myRange As Range
   ’ 　セルA2を含むセル範囲で、空白セルを変数myRangeに代入
    Set myRange = Range("A2").CurrentRegion.SpecialCells(xlCellTypeBlanks)

    With myRange

　　 ’ 　値を"空白"にする

.Value = "空白"

　　 ’ 　背景色黄色にする

.Interior.Color = vbYellow
End With

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る

VBA セルの操作 空白セルの選択

VBA セルの操作空白セルの選択