如何把数据复制粘贴到筛选后的表格可见单元格
发布网友
发布时间：2022-03-18 10:23
共5个回答
热心网友
时间：2022-03-18 11:53
1、首先，点击excel程序左下角的【录制宏】按钮录制宏。选择录制到【个人宏工作簿】后点击【确定】按钮。
2、开始录制宏后什么都不操作，马上点击【停止录制宏】按钮。
3、按Alt+F11进入VBE界面，打开“个人宏工作簿”，可以看到增加了一个模块。
4、将模块代码更新成下述代码后点击【保存】按钮。
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 = Selection.Areas.Count
ReDim SRange(1 To AreaNum)
MinR = ActiveSheet.Rows.Count
MinC = ActiveSheet.Columns.Count
For i = 1 To AreaNum
Set SRange(i) = Selection.Areas(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 = Application.InputBox(prompt:="选择粘贴区域的最左上角单元格", Title:="多区域复制粘贴", Type:=8)
Application.ScreenUpdating = False
For i = 1 To AreaNum
SRange(i).Copy
TRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial paste:=xlPasteValues
Next i
Application.ScreenUpdating = True
End Sub
5、回到Excel界面，右键单击快速访问工具栏，选择【自定义快速访问工具栏】。
6、如下图设置和选择，并点击【添加】按钮。
7、这样，在工具栏就出现了一个新的按钮，指定到了刚才加入的代码。
8、原始数据A列姓名包含重复的“张三”。
9、我们筛选“张三”，用鼠标选中所有数据。然后按Ctrl+G调出【定位】对话框，选择【定位条件】。
10、选择【可见单元格】，然后点击【确定】按钮。
11、点击刚才插入的按钮。
12、下面会弹出来如下的对话框。注意：只需要用鼠标选择要粘贴区域的最左上角单元格即可。
13、选中想要粘贴的单元格，然后点击【确定】按钮，数据就粘贴出来了。
14、我们取消A列的筛选，可以看到复制的数据也粘贴到了筛选出来的行中。
热心网友
时间：2022-03-18 13:11
二、筛选出班级里包含A的项；
三、选中筛选内容以后，按下alt+;，复制即可粘贴到别处；
或者Ctrl+G-定位条件-可见单元格-确定，复制即可粘贴到别处；
再来是如何将复制内容粘贴到筛选后表格中：
一、需要一个表格；我要把这个表格里班级列不包含A的项改为下面表格中内容；
二、在班级右侧插入两列，列A、列B；
三、在列A下第一格输入1，向下序列填充；
四、筛选出班级不包含A的项，选中列B下单元格，按下Alt+;，输入1后按下Ctrl+Enter（相当于可见单元格填充），取消筛选；
五、按列B排序，列B内包含1的单元格就顺序排列在最上面了；选中要替换的内容，复制粘贴到班级列；最后按列A排序，删除列A、列B，就回复原样，OK了。追问这是处理少量或单一数据可以，而且和那篇经验没关系
热心网友
时间：2022-03-18 14:45
2：在开始里面找到编辑，在编辑里找到查找与选择，进入到下一步。
3：在弹出的子菜单找到转到或者定位条件，全选之后进行下一步。
4：弹出如图界面。
5：出现窗口，选择可见单元格，确定选中筛选后的数据，右击复制要粘贴的单元格，粘贴即可。
热心网友
时间：2022-03-18 16:37
热心网友
时间：2022-03-18 18:45
选中你需要复制的数据
去你需要粘贴的已筛选号的表格内点击右键 粘贴到可见单元格
请点击输入图片描述
搞定。
