国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

Excel如何快速批量合并相同內容?VBA法

2019-12-13 13:58:30
字體:
來源:轉載
供稿:網友

    這里我們介紹最后一種方法,也是最方便的方法,當然這些都是在寫好代碼的基礎上來說的,VBA法,VBA是excel自帶的一種編程語言,需要一定的基礎才能編寫,不過大家不用擔心,代碼比較通用,按照步驟操作即可。請看動畫演示   

 

工具/原料

電腦一臺

OFFICE-EXCEl2007及以上版本(2003略有差異)

軟件名稱:
Excel2007 綠色版精簡免費[58MB]
軟件大小:
58MB
更新時間:
2016-06-27

方法/步驟

  首先,我們在任意工作表標簽上右擊選擇,查看代碼,進入下一步。

   進入VBE界面以后,我們在工程窗口在,在工作表名稱中標簽上右擊插入,選擇插入模塊。

 模塊插好后,雙擊模塊,粘貼如下代碼:

復制內容到剪貼板
  1. Sub 合并單元格()   
  2.   
  3. Dim Mrow&, i&, k&, d As Object   
  4.   
  5. Application.DisplayAlerts = False   
  6.   
  7. Set d = CreateObject("scripting.dictionary")   
  8.   
  9. With Sheets(1)   
  10.   
  11. Mrow = .Cells(Rows.Count, 1).End(3).Row   
  12.   
  13. For i = 1 To Mrow   
  14.   
  15.     d(.Cells(i, 1)) = ""  
  16.   
  17. Next   
  18.   
  19. For k = 0 To d.Count - 1   
  20.   
  21.     For i = 1 To Mrow - 1   
  22.   
  23.         If .Cells(i, 1) = .Cells(i + 1, 1) Then   
  24.   
  25.             .Range("A" & i & ":A" & i + 1).Merge   
  26.   
  27.         End If   
  28.   
  29.     Next   
  30.   
  31. Next   
  32.   
  33. End With   
  34.   
  35. Application.DisplayAlerts = True   
  36.   
  37. End Sub   
  38.   

  代碼粘貼完成后,需要關閉VBE編輯框,點X標記即可關閉。

  在開發工具中點擊控件插入一個按鈕控件,在工作表中鼠標拖動一個大小合適的按鈕。

  右擊新建的按鈕,選擇指定宏,選擇我們合并單元格,即我們剛剛寫的代碼,然后點擊確定完成。

  一切OK之后,我們只需要輕輕點擊一下按鈕,看到了吧,已經合并好了。

就是這么簡單快捷。

以上就是Excel如何快速批量合并相同內容方法介紹,希望能對大家有所幫助!

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 屯留县| 河东区| 体育| 大洼县| 隆尧县| 正宁县| 交口县| 阳新县| 那曲县| 泾源县| 丹棱县| 平远县| 洪泽县| 阿克陶县| 张北县| 浦县| 延吉市| 武山县| 全椒县| 永昌县| 响水县| 闵行区| 祁门县| 南昌县| 西平县| 孟津县| 东阿县| 昌乐县| 清水河县| 邢台市| 阿图什市| 竹北市| 沙湾县| 筠连县| 苏尼特右旗| 崇信县| 井陉县| 旅游| 剑川县| 玉溪市| 益阳市|