怎样使用VBA合并数据并居中

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Sub 合并居中() Dim i%, counts婊剧琏兄%, sTem$ Application.ScreenUpdating=FalseAppl足毂忍珩ication.DisplayAlerts=FalseRng_count=Selection.CountFor i=1 To Rng_count sTem=sTem & Selection.Cells(i)NextWith Selection .MergeCells=True .HorizontalAlignment=xlCenter .VerticalAlignment=xlCenter .NumberFormatLocal="@" .Value=sTemEnd WithApplication.DisplayAlerts=TrueApplication.ScreenUpdating=TrueEnd Sub

5、选中有数据的单元格A2∶C2，利用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，则单元格及数据均被合并