如何设置Excel宏实现筛选后的数据复制粘贴
在日常使用Excel时，经常需要将筛选后的数据复制粘贴到相应的位置。本文将介绍如何通过设置Excel宏，实现一次性永久性解决这个操作问题，避免重复基础操作。
录制宏并更新代码
1. 点击Excel左下角的【录制宏】按钮，选择录制到【个人宏工作簿】后停止录制。
2. 按Alt F11进入VBE界面，在“个人宏工作簿”中更新以下代码。
```vba
Sub 多区域复制粘贴()
On Error Resume Next
Dim SRange() As Range, UPRange As Range, TRange As Range
Dim i As Long, AreaNum As Long
Dim MinR As Long, MinC As Long
AreaNum
ReDim SRange(1 To AreaNum)
MinR
MinC
For i 1 To AreaNum
Set SRange(i) (i)
If SRange(i).Row < MinR Then MinR SRange(i).Row
If SRange(i).Column < MinC Then MinC SRange(i).Column
Next i
Set UPRange Cells(SRange(1).Row, SRange(1).Column)
Set TRange (prompt:"选择粘贴区域的最左上角单元格", Title:"多区域复制粘贴", Type:8)
False
For i 1 To AreaNum
SRange(i).Copy
(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial Paste:xlPasteValues
Next i
True
End Sub
```
添加自定义快速访问工具栏按钮
1. 右键单击快速访问工具栏，选择【自定义快速访问工具栏】。
2. 设置和选择如下图所示，并点击【添加】按钮。
测试宏功能
1. 假设原始数据A列包含重复的“张三”。
2. 筛选“张三”，选中所有数据，按Ctrl G调出【定位】对话框，选择【定位条件】。
3. 选择【可见单元格】，然后点击【确定】按钮。
4. 点击刚添加的自定义按钮，会弹出一个对话框。
5. 选择要粘贴的区域的最左上角单元格，点击【确定】按钮即可完成粘贴操作。
通过以上设置，可以在Excel中轻松实现筛选后数据的复制粘贴操作，提高工作效率。记得保存代码到个人宏工作簿，使其在所有工作簿中都可用。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
