[µo°Ý] ¦Û°Ê²£¥Í¹³¦¸½s¸¹

lionliu

¦U¦ì¤j¤j¦n
¤p§Ì¼g¤F¤@­Ó¦Û°Ê²£¥Í¹³¦¸¸¹½X¥¨¶°¡A¦ý¬O¤@ª½µLªk¶¶§Q§¹¦¨¡C
·Q½Ð±ÐÀ³¦p¦ó­×§ï¡C
cakno     desc         ¼Æ¶q
1              qwwe       123
                 asd-1
2             we111       234
                a21-1
               2333-1
3             wervv        23
¬¡­¶Ã¯1.rar (7.38 KB)

¤U¸ü¦¸¼Æ: 9

2014-11-21 10:35

owen06

¦^´_ 1# lionliu


    ½Ð°Ý¬O­nÅý¥»¨ÓªÅ¥ÕªºchknoÄæ¡A¦Û°Ê²£¥Í¥X½s¸¹¶Ü¡H
    ¦pªG¬Oªº¸Ü¸Õ¸Õ¬Ý³o¼Ë¡C

1. Sub chkno()
   
2. Dim rcnt As Integer
   
3. Dim i, J As Integer
   
4. rcnt = Cells(Rows.Count, 2).End(xlUp).Row
   
5. 
   
6. For i = 5 To rcnt
   
7.    
   
8.     If Cells(i, 3) <> Empty Then
   
9.      J = J + 1
   
10.     Cells(i, 1) = J
    
11.   
    
12.     Else
    
13.     Cells(i, 1) = ""
    
14.         
    
15.     End If
    
16. 
    
17. Next i
    
18. End Sub

½Æ»s¥N½X

lionliu

¦^´_ 2# owen06
ÁÂÁÂ owen06
´ú¸Õ ¥i¥H¤FÁÂÁÂ

owen06

¦^´_ 3# lionliu


    ¤U¦¸·íµo¥Í³oºØ¤£ª¾¹D¦Û¤v¼gªºµ{¦¡­þÃ䦳°ÝÃDªº®É­Ô¡A´N«öf8³v¦æ°õ¦æ¡A
    ¬Ý¬Ý³]©wÅܼƪºÅܤơA³o¼Ë´N¯àµo²{°ÝÃD¥X¦b­þ¤F¡C

GBKEE

¦^´_ 3# lionliu
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, e As Range, i As Integer
   
4.     On Error GoTo Is_Err          'µ{¦¡½X¦³¿ù»~®É¨ì Is_Err¦æ
   
5.     Set Rng = Range("C5", Range("C" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
   
6.     'SpecialCells:½d³ò¤¤«ü©w xlCellTypeConstants¡C¥]§t±`¼ÆªºÀx¦s®æ
   
7.     'SpecialCells:½d³ò¤¤¨S¦³«ü©wªº¯S®íÀx¦s®æ,µ{¦¡·|¦³¿ù»~
   
8.         For Each e In Rng.Cells
   
9.             i = i + 1
   
10.             Cells(e.Row, "a") = i
    
11.          Next
    
12. Is_Err:
    
13. If Err > 0 Then MsgBox "qtyÄ椤 ¨S¦³¼Æ¦r"
    
14. End Sub

½Æ»s¥N½X

lionliu

¦^´_ 5# GBKEE
·PÁ gbkee¤j­ôªº¦^ÂÐ
Åý§Úªº¦³§ó¦hªº¾Ç²ßªÅ¶¡
ÁÂÁÂ!