首页 > 代码库 > 原创:用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板
原创:用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板
原创:用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板
一、主要实现以下功能:
1、用鼠标选择单元格(可谓连续单元格,也可为不连续的)后,按照要求格式“证件号码:+选定内容+“,”+”选定内容“等等进行合并
2、合并后的内容,直接复制到剪切板
二、代码示例:
Sub TestA()Set a = New DataObject‘情况存放合并结果的单元格内容Range("B2") = ""‘开始合并选择单元格的内容For Each C In SelectionRange("B2").Value = http://www.mamicode.com/Range("B2").Value & C.Value & ","Next‘将汇总结果复制到剪切板Range("B2") = "证件号码:" & Range("B2")Range("B2").SelectRange("B2") = Left(Range("B2"), Len(Range("B2")) - 1)Range("B2") = Range("B2") & "。"‘Range("B2").Select‘Selection.copy‘-------------a.SetText Range("B2")a.PutInClipboardEnd Sub
三、示例文件及操作视频下载地址:
加入QQ群,在群共享中可下载示例文件及演示视频:
QQ群:303625469
微信:Excel_Cortana
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。