owen06

Ãþ¦ü³o¼Ëªº·§©À¶Ü¡H

1. Sub test()
   
2. For i = 2 To 10
   
3. If Sheet1.[a4] = "" Then Exit Sub
   
4.      If Sheet1.Cells(i, 1) = "" Then
   
5.      Sheet1.Cells(i, 5) = "V"
   
6.      Else: Sheet1.Cells(i, 5) = ""
   
7.      End If
   
8. Next
   
9. End Sub

½Æ»s¥N½X

¦^´_ 1# av8d

owen06

1. Sub test()
   
2. Dim LR As Long
   
3. LR = Sheet1.[a65536].End(3).Row
   
4. For i = 2 To LR
   
5.      If Sheet1.Cells(i, 1) = "" Then
   
6.      Sheet1.Cells(i, 5) = "V"
   
7.      Else: Sheet1.Cells(i, 5) = ""
   
8.      End If
   
9. Next
   
10. End Sub

½Æ»s¥N½X

¦^´_ 3# av8d

owen06

¦^´_ 5# av8d


     ·íµM¬O²Ä¤G­Ó¤èªk³Ì¦n§r¡A
     [a65536].end(3)=[a65536].end(xlup)
     µ¥©ó¬O§A¦ba65536®É«öµÛctrl¥[¤è¦VÁä¤W¡A
     §A¦Û¤v¥h«ö¬Ý¬Ý¡A´Nª¾¹Dµ²ªG¤F¡C
     ¥L·|¦Û°Ê§PÂ_¥X¥X¸ê®Æ¹ê»Úªº½d³ò¨ì­þ¡A
     ´N¤£¥Î¦b¨ºÃä§ï¨Ó§ï¥h³]©w­È¤F¡C
   
      .end(1)=.end(xltoleft)=Áä½Lctrl+¥ª
      .end(2)=.end(xltoright)=Áä½Lctrl+¥k
      .end(3)=.end(xlup)=Áä½Lctrl+¤W
      .end(4)=.end(xldown)=Áä½Lctrl+¤U