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

[µo°Ý] Àx¦s®æ¬Û¦P¤º®e¡@¦Û°Ê¦X¨Ö

[µo°Ý] Àx¦s®æ¬Û¦P¤º®e¡@¦Û°Ê¦X¨Ö

½Ð°Ý¥iÀ°¸ÑÄÀ¥H¤U¥N½Xªº¦U²[¸q¶Ü¡H
¦]¦³¦n´X­ÓÄæ¦ì»Ý­n¦¹¥\¯à¡A©Ò¥H·Q¤F¸Ñ¤~ª¾¹D«ç»ò§ï
¦ý¸ÕµÛ§ï¦¨Åý¥L¥u¦X¨Ö¢ÏÄæ¡A«oÅܦ¨¥u¦X¨Ö¨â­Ó¦P¼Ë¬Û¦P­È
  1. Sub nn()
  2. Dim A As Range, r&
  3. Application.DisplayAlerts = False
  4. r = 3
  5. Do While Cells(r, 2) <> ""
  6.    Set A = Cells(r, 2)
  7.    Do Until Cells(r, 2) <> A
  8.    r = r + 1
  9.    Loop
  10.    Range(A, Cells(r - 2, 2)).Merge
  11. Loop
  12. Application.DisplayAlerts = True
  13. End Sub
½Æ»s¥N½X
¬Û¦P¤º®eªºÀx¦s®æ¦X¨Ö.rar (9.86 KB)

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD