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

enoch

例如在A1 , A5, A6, A10 都有資料
若在A1開始, 如何確定下一個有資料儲存格是A5
再下一個是A6及A10

請指教

cji3cj6xu6

你只是要看a1 ～ a10的儲存格裡是否不是空白是嗎？如果是的話以下應該可以參考～

for address =1 to 10
if range("a" & address)="" then
........

next address

stillfish00

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

GBKEE

回復 3# stillfish00
樓主會是要這樣嗎?

1. Option Explicit
   
2. Sub TEST()
   
3.   Dim a
   
4.   For Each a In Range("A:A").SpecialCells(xlCellTypeConstants).Areas
   
5.     a.Select
   
6.   Next
   
7. End Sub

複製代碼

enoch

是要這答案, 又學多了一樣, 謝謝

enoch

發現有問題出現,
因為程式中想逐一知道各儲存格出現的行數位置
但當儲存格是連續時, 如A5:A7 都有資料
只知道第一行位置A5 , 跳過了第6同7行,
可以解決這問題嗎?
請指教

enoch

願來不要 Area 就可以
For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)

GBKEE

回復 6# enoch

1. Option Explicit
   
2. Sub TEST()
   
3.   Dim a
   
4.   For Each a In Range("A:A").SpecialCells(xlCellTypeConstants).Areas
   
5.     a.Cells(1).Select
   
6.   Next
   
7. End Sub

複製代碼