ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦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)
lionliu

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-11-21 11:29 ½s¿è

¦^´_ 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. For i = 5 To rcnt
  6.    
  7.     If Cells(i, 3) <> Empty Then
  8.      J = J + 1
  9.     Cells(i, 1) = J
  10.   
  11.     Else
  12.     Cells(i, 1) = ""
  13.         
  14.     End If

  15. Next i
  16. End Sub
½Æ»s¥N½X

TOP

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

TOP

¦^´_ 3# lionliu


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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD