共用方式為


Excel) (Application.Cells 屬性

會傳回 Range 物件,代表現用工作表上的所有儲存格。 如果使用中檔不是工作表,則此屬性會失敗。

語法

expression.Cells

expression 代表 Application 物件的變數。

註解

由於 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 支援與意見反應