原创:用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板 一.主要实现以下功能:1.用鼠标选择单元格(可谓连续单元格,也可为不连续的)后,按照要求格式“证件号码:+选定内容+“,”+”选定内容“等等进行合并2.合并后的内容,直接复制到剪切板二.代码示例: Sub TestA() Set a = New DataObject '情况存放合并结果的单元格内容 Range("B2") = "" '开始合并选择单元格的内容 For Each C In Select
Private Sub SaveAndClear() Dim Header, Deatil, Order As Range Dim lastrow1, lastrow2 As Long Dim i As Integer lastrow1 = Sheet1.[B65536].End(xlUp).Row '取得sheet1 B列末行向上第一个有值的行数 Worksheets("sheet1").Activate Set Header = Range("C3, E3, G3, G4