月光俠的電器行

有一段時間沒有記錄excel及VBA的使用記錄，今天，我們來談談合併儲存格

手動的使用方式是按滑鼠右鍵，選擇儲存格設定，然後把合併儲存格打勾

 

同樣的，VBA也可以利用程式來自動執行這些動作，動作流程很像實際的滑鼠操作：

1. 首先框出你要的資料

ActiveSheet.Range(Cells(Row_str, Col_cnt), Cells(Row_end, Col_cnt)).Select

2.按下滑鼠右鍵，改變合併儲存格的屬性，完成設定

With Selection
.MergeCells = True
End With

完整的程式碼如下：

ActiveSheet.Range(Cells(Row_str, Col_cnt), Cells(Row_end, Col_cnt)).Select
With Selection
.MergeCells = True
End With