- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
2#
發表於 2014-11-15 23:19
| 只看該作者
試試看- Sub test()
- Dim s1, s2, s3, s4 As Integer
- s1 = 3: s2 = 3: s3 = 7: s4 = 4
-
- Range("C3:D7").UnMerge
- Range("C3:D7").Merge
- '若是用您的Cells(s1,s2)為儲存格,則可用另一種方式
- '假設您的另一個儲存格為Cells(s3,s4)
- 'Range(Cells(s1, s2), Cells(s3, s4)).UnMerge
- 'Range(Cells(s1, s2), Cells(s3, s4)).Merge
- End Sub
複製代碼 回復 1# gctsai |
|