简化逻辑的跨工作表间的单元格处理及复制粘贴

njwtg

我简化了下逻辑，如何根据鼠标的容易框选范围，进行跨工作表间的单元格处理及复制粘贴，不知道这种功能能否实现。谢谢大师！

zjzyj

粘贴到哪里呢？

gwjkkkkk

请参考 附件。。。

njwtg

牛！这个功能竟然能实现，谢谢gwjkkkkk老师！

njwtg

请问老师？我想增加个功能，当第一个对话框出现，选择数据区域后，自动将该选中的区域变成黄色填充，这个就可以对已经复制的信息做个提示，然后再继续执行原来的程序
用自动录制的宏Sub Macro1()
'
' Macro4 Macro
' 宏由 Administrator 录制，时间: 2023/06/18
'

'
    Selection.Interior.Pattern = xlPatternNone
    With Selection.Interior
        .Pattern = xlPatternSolid
        .Color = 65535
        .TintAndShade = 0
    End With
End Sub
但是加到程序的任何位置，怎么也不起作用

njwtg

使用中发现一个需求，因为要复制的表格很多，内容也大同小异，有时候会忘记是否复制过。能否在出现第一个对话框，我选中某个区域后，程序就自动将该区域的单元格变成黄色填充，接着出现第二个对话框......其余与原程序相同。这样就很醒目的自动哪些数据被复制过。我用录制新宏的办法，取得如下代码，但放进程序中，不起作用。
Sub Macro1()
'
' Macro1 Macro
' 宏由 Administrator 录制，时间: 2023/06/18
'

'
    With Selection.Interior
        .Pattern = xlPatternSolid
        .Color = 65535
        .TintAndShade = 0
    End With
End Sub