Excel复制有筛选的表格

最新推荐文章于 2024-01-23 13:47:36 发布

yvonne__my

最新推荐文章于 2024-01-23 13:47:36 发布

阅读量360

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel

本文链接：https://blog.youkuaiyun.com/yvonne__my/article/details/104672295

Excel 专栏收录该内容

1 篇文章

订阅专栏

本文介绍在使用VBA进行表格操作时，如何在筛选模式下复制所有数据而非仅显示的数据。通过调整VBA代码，可以实现在不取消筛选的情况下，完整复制表格中的所有信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

有筛选的表格在复制的时候默认是复制显示出来的数据，但有时需要复制全部的数据，那么这时就要展开数据之后再复制：
要复制的表：
带有筛选的Excel表格
复制之后的表：

这样的效果需要在vba加上这样的语句：

If Sheets(1).FilterMode = True Then
            Sheets(1).Select
            ActiveSheet.ShowAllData
    End If

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

yvonne__my

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

excel用宏如何筛选日期_Excel自动筛选宏

culiao2169的博客

08-20

2456

excel用宏如何筛选日期 Excel自动筛选宏 (Excel AutoFilter Macros)There are two types of AutoFilters in Excel – worksheet AutoFilters, and List (Table) AutoFilters. If you're using Excel AutoFilter macros, be sure th...

Excel如何只复制筛选后的条目

大猴子的学习园地

11-05

2602

