㈠ 如何能过VBA将筛选后的内容复制到另一张表的指定位置
If Target.Column = 16 Then
Range("q2:x50").ClearContents
Sheets("2").Range("A1:AE42").AutoFilter Field:=5, Criteria1:=Range("p1")
Sheets("2").cells.SpecialCells(xlCellTypeVisible).Copy Range("A1")
这么多 应该就可以了
㈡ 求大神解VBA代码，筛选后的复制粘贴、数据自动输入问题
既然都用VBA代码了，那就用不着表格的筛选，直接用代码循环比较，满足条件就在C列对应行填数即可。如果数据量大，建议用数组处理，因为直接对单元格处理会很慢的
㈢ vba 自动筛选后，将其中的某一列复制到另一张sheet的一列中，该怎么做
这么简单的操作
录制一个宏就行了
复制时，只复制筛选后的A列
即可
SubMacro1()
Columns("B:B").Select
Selection.AutoFilter
Selection.AutoFilterField:=1,Criteria1:="深圳"
Columns("A:A").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
EndSub
㈣ VBA将EXCEL筛选后内容复制到新工作表
【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")
㈤ EXCEL的VBA实现将筛选后的记录复制到新文件中
通常情况下，用VBA就不会用筛选来做了。
建议：第一步：将原始数据读取后存入一个数组；
第二步：对数组逐条访问，根据筛选设定的条件，如果满足条件则将这条记录的内容写入目标位置
第三步：也就是循环第二步，一直到结束就完成了。
㈥ 请教，在Excel VBA中如何实现数据的筛选、拷贝谢谢
将Sheet1表 ，A列单元格中为Code1的所有行筛选出来，并拷贝到当前工作簿Shee2工作表
复制代码到Sheet2
Sub 筛选复制()
Dim I%
For I = 2 To Sheet1.Range("A65536").End(xlUp).Row
If Sheet1.Cells(I, "a") = "Code1" Then
N = N + 1
Sheet1.Rows(I).Copy Cells(N + 1, "a")
End If
Next
End Sub
㈦ VBA 按条件筛选数据库记录导出Excel（如何加快写入速度）
你这样循环查询是不科学了，上万记录会慢死，应该一次性读出所有数据，然后去填写：
'建立已经字典，把数据库内容存入字典
setdaList=CreateObject("Scripting.Dictionary")
rs.Open"selectDA,B1,S1,M1,St1,R1from`A`",conn
DoWhileNotrs.EOF()
daList.Addrs(1),Array(rs(2),rs(3),rs(4),rs(5),rs(6))
rs.MoveNext
Loop
'填写EXCEL表
fori=2toCells(rows.count,"D").End(xlUp).Row
da=Cells(i,"D")
ifdaList.Exists(da)then
Cells(i,"E").resize(5,1)=daList(da)
else
Cells(i,"E").resize(5,1)=Empty
endif
nexti
㈧ vba在sheet1筛选后，将结果复制sheet2中，怎么解决
用VBA
很简单的,如果你将表的结构告诉我,我也可以替你写几句,
例如：
先将sheet2
复制到sheet3
假定客户名都在第一列
在sheet3
中运行下面程序（工具——宏——visual
basic编辑器)
Sub
kk()
Dim
ints
As
Integer
Dim
ragc
As
Range
Dim
stofind
As
String,
firadd
As
String
Dim
wors
As
Worksheet
Application.ScreenUpdating
=
False
Set
wors
=
Worksheets("sheet1")
For
ints
=
2
To
1000
stofind
=
wors.Cells(ints,
1)
Set
ragc
=
ActiveSheet.Range("A2:A800").Find(what:=stofind,
lookat:=xlPart)
If
Not
ragc
Is
Nothing
Then
firadd
=
ragc.Address
ragc.EntireRow.Select
Selection.Delete
Shift:=xlUp
End
If
Next
ints
Application.ScreenUpdating
=
True
End
Sub
表中剩下的就是不重复的客户
㈨ VBA筛选数据后复制到另一张表
可以在收货管理表打开时就更新数据，无须增加控件。
代码清单：
Private Sub Worksheet_Activate()
Rows.ClearContents
Dim r, c, s As Integer
s = 0
For c = 1 To 8
Sheets("收货管理表").Cells(1, c).Value = Sheets("订单表").Cells(1, c).Value '插入表头
Next c
For r = 2 To 9
If Sheets("订单表").Cells(r, 8) = "是" Then
s = s + 1
Sheets("收货管理表").Cells(s + 1, 1).Value = s '自动顺序编号
For c = 2 To 8
Sheets("收货管理表").Cells(s + 1, c).Value = Sheets("订单表").Cells(r, c).Value '插入产品其他信息
Next c
End If
Next r
End Sub
该程序已通过测试。