通过VBA代码合并单元格

 时间:2024-10-24 22:30:17

有时候,excel表格里同一列里面有许多相同的值(比跗柿椁焚如同一个部门、同一个老师),这时候我们就需要把相同值合并成一个单元格,以使exce造婷用痃l表格看起来更美观,更符合人们的审美。那么怎么办呢?今天我将与大家分享一个excel的一个使用技巧。

工具/原料

excel2003及以上版本。

键盘、鼠标可用

方法/步骤

1、为了给大家更好的演示,瘫蝠熨夯我在上次分享的基础上,做了一个样表给大家看。我们可以看出在A列上有许多相同值,我们将会通过办法来合并。

通过VBA代码合并单元格

2、右键点击表格所在工作表,选择查看代码。

通过VBA代码合并单元格

3、弹出VBA编辑页面。

通过VBA代码合并单元格

4、在此页面中输入VBA代码:OptionExplicitSubMacro1()A圬桦孰礅pplication.DisplayAlerts惺绅寨瞀=FalseDimiAsIntegerDimfirstAsIntegerDimlastAsIntegerfirst=1Fori=1To16Step1IfWorksheets("Sheet1").Range("A"&i)=Worksheets("Sheet1").Range("A"&i+1)ThenElselast=iWorksheets("Sheet1").Range("A"&first&":A"&last).SelectWithSelection.MergeCells=TrueEndWithfirst=i+1EndIfNextApplication.DisplayAlerts=TrueEndSub

通过VBA代码合并单元格

5、点击保存

通过VBA代码合并单元格

6、如果弹出如下信息,单击是,保存即可。

通过VBA代码合并单元格

7、回到工作表中,选择工具-宏

通过VBA代码合并单元格

8、选择宏,并打开它

通过VBA代码合并单元格

9、单击执行,excel将执行自动合并单元格。

通过VBA代码合并单元格

10、合并完的单元格效果如图所示。是不是很神奇呢?

通过VBA代码合并单元格

【Excel VBA】存储路径操作 在VBA中,检查文件是否存在? Excel表格使用VBA进行不重复的数组组合 Excel VBA实现取字符串中数字并求和 如何使用VBA在Excel切换工作表时弹出提醒
热门搜索
女仆装动漫 大苹果图片 美胸美女图片 成人动漫网址 烧纸正规写法图片