文章目录
 
前言
一、用vba编辑单元格内容
二、合并两个单元格内容
总结

 
 
前言
 
本文实现两个步骤：
 (1)用vba编辑单元格内容；
 (2)用vba合并两个单元格的内容；
 前提：启用Excel开发工具
 
 
一、用vba编辑单元格内容
 
举例：
 代码如下：
 
Sub bianji()
  Content = Cells(9, 3)
  Cells(9, 3) = Content & " " & "Hello XiaoMing"
  MsgBox "bianji  completed"
End Sub
 
运行结果：
 
 
二、合并两个单元格内容
 
举例：
 

 将B7，B8内容合并到B9里
 
代码如下（示例）：
 
Sub hebing()
 Cells(9, 2) = Cells(7, 2) & vbCrLf & Cells(8, 2)
 MsgBox "hebin completed"
End Sub
 
运行结果：
 
 
 
总结
 
以上就是今天要讲的内容，本文仅仅简单介绍了vba的基本使用方法，而vba提供了大量能使我们快速便捷地处理数据的函数和方法。

前言
 
平时工作中经常会用到excel的功能, 难免有一些操作不能批量处理, 比如说某一列有100w的数据需要合并单元格, 手动去点的话, 费时费力, 又不能保证准确性. 此时一般有三种办法, 1.请出公式大神 2.vba 3.vbs 论效率和学习成本来说, vba是最佳方案.
 
效果展示
 
 
完整宏代码
 
Sub MergeRange()
 Dim rngData As Range
 Dim i&, lngCol&, lngFirst, lngLast
 On Error Resume Next
 Set rngData = Application.InputBox(“请选择单列数据列！”, Default:=Selection.Address, Type:=8)
 Set rngData = Intersect(rngData.Parent.UsedRange, rngData)
 lngCol = rngData.Column 'rngData所在列
 lngFirst = rngData.Row
 lngLast = lngFirst + rngData.Rows.Count - 1
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 rngData.Parent.Select
 For i = lngLast To lngFirst + 1 Step -1
 If Cells(i, lngCol) = Cells(i - 1, lngCol) Then
 Cells(i - 1, lngCol).Resize(2, 1).Merge
 End If
 Next
 rngData.VerticalAlignment = xlCenter
 Application.ScreenUpdating = True
 Application.DisplayAlerts = True
 MsgBox “合并完成。”
 End Sub
 
后记
 
如果对vba及宏的使用不太熟悉可以下载链接文件参考练习, 如何开启宏的功能请百度一下, 在此不赘述了.
 下载链接

在Excel中，使用合并单元格功能时，最后的结果将只是所合并区域左上角单元格中的数据，如图1所示。
 
 然而，很多时候我们都需要在合并的同时也能保留单元格的的数据。下面的程序在合并单元格后将保留合并单元格区域中所有单元格中的数据。
 
Sub MergeCellsAndValues()
	Dim rng As Range    
	Dim strResult As String       
	On Error Resume Next       
	For Each rng In Selection       '可以将" "更换为你自已的分隔符号       
		strResult = strResult & rng.Value & " "   
	Next rng       
	strResult= Left(strResult, Len(strResult) - 2)       
	
	With Selection        
		.Clear       
		.Cells(1).Value = strResult        
		.Merge       
		.HorizontalAlignment = xlLeft       
		.VerticalAlignment = xlCenter       
		.WrapText = True    
	End With
End Sub
 
代码首先遍历所要合并的单元格并将这些单元格中的值连接成一个字符串存储在指定的变量中，示例中使用空格（” ”）来分隔各单元格的数据，你可以修改为其他分隔符，例如逗号。代码运行后的效果如图所示。
 

一、功能
 
选中单元格，在进行合并时，单元格的内容也进行合并，而不只是保留左上角单元格。
 
二、代码示例
 
Sub hebing()
Dim s As String, c As Range
    If TypeName(Selection) = "Range" Then
        For Each c In Selection
        s = s & c.Value
        Next
      Application.DisplayAlerts = False
        Selection.Merge
        Selection.Value = s
      Application.DisplayAlerts = True
    End If
End Sub
 
三、特别说明
 
Selection.Merge 
 这个语句是要合并单元格，如果注释掉会有另外一个效果； 
 
 
PS：初步学习VBA，该例子是《VBA实战技巧精粹》上的，但是现在有个疑问，如果是很多行需要合并，怎么操作？现在还不会，等琢磨出来了再补充。