选定区域，复制粘贴到指定区域

sxstysghb

选定区域，复制粘贴到指定区域，并匹配目标区域格式，并自动对应顺序位置。选定的区域和复制粘贴的目标区域在不同的工作表当中。

需要注意的是：选定的区域是随机选定的，只要用鼠标选定就可以

请大家看看如何更改完善VBA代码。谢谢！

xiangbaoan

Sub test1() '工作表1
Sheets("工作表1").Activate
If Not Intersect(Selection, [e9:x11]) Is Nothing Then
With Selection
    .Copy
    .Offset(-6).PasteSpecial -4163
End With
Application.CutCopyMode = False
End If
End Sub

Sub test2() '工作表2
Sheets("工作表2").Activate
If Not Intersect(Selection, [e15:x17]) Is Nothing Then
Dim ad$
With Selection
    ad = .Address
    .Copy
    Sheets("工作表1").Range(ad).Offset(-6).PasteSpecial -4163
End With
Application.CutCopyMode = False
End If
End Sub
'仅供参考………………

xiangbaoan

………补………

sxstysghb

xiangbaoan 发表于 2018-9-15 09:07
………补………

可能我没有表达清楚。在工作表2当中，选定的区域不是固定的[e15:x17]，而是随机选定的。例如：图片中有很多表格，用鼠标随机选定。你给的方法是固定偏移，所以我还是不知道该如何实现。请教了

xiangbaoan

sxstysghb 发表于 2018-9-15 12:45
可能我没有表达清楚。在工作表2当中，选定的区域不是固定的[e15:x17]，而是随机选定的。例如：图片中有很 ...

'表2的，再搞我也不会了，以下纯属猜测：
Private Sub CommandButton1_Click()
Sheets("工作表2").Activate
If Not Selection Is Nothing Then
With Selection
    .Copy
    Sheets("工作表1").Cells(3, .Cells(1, 1).Column).PasteSpecial -4163
End With
Application.CutCopyMode = False
End If
End Sub

ztxmtkotm

vbs真的很强大