返回列表 上一主題 發帖

[發問] 儲存格先取消合併後再合併

試試看
  1. Sub test()

  2.     Dim s1, s2, s3, s4 As Integer
  3.     s1 = 3: s2 = 3: s3 = 7: s4 = 4
  4.    
  5.     Range("C3:D7").UnMerge
  6.     Range("C3:D7").Merge
  7.     '若是用您的Cells(s1,s2)為儲存格,則可用另一種方式
  8.     '假設您的另一個儲存格為Cells(s3,s4)
  9.     'Range(Cells(s1, s2), Cells(s3, s4)).UnMerge
  10.     'Range(Cells(s1, s2), Cells(s3, s4)).Merge
  11. End Sub
複製代碼
回復 1# gctsai
PKKO

TOP

        靜思自在 : 話多不如話少,話少不如話好。
返回列表 上一主題