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

¦X¨ÖÀx¦s®æ

¦X¨ÖÀx¦s®æ

½Ð±Ð¦U¦ì¥ý¶i¨Ã«ü¾É
  ·í$q$5="A"®É
   Range ±q d7:d146
   Àx¦s®æ d7:d10 --¦X¨Ö  d11:d14  --¦X¨Ö  d15:d18 --¦X¨Ö  ¥H¦¹Ãþ±À¦Ü d146
§_«h  Àx¦s®æ d7:d8 --¦X¨Ö  d9:d10 --¦X¨Ö  d11:d12 --¦X¨Ö ¥H¦¹Ãþ±À¦Ü d146

¦^´_ 1# jim
  1. Sub ex()
  2. k = IIf([Q5] = "A", 4, 2)
  3. [D7:D146].UnMerge
  4. r = 7
  5. Do Until r >= 146
  6. Cells(r, 4).Resize(k, 1).Merge
  7. r = r + k
  8. Loop
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
¦hÁÂÀ°¦£ µ{¦¡¥i°õ¦æ ¦ý¬O¥X²{¤è¶ô ( §A©Ò¿ïªº½d³ò¤º¥]§t¦³¦h­Ó¸ê®Æ­È-----)
¥²¶·«ö½T©w , ¥B¤@¦¸¤~¯à°õ¦æ¤@®æ ,¬O§_¦³¿ìªkÅý¤è¶ô¤£¥X²{ ª½±µ½T©w¨Ã¤@¦¸°õ¦æ§¹²¦

TOP

¦^´_ 3# jim
¤w¸Ñ¨M §Ú§â¦p¤U»yªk¥[¤W
Application.ScreenUpdating = False
Application.DisplayAlerts = False

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD