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

[µo°Ý] ¦p¦ó¦bAÄæ ¦Û°Ê¶ñ¤W½s¸¹

[µo°Ý] ¦p¦ó¦bAÄæ ¦Û°Ê¶ñ¤W½s¸¹

¦p¦ó¦bAÄæ ¦Û°Ê¶ñ¤W½s¸¹¡A½Ð¦U¦ì°ª¤â«ü敎³oµ{¦¡½X¦p¦ó¼g? ÁÂÁÂ!!
AÄæ          BÄæ
               1234
               23
               123

               234
               567
               
               123
               678
               4567
               185

§¹¦¨«á
AÄæ          BÄæ
1             1234
1             23
1             123

2             234
2             567
               
3             123
3             678
3             4567
3             185

¦^´_ 1# aoss98
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro   
  4. MyBRow = 1
  5. MyANo = 1   
  6.    
  7.     Range("B65536").Select
  8.    Selection.End(xlUp).Select   
  9.    MyRow = Selection.Row   
  10.     Do   
  11.     If Range("B" & MyBRow).Value = "" Then   
  12.     MyBRow = MyBRow + 1   
  13.     MyANo = MyANo + 1
  14.     Else     
  15.     Range("A" & MyBRow).Value = MyANo   
  16.     MyBRow = MyBRow + 1        
  17.     End If   
  18.     Loop Until MyBRow = MyRow + 1           
  19. End Sub
½Æ»s¥N½X
§Ú¥u·|¥Î¤@¯ëªºvba ><
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

Dim iI%, iNum%, bCheck As Boolean, bNext As Boolean

  iI = 0
  iNum = 1
  bNext = False
  bCheck = True

  With Sheets(1)
    While bCheck
      iI = iI + 1
      If .Cells(iI, 2) <> "" Then
        .Cells(iI, 1) = iNum
        bNext = False
      Else
        If bNext = True Then
          bCheck = False
        Else
          iNum = iNum + 1
          bNext = True
        End If
      End If
    Wend
  End With

³æ¯Â°w¹ï¨C¤@­Ó¥i¯à¦C¥X­n°µªº¨Æ,
µM«áª`·N¤£­n¥X²{µL­­°j°é§Y¥i.

TOP

³o­Ó¤£¤@©w­n¥Îvba
°²³]¶}©l¦b A2 (§YB2=1234)
¦bA2 ¿é­Ó 1 (¦]¬°B2¦³ªF¦è)
¦bA3 ¿é³o­Ó¤½¦¡ = IF(B3="", "", IF( A2="", A1+1 , A2 ))
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

ÁÂÁ basarasy, luhpro ¨â¦ì«ü敎¡A°ÝÃD¤w¸Ñ¨M!!

TOP

¦^´_ 1# aoss98
  1. Sub nn()
  2. Set Rng = Range([B1], [B65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
  3. For i = 1 To Rng.Areas.Count
  4.    Set a = Rng.Areas(i)
  5.    For Each b In a
  6.       b.Offset(, -1) = i
  7.    Next
  8. Next
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¦U¦ì«ü±Ð!!!

TOP

¥»©«³Ì«á¥Ñ john2006168 ©ó 2010-7-29 00:50 ½s¿è
¦^´_  aoss98
Hsieh µoªí©ó 2010-7-27 22:22


tesst2010.zip (8.4 KB)
    ¦Ñ®v,§Ú¦³Ãþ¦üªº°ÝÃD¬Û¦Pªº°ÝÃD,½Ð°Ý¥ÎVBA«ç»ò¼g

tesst2010.zip (8.4 KB)

TOP

¦^´_ 8# john2006168
  1. Sub nn()
  2. Dim Rng As Range
  3. [A10].Insert xlToRight
  4. [A10] = "plt no"
  5. Set Rng = Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
  6. For i = 1 To Rng.Areas.Count
  7. mystr = Rng.Areas(i).Address
  8.    Rng.Areas(i).Insert xlToRight
  9.    Range(mystr).Value = i
  10. Next
  11. Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# Hsieh


    ¦Ñ®v¦pªGplt no¥Î01 ,02,03ªí¥Ü,À³¸Ó«ç»ò§ï

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD