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

¦p¦óÅý¬Û¦P¤º®eªºªí®æ¦X¨Ö

¦^´_ 9# deyan
³o¬O317ªºµ{¦¡½X§Ú¥N¶K¤W,¼gªº«Ü¦n.
  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 - 1, 2)).Merge
  11. Loop
  12. Application.DisplayAlerts = True
  13. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ¡I¤èªk¸ò§Ú·Qªº«Ü¹³¡A¥u¬O§Ú¼g¤£¥X¨Ó

½Ð°Ý MYROW = Cells([B:B].Find("*", , , , , 2).Row, 1).Row

³o¦æ¤¤.Find("*", , , , , 2) ¥Nªí¤°»ò·N«ä¡H
deyan

TOP

®¼®e©ö²z¸Ñªº¥N½X
¾Ç²ß¤F
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD