怎样使用VBA合并数据并粘贴？

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

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

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

4、在模块当中输入如下代码，然后运行

Sub 合并后粘贴()

 

    Dim temp As String, TD As New DataObject, rng As Range

 

    On Error GoTo err

 

    For Each rng In Selection

 

      temp=temp & rng.Value '合并区域中的数据

 

    Next rng

 

    TD.SetText temp '将合并的文本复制到DataObject

 

    TD.PutInClipboard  '将DataObject中的文本移到剪贴板上

 

    End

 

err:

 

    MsgBox "对不起，您选择的不是单元格！", 64, "提示"

 

End Sub

5、选中单元格A4，单击鼠标右键，从弹出的快捷菜单中选择“粘贴”菜单