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

[µo°Ý] ¶µ¦¸¦Û°ÊÅܧó

[µo°Ý] ¶µ¦¸¦Û°ÊÅܧó

½Ð°Ý¦U¦ì¤j®v
¦pªþ¥ósheet1¤@¼Ë¶µ¦¸µ¹¤©¤F
¦Ó­n§R°£²Ä¤­¶µ
Åܦ¨¹³¬Osheet2¤@¼Ë
­n¦p¦ó°µ??
¥i¥Hªº¸Ü¶}ÀɩΦsÀɪº®É­Ô¥i¥H¦Û°Ê°õ¦æ³]©w¦nªº¥¨¶°¶Ü?

0724.rar (1.69 KB)

¦^´_ 1# toxin
¬Ý¤£¥X§A¬O­n¦p¦ó§ïÅÜ

¥i¥Hªº¸Ü¶}ÀɩΦsÀɪº®É­Ô¥i¥H¦Û°Ê°õ¦æ³]©w¦nªº¥¨¶°¶Ü   
¦p¹Ï

TOP

¥»©«³Ì«á¥Ñ toxin ©ó 2012-7-25 08:07 ½s¿è

¦^´_ 2# GBKEE

©êºpÁÙ¨S§ï...
©Ò¥H­n¬Ý¤º¤å
¥D­n¬Osheet1ªº²Ä10¦C§R°£®É
²Ä7¶µ¦¸¦Û°Ê§ï¦¨²Ä6¶µ¦¸

TOP

¦^´_ 3# toxin
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, R As Integer, i As Integer
  4.     Set Rng = Range("a1").CurrentRegion             'CurrentRegion : ¨ú±oAÄ檺¥Ø«e°Ï°ì-> ¬O«ü¥H¥ô·NªÅ¥Õ¦C¤ÎªÅ¥ÕÄ檺²Õ¦X¬°Ãä¬Éªº½d³ò
  5.     R = 1                                           '¶µ¦¸±q1 ¶}©l
  6.     i = 2                                           '²Ä2¦C ¶}©l
  7.     Do
  8.         Rng.Cells(i, 1) = R                          'Rng.Cells(i, 1) :¥Ø«e°Ï°ìªº²Ä¤@Äæ
  9.         i = i + Rng.Cells(i, 1).MergeArea.Rows.Count '­pºâÀx¦s®æ¦X¨Ö½d³òªº¦C¼Æ
  10.         R = R + 1                                    '¶µ¦¸¦A¥[1
  11.     Loop While i <= Rng.Rows.Count                   '°õ¦æ°j°é:  Rng.Rows.Count - ­pºâ½d³òªº¦C¼Æ
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE

·PÁÂGBKEEª©¥Dªº¤j¤OÀ°¦£
¸ÕÅç¹L¤@¤Á¥¿±`
¤p³¡¥÷¦]»Ý¨D°ÝÃD§Ú¦b¦Û¤v§ï´N¦n¤FÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD