摘要：
原创：用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板一、主要实现以下功能：1、用鼠标选择单元格（可谓连续单元格，也可为不连续的）后，按照要求格式“证件号码：+选定内容+“，”+”选定内容“等等进行合并2、合并后的内容，直接复制到剪切板二、代码示例：SubTestA()Seta=NewDataObject'情况存放合并结果的单元格内容Range("B2")=""'开始合并选择单元格的内
原创：用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板
一、主要实现以下功能：
1、用鼠标选择单元格（可谓连续单元格，也可为不连续的）后，按照要求格式“证件号码：+选定内容+“，”+”选定内容“等等进行合并
2、合并后的内容，直接复制到剪切板
二、代码示例：
SubTestA() Set a = NewDataObject '情况存放合并结果的单元格内容 Range("B2") = "" '开始合并选择单元格的内容 For Each C InSelection Range("B2").Value = Range("B2").Value & C.Value & "," Next '将汇总结果复制到剪切板 Range("B2") = "证件号码：" & Range("B2") Range("B2").Select Range("B2") = Left(Range("B2"), Len(Range("B2")) - 1) Range("B2") = Range("B2") & "。" 'Range("B2").Select 'Selection.copy '------------- a.SetText Range("B2") a.PutInClipboard End Sub
三、示例文件及操作视频下载地址：
加入QQ群，在群共享中可下载示例文件及演示视频：
QQ群：303625469
微信：Excel_Cortana
