¦X¨ÖÀx¦s®æ

jim

½Ð±Ð¦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

jim

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

jim

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

Hsieh

¦^´_ 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