VBA将EXCEL筛选后内容复制到新工作表

Set xlA = New Excel.Application
Set xlA = CreateObject("Excel.Application")
Set xlB = xlA.Workbooks.Add
Set xlS = xlB.Worksheets(1)
xlA.Visible = True
Activesheet.Range("A2:F20").SpecialCells(xlCellTypeVisible).Copy xlS.[a1]
这个语句报错“类RANGE的COPY方法无效”，麻烦各位高手看一下。多谢。

举报该问题

推荐答案推荐于2017-11-28

【1】xlS.[a1] 改为 xlS.Range("A1")
【2】
Activesheet，这时是你新建的 Sheet，不是你有数据的Sheet，
可以先激活你有数据的Sheet，
如：Workbooks("你有数据的工作表名").Worksheets(1).Active 然后再Copy

或者在新建一个Workbook之前，如果有数据的Workbooks中的SHeet是当前激活的 SHeet，则可以先将它赋值给变量。 dim AS =New Worksheet
set AS=Activesheet
然后再建立新的工作表，Copy时用：
AS.Range("A2:F20").SpecialCells(xlCellTypeVisible).Copy xlS.Range("A1")

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/zeWjzjBzO.html

其他回答

第1个回答 2011-11-13

是不是第4行"WORKSHEETS"要改为"sheets“

第2个回答 2011-11-13

建议你录个宏看看就知道了

相似回答

excel vba 点控件执行复制数据到另一工作表答：1.在sheet1中先写好筛选条件，点开文件复制的目标excel（本文是sheet2），最上面工具栏中点“数据”，找到筛选旁边的“高级”选项，跳出“高级筛选”框2.选中“将筛选结果复制到其他位置”，然后“列表区域”选中sheet1中的原始数据，“条件区域”选中sheet1中我们提前写好的条件，“复制到”选中sheet2...

电子表格不同工作表中如何筛选,并且生成在新工作表中。答：首先，打开Excel，按下Alt+F11打开VBA编辑器，插入一个新的模块，然后将以下代码粘贴进去：vba Sub ConcentrateFilter()Dim p As String p = InputBox("输入姓名：", "集中筛选", "")If Len(p) = 0 Then Exit Sub Dim x As Integer x = 0 For Each s In Sheets If s.Name > "A" T...

vb,vbA操作EXCEL怎么把指定数据复制到另一工作表符合条件的相应位置...答：Match([B1], Sheets("基础数据").Range("A:A"), 0)Range("A3:D3").Copy Sheets("基础数据").Cells(X, "a")Sheets("基础数据").SelectSheets("基础数据").Range("a" & X & ":" & "d" & X).Interior.ColorIndex = 3 '修改过的区域填充红色End Sub代码复制到 修改表里 ...

EXCEL自动筛选表格中同一列指定值,然后把筛选后得到的数据复制到...答：你可以根据需要筛选特定部门或日期范围的数据，然后将筛选结果复制到另一个表中。此外，你还可以利用VBA编写宏来实现自动筛选和复制功能。例如，你可以创建一个宏，根据输入的部门名称筛选数据，并将筛选结果复制到另一个工作表。通过这些方法，你可以轻松地在Excel中进行数据筛选和管理，提升工作效率。

如何用VBA代码筛选重复值,并复制到另一张表上?答：Set d = CreateObject("Scripting.Dictionary")With Sheets("明细")If .Cells(1, 1) = "" Then .Cells(1, 1) = " "arr = .UsedRange End With For i = 2 To UBound(arr)k = Trim(arr(i, 3))v = Trim(arr(i, 4))If Not d.exists(k) Then d.Add k, CreateObject("...

用excel VBA怎么把多个工作表里的数据有条件复制到一个工作表里答：比如，你可以描述一下每个工作表的结构，比如列标题、数据范围以及你希望根据哪些条件进行筛选。同时，也需要明确指出你希望将这些筛选后的数据复制到目标工作表的具体位置。例如，你可能希望根据某一列的特定值进行筛选，或者在满足一定条件的情况下进行数据复制。如果你已经有了一部分代码，但遇到了执行中的...

如何用VBA判断符合条件的数据复制粘贴到相应工作表?答：lastRow = sourceSheet.Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行数据 For i = 2 To lastRow ' 逐行遍历源数据 If sourceSheet.Cells(i, 1) = "需要筛选的条件" Then ' 如果符合条件，则将该行数据复制到目标工作表的最后一行 sourceSheet.Rows(i).Copy targetSheet.Cells(Rows....

求EXCEL的VBA代码实现对筛选取的内容复制到新建EXCEL中答：选中所有数据，插入数据透视表，将省区拖到页区域，审批金额拖到数据项，其他拖到行区域。然后用数据透视表的菜单中的分页显示，将透视表分成多个表。

请教如何利用VBA实现将一个工作表复制到另一个工作簿中答：返回Excel主界面，点击"开发工具"下的"宏"，找到并选择"复制表"，然后点击"执行"按钮。此时，"工作表1"中的指定工作表"移动表"已成功复制到"工作表2"的第1个工作表中，操作过程直观且高效。通过这种方式，你可以轻松地使用VBA在Excel中实现工作表的复制，无需手动操作，大大提高了工作效率。

大家正在搜

表格怎么筛选复制到另一张表复制到筛选后的表格 excel筛选数据复制至新表格如何复制筛选过的内容 excle怎么对筛选的表格复制如何从筛选的表格里复制粘贴复制筛选后的单元格表格有筛选怎么粘贴内容 excel粘贴到筛选后的表格