1、第一步
打開Excel中點擊檔案，點擊選項，勾選下列選項
2、在任意作業表標簽上右擊選擇，查看代碼，進入下一步，
進入VBE界面以后，我們在工程視窗在，在作業表名稱中標簽上右擊插入，選擇插入模塊
模塊插好后，雙擊模塊，粘貼如下代碼：
Sub 合并單元格()
Dim a%, b%
Dim n As Long
n = Selection.Rows.Count '選中區域的行數
a = Selection.Row '選中區域的起始行
b = Selection.Column '選中區域的起始列
Application.DisplayAlerts = False '禁用警告提示
For i = a + n - 1 To a + 1 Step -1 '從選中區域的最后一個單元格向上回圈
If Cells(i - 1, b) = Cells(i, b) Then '若當前單元格內容與上一個單元格內容相同，則
Range(Cells(i - 1, b), Cells(i, b)).Merge '合并當前單元格和上一個單元格
End If
Next
Application.DisplayAlerts = True '恢復警告提示
End Sub
代碼粘貼完成后，需要關閉VBE編輯框，點X標記即可關閉，
在開發工具中點擊控制元件插入一個按鈕控制元件，在作業表中滑鼠拖動一個大小合適的按鈕
右擊新建的按鈕，選擇指定宏，選擇我們合并單元格，即我們剛剛寫的代碼，然后點擊確定完成
一切OK之后，在選中區域我們只需要輕輕點擊一下按鈕
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/387867.html
標籤：其他
上一篇：怎么樣學習Java？
下一篇：UI自動化平臺（一）