社区首页 >问答首页 >Excel VBA AdvancedFilter应仅复制某些列

问Excel VBA AdvancedFilter应仅复制某些列
EN

Stack Overflow用户

提问于 2019-02-09 10:27:05

回答 1查看 950关注 0票数 0

是否可以只复制筛选表中的某些列，而不是所有列？

基本代码：

Sub GENERATE_click()

    ThisWorkbook.Worksheets("sheet1").Range("A12:E500").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("D1:F3"), _
        CopyToRange:=Range("L14"), _
        Unique:=False
End Sub

EN

回答 1

Stack Overflow用户

发布于 2019-02-09 11:34:28

请尝试此操作(例如，仅复制B、C和E列)：

Private Sub MyAdvancedFilters()
    Dim lastVisibleRow As Long
    With ActiveSheet
        .Range("A12:E500").AdvancedFilter _
            Action:=xlFilterInPlace, _
            CriteriaRange:=Range("D1:F3"), _
            Unique:=False
        lastVisibleRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("B12:C" & lastVisibleRow & ",E12:E" & lastVisibleRow).Copy .Range("L14")
        .ShowAllData
    End With
End Sub

票数 0

EN

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/54605334

复制

相关文章

Excel VBA高级筛选技巧

本文探讨如何使用AdvancedFilter基于多个条件进行筛选，而不仅仅是一列数据。示例数据如下图1所示（本文学习整理自wellsr.com，有兴趣的朋友可以查阅原文）。

fanjy

2022/03/07

7.3K0

Excel VBA高级筛选技巧

VBA高级筛选应用：拆分或更新子工作表

下图1所示是一个简单的示例数据集。这里已经突出标示了Dept A（橙色），因为这是我们可能希望为这个部门创建新工作表，然而，如果已经有一个标题为“A”的工作表，那么就不会创建新工作表，只会将数据添加到现有工作表中。其中心思想是创建一个唯一的工作表，其中包含与部门相关的数据。因此，这里会为A、B和C分别创建一个工作表。如果添加了任何新的部门，则也为这些部门创建新的工作表。

fanjy

2022/11/16

1.6K0

VBA高级筛选应用：拆分或更新子工作表

VBA技巧：使用数组复制不同的列

vba 编程算法

假设我们只想复制工作表中指定列的数据，例如第1、2、5列的数据，有多种实现方法，这里介绍使用数组的VBA代码实现。

fanjy

2022/11/16

2.8K0

VBA中的高级筛选技巧：获取唯一值

在处理大型数据集时，很可能需要查找并获取唯一值，特别是唯一字符串。例如，在一个有100000条记录的数据集中，其中可能包含数百个唯一字符串，如果将这些唯一记录提取出来，那么数据清理会变得更容易。

fanjy

2022/03/04

8.6K0

VBA中的高级筛选技巧：获取唯一值

VBA实例01：复制多个Excel表到Word

有些时候，需要将多个Excel表复制到Word文档中指定的位置。一般可以使用通常的复制/粘贴操作，然而如果表很多的话，VBA就派上用场了。

fanjy

2020/11/24

4.6K0

VBA实例01：复制多个Excel表到Word

使用VBA复制并粘贴Excel图表到PowerPoint

VBA的最大优势之一是可以无缝地在Office应用程序套件之间相互调用，例如，在Excel中操作PowerPoint。本文将使用VBA复制Excel中的一个图表，将粘贴到新创建的PowerPoint中。

fanjy

2022/11/16

2.8K0

使用VBA复制并粘贴Excel图表到PowerPoint

常见的复制粘贴，VBA是怎么做的

引言：本文学习整理自powerspreadsheets.com，非常清晰透彻地讲解如何使用VBA进行复制粘贴操作。

fanjy

2022/03/04

12.2K0

常见的复制粘贴，VBA是怎么做的

Excel-VBA复制工作表到新工作簿方法

xlsx 工具工作数据

如：在文件“自动工具.xlsx”中有一个工作表为“模板”。我想在“模板”工作表中输入数据，再另存为一个新的文件为“小龙女.xlsx”

哆哆Excel

2022/10/31

11.7K0

Excel小技巧55：复制并仅粘贴可见单元格

在Excel中，当我们复制包含有隐藏列/行的数据后，在粘贴时会将已隐藏的数据全部粘贴过来，如下图1所示。

fanjy

2020/09/17

15K0

