¦p¦ó´M§ä¦P¤@Äæ¤U¤@­ÓÀx¦s®æ¦³¸ê®Æ¦ì¸m

enoch

¨Ò¦p¦bA1 , A5, A6, A10 ³£¦³¸ê®Æ
­Y¦bA1¶}©l, ¦p¦ó½T©w¤U¤@­Ó¦³¸ê®ÆÀx¦s®æ¬OA5
¦A¤U¤@­Ó¬OA6¤ÎA10

½Ð«ü±Ð

cji3cj6xu6

§A¥u¬O­n¬Ýa1 ¡ã a10ªºÀx¦s®æ¸Ì¬O§_¤£¬OªÅ¥Õ¬O¶Ü¡H¦pªG¬Oªº¸Ü¥H¤UÀ³¸Ó¥i¥H°Ñ¦Ò¡ã

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

½Æ»s¥N½X

¦^´_ 1# enoch

GBKEE

¦^´_ 3# stillfish00
¼Ó¥D·|¬O­n³o¼Ë¶Ü?

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

½Æ»s¥N½X

enoch

¬O­n³oµª®×, ¤S¾Ç¦h¤F¤@¼Ë, ÁÂÁÂ

enoch

µo²{¦³°ÝÃD¥X²{,
¦]¬°µ{¦¡¤¤·Q³v¤@ª¾¹D¦UÀx¦s®æ¥X²{ªº¦æ¼Æ¦ì¸m
¦ý·íÀx¦s®æ¬O³sÄò®É, ¦pA5:A7 ³£¦³¸ê®Æ
¥uª¾¹D²Ä¤@¦æ¦ì¸mA5 , ¸õ¹L¤F²Ä6¦P7¦æ,
¥i¥H¸Ñ¨M³o°ÝÃD¶Ü?
½Ð«ü±Ð

enoch

Ä@¨Ó¤£­n Area ´N¥i¥H
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

½Æ»s¥N½X