㈠ 如何能過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
該程序已通過測試。