次の方法で共有


Application.Cells プロパティ (Excel)

作業中のワークシートのすべてのセルを表す Range オブジェクトを返します。 作業中の文書がワークシートでない場合、このプロパティは無効になります。

構文

.セル

expressionApplication オブジェクトを 表す変数。

注釈

Item プロパティは Range オブジェクトに対する既定のプロパティであるため、Cells キーワードの後に続けて行および列のインデックスをすぐに指定できます。 詳細については、このトピックの Item プロパティおよび使用例を参照してください。

このプロパティでオブジェクト修飾子を指定しないコードを使用すると、アクティブ シートのすべてのセルを表す Range オブジェクトが返されます。

次の使用例では、各行のデータを確認し、列 A の値が変わるたびに空白行を挿入します。

Sub ChangeInsertRows()
    Application.ScreenUpdating = False
    Dim xRow As Long
    
    For xRow = Application.Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
        If Application.Cells(xRow, 1).Value <> Application.Cells(xRow - 1, 1).Value Then Rows(xRow).Resize(1).Insert
    Next xRow
    
    Application.ScreenUpdating = True
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。