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

[µo°Ý] ½Ð°Ý Excel VBA ½Æ»s«ç»ò¼g

[µo°Ý] ½Ð°Ý Excel VBA ½Æ»s«ç»ò¼g

½Ð°Ý¦U¦ì°ª¤â¤j¤j
¤p§Ì·Q¼g¤@¬qExcel VBA

     A     B      C
1 ¤ì¥Ê  2     ¤ì¥Ê
2 »ñ±ù  1     ¤ì¥Ê
3 ¤ô±ù  0     »ñ±ù
4 Ä«ªG  3     Ä«ªG
5 ­»¿¼         Ä«ªG
6                  Ä«ªG
7
.
.
.
.
.
65536
­n¦p¦ó±NAÄæ­¼BÄ檺¼Æ­È½Æ»s¨ìCÄæ
§Ú¬O·s¤H

1 ¤ì¥Ê  2     =>¤ì¥Ê
2 »ñ±ù  1     =>¤ì¥Ê
3 ¤ô±ù  0     =>»ñ±ù
4 Ä«ªG  3     =>Ä«ªG

¤p§Ì¾q¶w, ¬Ý¤£À´¨ä¤¤ªº³W«h

TOP

A           B        C
1 ¤ì¥Ê   2     ¤ì¥Ê
2 »ñ±ù   1     ¤ì¥Ê
3 ¤ô±ù   0     »ñ±ù
4 Ä«ªG   3     Ä«ªG
5 ­»¿¼          Ä«ªG
6                   Ä«ªG
7
.
.
.
.
.
65536
­n¦p¦ó±NAÄæ­¼BÄ檺¼Æ­È½Æ»s¨ìCÄæ
¤£¦n·N«ä¤p§Ì¼g±o¤ÓÅ¢²Î¤F
¦pªGA.BÄæ³£¤£¬OªÅ¥Õ
¨ÒA1=¤ì¥Ê §PÂ_B1ªº¼Æ­È¤£¬O0©ÎªÅ¥Õ¨Ò¦p2 ¨º½Æ»s¨ìC1©MC2¤ì¥Ê
  A2=»ñ±ù §PÂ_B2ªº¼Æ­È¤£¬O0©ÎªÅ¥Õ¨Ò¦p1 ´N±qC3¶}©l½Æ»s »ñ±ù
  A3=¤ô±ù §PÂ_B3ªº¼Æ­È¤£¬O0©ÎªÅ¥Õ¨Ò¦p0 ´N¤£½Æ»s
  A4=Ä«ªG §PÂ_B4ªº¼Æ­È¤£¬O0©ÎªÅ¥Õ¨Ò¦p3 ´N±qC4¶}©l½Æ»s »ñ±ù ¨ìC6
  A5=­»¿¼ §PÂ_B5ªº¼Æ­È¤£¬O0©ÎªÅ¥Õ¨Ò¦p:ªÅ¥Õ ´N¤£½Æ»s
§Ú¬O·s¤H

TOP

¦^´_ 3# wanggy77
¬O³o¼Ë¶Ü¡H
  1. Public Sub test()
  2. cc = 1
  3. Range("C1:C" & Range("C65535").End(xlUp).Row).ClearContents
  4. For Each Rng In Range("A1:A" & Range("A65535").End(xlUp).Row)
  5.     aa = Rng.Offset(, 1)
  6.     If aa = 0 And aa = "" Then GoTo 100
  7.     For I = 1 To aa
  8.             Cells(cc, 3) = Rng
  9.             cc = cc + 1
  10.     Next
  11. 100:
  12. Next
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# lpk187


    ¤j¤j¤Ó¼F®`¤F  ·PÁ¤F
§Ú¬O·s¤H

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD