宏中copy命令的结果受到后面赋值语句的影响？

i3myself

yjh_27 发表于 2021-2-7 15:37
其他程序是 excle VBA 之外的?
用特定单元格保存

excel之外的，比如去网页里填信息，或者在word中使用之类的

wzqoo

感觉是EXCEL在复制单元格是并没有实际复制到剪贴板里，而是在粘贴操作时直接从源单元格COPY过来的。可用下面方法解决：
Sub 宏1()
   
    Dim MyData As New DataObject
   
    Dim strsum, strtmp As String
    Dim celltmp As Range

    For Each celltmp In Selection
     strsum = strsum & celltmp.Value & "、"
    Next

    'strtmp = Cells(1, 1).Value
    'Cells(1, 1).Value = strsum
   
    MyData.SetText strsum, 1
    MyData.PutInClipboard
   
    'Call Cells(1, 1).Copy
   
    'MsgBox "copied"
    'Cells(1, 1).Value = strtmp
    End Sub

i3myself

如果把msgbox的注释去掉，用msgbox把vba暂停一下，去其他程序中粘贴结果就是想要的了

i3myself

按照楼上两位大神的意思，是不是可以理解为用copy进行复制的时候，剪贴板里的内容是对于单元格的引用，而不是单元格中内容的引用？

wzqoo

简单的测试了一下，大胆猜测：COPY操作仅是把一个地址放到剪贴板里，所以源数据改变时粘贴操作也随之改变。

i3myself

wzqoo 发表于 2021-2-7 16:44
简单的测试了一下，大胆猜测：COPY操作仅是把一个地址放到剪贴板里，所以源数据改变时粘贴操作也随之改变。

我也是这么猜的，但是把msgbox取消注释之后，剪贴板中内容就是原来内容，哪怕不在其他程序中进行粘贴也不影响剪贴板中内容

i3myself

wzqoo 发表于 2021-2-7 16:13
感觉是EXCEL在复制单元格是并没有实际复制到剪贴板里，而是在粘贴操作时直接从源单元格COPY过来的。可用下 ...

谢谢，这个是比较正规的解决方法，原来想省个事来着