Excel小技巧55：复制并仅粘贴可见单元格

Excel VBA编程

vba javascript 编程算法

在Excel中，数据只有文本，数值，日期值，逻辑值和错误值五种类型。但是在VBA中，数据类型跟Excel不完全相同。根据数据的特点，VBA将数据分为布尔型（boolean），字节型(byte)，整数型(integer)，单精度浮点型(single)，双精度浮点型(double)，货币型(currency)，小数型(decimal)，字符串型（string），日期型（date）,对象型等等

全栈程序员站长

2022/08/11

45.8K0

Excel VBA事件

在Excel VBA里提供了接口，在发生这些事件之前或者之后，让使用者可以设置一段运行的程序。

xyj

2020/07/28

1.5K0

excel vba 解密

vba http 编程算法 java https

大家好，又见面了，我是你们的朋友全栈君。Private Sub VBAPassword() ‘你要解保护的Excel文件路径 Filename = Application.GetOpenFilename(“Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt”, , “VBA激活成功教程”) If Dir(Filename) = “” Then MsgBox “没找到相关文件,清重新设置。” Exit Sub Else FileCopy Filename, Filename & “.bak” ‘备份文件。 End If Dim GetData As String * 5 Open Filename For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = “CMG=””” Then CMGs = i If GetData = “[Host” Then DPBo = i – 2: Exit For Next If CMGs = 0 Then MsgBox “请先对VBA编码设置一个保护密码…”, 32, “提示” Exit Sub End If

全栈程序员站长

2022/09/15

9290

读取某个excel表格，但是某些列的标识带有空格，怎么去除呢？

数据处理 excel strip 表格函数

前几天在Python最强王者群【wen】问了一个Pandas数据处理的问题，一起来看看吧。

Python进阶者

2023/09/02

3830

读取某个excel表格，但是某些列的标识带有空格，怎么去除呢？

Excel VBA学习

sum 函数数组网络

学习一下，记录一下，资料来自于网络网络代码收集一： Sub test() Dim arr, brr, i&, r&, k Set d = CreateObject("scripting.dictionary") Set d1 = CreateObject("scripting.dictionary") With Sheet1 r = .Cells(Rows.Count, 1).End(3).Row For i = 2 To r

哆哆Excel

2022/10/31

2K0

如何搞定某些网站不让复制文字

文字识别 https 网络安全网站

浏览某些网站的时候，看到一段不错的话想复制下来，结果竟然要登录，甚至你都选择不了文字，因为被禁用了，下面就分享几种解决方案。

苏生不惑

2020/04/27

1.9K0

Excel VBA项目实战

人工智能大数据大数据解决方案 sql 腾讯云 BI

前面的《Excel VBA：办公自动化》和大家分享了VBA常用的基础知识，就有同学留言问我：猴子老师，能不能出一个项目实战案例，可以把前面的知识都应用起来。

猴子数据分析

2021/04/15

1.7K1

Excel VBA事件——Worksheet

row selection target worksheet 事件

这个事件的有个比较典型的应用场景，选择改变后，将选择的单元格所在行标上颜色，也就是所谓的聚光灯：

xyj

2020/07/28

3.2K0

Excel VBA事件——Worksheet

excel vba获取拼音

Function PinYin2(Hz As String) Dim PinMa As String Dim MyPinMa As Variant Dim Temp As Integer, i As Integer, j As Integer PinMa = "a,20319,ai,20317,an,20304,ang,20295,ao,20292," PinMa = PinMa & "ba,20283,bai,20265,ban,20257,bang,20242,b

landv

2018/05/24

2K0

Excel VBA事件——Workbook

这两个事件在Office2007版本之前使用应该还是比较多的，那时候还没有Ribbon菜单，菜单是下拉式的，也就是和VBA编辑器菜单是一样的。

xyj

2020/07/28

1.2K0

Excel VBA 编程练习

java https 网络安全

最近做了一个VBA的小case，用于方便excel数据的处理，主要的功能代码记录如下。

全栈程序员站长

2022/09/05

8140

相似问题

Excel VBA - AdvancedFilter

28

vba应复制整个列

12

excel VBA复制粘贴仅行A列？

12

Excel VBA复制特定列

30

Excel VBA:复制大量列

11

添加站长进交流群

领取专属 10元无门槛券

AI混元助手 在线答疑

关注 腾讯云开发者公众号

洞察 腾讯核心技术

剖析业界实践案例