国产探花免费观看_亚洲丰满少妇自慰呻吟_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如何快速批量合并相同內容方法介紹,希望能對大家有所幫助!

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 成都市| 祥云县| 岐山县| 绥芬河市| 台江县| 淄博市| 武清区| 钟山县| 济南市| 嫩江县| 类乌齐县| 邵阳市| 象州县| 沽源县| 阳东县| 故城县| 黄浦区| 阳西县| 正蓝旗| 阿瓦提县| 扬州市| 东阿县| 宝山区| 博白县| 化德县| 太和县| 大英县| 深水埗区| 大田县| 长沙市| 固原市| 柏乡县| 波密县| 洛南县| 马公市| 应城市| 河北省| 仙居县| 乐至县| 西藏| 大港区|