vba笑场：表格中复制粘贴还在使用快捷键么，试试vba

（周五下班前，小毕正在两张表格间反复切换）

小毕：（手指飞舞）还有200行数据要从旧表搬到新表…今晚又要加班了。

艾迷糊：（瘫在椅子上）我上次手动搬运数据，Ctrl+C和Ctrl+V按到键盘冒火星，保洁阿姨问我在练什么电竞绝招！

老威：（从显示器后探出头）复制粘贴就像用传送门搬家具——直接连房子一起搬走多好？（打开VBA编辑器）

Sub 智能搬运工()
Dim sourceRange As Range
Dim targetRange As Range

Set sourceRange = Sheets("旧表").Range("A2:D100") '旧仓库
Set targetRange = Sheets("新表").Range("F2") '新仓库门口

sourceRange.Copy targetRange '一键整体搬运

'如果只要家具不要包装：
'targetRange.PasteSpecial Paste:=xlPasteValues '只搬数值
'targetRange.PasteSpecial Paste:=xlPasteFormats '连装修风格一起搬
End Sub

小毕：（指着屏幕）这个PasteSpecial是选择性粘贴？像搬家时决定要不要带包装盒？

老威：没错！`xlPasteValues`只搬数据，`xlPasteFormats`连格式一起搬，`xlPasteAll`是全都要——连墙上的钉子都不放过。

艾迷糊：万一我只想搬带星标的重大数据呢？

老威：（加入筛选代码）给传送门加个智能筛子——

sourceRange.AutoFilter Field:=4, Criteria1:="★重大" '只搬第四列带★的
sourceRange.SpecialCells(xlCellTypeVisible).Copy targetRange

小毕：（眼睛发亮）那能不能把数据搬过去后，自动按新格式排版？

老威：（保存文件）下期正好讲——

《VBA跨表智能格式化》

像给搬过去的家具自动配好新房间的装修风格！

（办公室的自动感应灯忽然亮起，仿佛在说“该下班了”）

如果觉得有用，别忘了 点赞 + 收藏，关注我，获取更多Excel VBA高效编程技巧!

(图片由AI生成)