Sub 宏1()
Sheets("汇总表名称").Range("A1:B10").Copy 'A1:B10是复制的单元格区域
Selection.PasteSpecial Paste:=xlPasteValues '选择目标,粘贴值
End Sub
Sub 粘贴匹配目标格式()
'
' 粘贴匹配目标格式 Macro
'
' 快捷键: Ctrl+b
'
Dim rg1 As Range
Set rg1 = Selection
'选定单元格
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
'选择性粘贴
End Sub
切个图给我看看数据,我教你。不看数据是什么样的,搞不清你需要的结果是怎么样的。
很复杂哈,那你自己录制一个宏呗