[µo°Ý] Àx¦s®æ¥ý¨ú®ø¦X¨Ö«á¦A¦X¨Ö

gctsai

½Ð°Ý¤j¤j
§Úªºµ{¦¡Cells(s1,s2)     °²³]­È¬°c3
²{¦b§Ú·Q­n±NC3¨ìD7ªºÀx¦s®æ¥ý¨ú®ø¦X¨Ö«á¦A¦X¨Ö
PS¦]¬°­ì¥ý¦X¨ÖªºÀx§µ®æ¤£¬O§Ú­nªº(­ì¥ý¬OC4»PD4¦X¨Ö)

PKKO

¸Õ¸Õ¬Ý

1. Sub test()
   
2. 
   
3.     Dim s1, s2, s3, s4 As Integer
   
4.     s1 = 3: s2 = 3: s3 = 7: s4 = 4
   
5.    
   
6.     Range("C3:D7").UnMerge
   
7.     Range("C3:D7").Merge
   
8.     '­Y¬O¥Î±zªºCells(s1,s2)¬°Àx¦s®æ,«h¥i¥Î¥t¤@ºØ¤è¦¡
   
9.     '°²³]±zªº¥t¤@­ÓÀx¦s®æ¬°Cells(s3,s4)
   
10.     'Range(Cells(s1, s2), Cells(s3, s4)).UnMerge
    
11.     'Range(Cells(s1, s2), Cells(s3, s4)).Merge
    
12. End Sub

½Æ»s¥N½X

¦^´_ 1# gctsai

gctsai

ÁÂÁ¤j¤j,¤w¸g§ä¨ìµª®×¤F