返回列表 上一主題 發帖

如何尋找同一欄下一個儲存格有資料位置

本帖最後由 stillfish00 於 2013-10-15 16:04 編輯
  1. Sub TEST()
  2.   Dim a
  3.   
  4.   For Each a In [A:A].SpecialCells(xlCellTypeConstants, 23)
  5.     Debug.Print a.Address(0, 0)
  6.   Next
  7. End Sub
複製代碼
回復 1# enoch

TOP

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題