选择你要复制的内容，接着按组合键ALT+:(ALT＋冒号：）来选取可见单元格，右键复制，再粘贴就行了。

参与评论您还未登录，请先登录后发表或查看评论

Excel VBA 自动筛选，取消筛选

qq_37425177的博客

01-23

3104

若要为工作表创建 AutoFilter 对象，必须手动或使用 Range 对象的 AutoFilter 方法为工作表上的某个区域启用自动筛选。If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData '判断激活中的工作表是否处于筛选状态，是的话，取消筛选。'AutoFilterMode 如果当前在工作表上显示有“自动筛选”下拉箭头，则该值为 True。'FilterMode 如果工作表处于筛选模式，则为 True。

VBA 物料信息查询的优化（涉及引用他表、筛选、复制、赋值、格式调整、进度条、连接SQLSERVER）

weixin_44819434的博客

10-05

425

1、在选择机床编号时，跳出窗体，进行选择是查看全部物料还是未到货物料。3、在thisworkbook中增加如下代码，用于退出时清除数据。4、在calldata中插入如下代码，用于修改数据。3、关闭退出时，清空数据表中的数据。，根据使用部门的要求进行优化。2、在查询汇总界面增加几列数据。2、UserForm窗体。

vba关于取消自动筛选:

weixin_44462444的博客

05-20

2万+

关于取消自动筛选: If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 从蓝桥玄霜版主那看到了,先判断是否做了筛先. ================= 取消自动筛选： Sheets("sheet1").AutoFilterMode = False '注意这里对象是sheet, 不需要sheet中的具体区域,比如[a1:c1]之类 '关于Autofiltermode与Filtermode的区别, 前是是已经使用了筛选状态. 首行中已经出现筛选..

2021年9月21日代码准备

m0_62131718的博客

09-21

327

**************************************** 1.特殊字词 VBA.IsError(rngCell.Value) Me **************************************** 准备代码 *******************工作簿新建工作簿 1.直接新建 2.新建后获得对象关闭工作簿不保存保存工作簿 1.保存本工作簿 activeworkbook.save 2.另存为 saveas 3. 保存副本，保存后继续在原工作簿编辑 sav..

Excel-通过VBA程序实现多表格多页批量复制和筛选数据2021-12-27.xlsm

12-28

很多人都会遇到，有大量格式雷同的表格需要批量处理，但表格中数据行数或页数不同，通过excel的公式很难实现柔性处理，遇到新的表格又需要重新编辑。针对这个问题，我们用通过简单的VBA程序即可实现多表格多页批量...

excel表格如何筛选最大值.doc

最新发布

07-19

在Excel表格中筛选最大值和最小值是数据处理中常见的需求，为了完成这一任务，我们可以使用Excel提供的多种函数和方法。本文档将详细探讨如何在Excel中找出最大值和最小值，并对筛选得到的数据进行进一步处理。 ...

excel表格如何进行筛选.doc

09-14

Excel 表格筛选是 Excel 数据处理中的一项重要技术，能够帮助用户快速地从大量数据中提取有价值的信息。本文将详细介绍 Excel 表格筛选的各种技术，包括使用查找和替换、筛选工具、排序和筛选、条件格式等方法对数据...

Excel表格怎么筛选带有小数点的数据？.docx

09-26

通过以上步骤，我们可以有效地筛选出Excel表格中带有小数点的数据。这种方法适用于任何版本的Excel，包括文中提到的Office 2021。值得注意的是，筛选后的数据仅在当前视图中隐藏，并未实际删除，因此你可以随时取消...

2021-03-19

qq_37425177的博客

03-19

197

sub代替字典的数组（） Dim arr() As Variant'先定义一个数组 If (ActiveSheet.FilterMode = True) Then ActiveSheet.ShowAllData '判断是不是处于筛选状态,是的话清除筛选 a = Sheet1.Range("B1048576").End(xlUp).Row '找到表格1，b列的最后一行的行数 ReDim Preserve arr(1 To 1) As Variant‘重新定义数组，并且保留之前的数组数据 n = 0'定义一.

Excel VBA初接触-筛选清除与复制粘贴

weixin_30677617的博客

05-15

1513

今天第一次尝试使用Excel宏。要实现的功能是：1个xls文件中，有2个工作表。判断工作表是否筛选，如果筛选清除筛选。然后将一个工作表中的数据，粘贴到另一个工作表下方。尝试了录制宏，然后个修改其中的代码。整个过程中，遇到了一些问题，在网上找，并试验，解决了部分问题。 1）判断工作表是否处于筛选模式　　If Worksheets("Sheet1")....

excel中如何拷贝已经筛选出来的数据到另外的一表格中

ao_xue1234的专栏

06-04

1万+

直接复制粘贴到新的数据表格中是不行的，数据会丢失，或者拷贝不完全，具体还没有搞清楚如何直接在excel之间互相拷贝，有一个比较笨的办法筛选出来的数据，直接Ctrl+A 然后复制到txt文件中，在拷贝进excel中即可

excel中在两个筛选后的表格间进行复制粘贴

虫子牛虻——我和我的影子

05-27

1万+

目标：只复制筛选后显示区域的单元格内容粘贴到另一个表格筛选后的显示区域中，非连续复制和非连续粘贴。方法：选中筛选后的单元格内容进行复制，可以点右键复制，也可以ctrl＋C，然后粘贴到筛选后的目标区域中，可以右键点粘贴也可以ctrl+V，然后ctrl+Z，ctrl+V。

撤销高级筛选

iteye_11020的博客

11-20

385

Public Sub 技巧10_024() Dim ws As Worksheet Set ws = ThisWorkbook.ActiveSheet With ws If .FilterMode Then .ShowAllData End If End With Set ws = No...

使用filter过滤数据状态，返回新的数据

maoxiaohei_的博客

04-16

1520

1.第一步，获取所有数据 2.第二步，进一步筛选需要的有效数据 getOffState() { this.$http.get('', { }).then(res => { if (res.data.result == 1) { let page = res.data.data.page; page.result.forEach(item => { this.gatewayList.push({ stat.

在excel中如何复制筛选后数据

sflsgfs的专栏

03-27

5898

在excel中如何复制筛选后数据我想只调用筛选后的部分数据重新做表但是每次复制过来都是全部数据怎样只保留筛选结果？选择你要复制的内容，接着按组合键ALT+:(ALT＋冒号：）来选取可

Excel对于筛选后单元格进行“复制”与“粘贴”