<em>excel</em> 如何使用VBA进行数据筛选-excel vba筛选列,excel

筛选规则给出来，可以现场帮你写。

Dim i, j, k As Integer
k = 1 'k赋初值
i = InputBox("please input the item num:") '给出总行数信息
For j = 1 To i '循环判断
If Sheets("sheet1").Cells(j, 5).Text = 1 Then '如果第5列的值等于1
Sheets("sheet1").Select
Range(Cells(j, 1), Cells(j, 5)).Select '选中表1中前五列数据
Selection.Copy '复制
Sheets("Sheet2").Select '选中表2
Range(Cells(k, 1), Cells(k, 5)).Select '选中表2的前5列
ActiveSheet.Paste Link:=True '粘贴链接
k = k + 1 '表2行号增加
End If
Next
Application.CutCopyMode = False '退出复制粘贴模式 这句和下面的语句为7a64e78988e69d83337辅助语句可删
Cells(1, 1).Select需输入总行数，希望能帮到你。
Sub Macro1()
j = 2 For i = 2 To Sheet1.[a2].End(xlDown).Row s1d = Sheet1.Cells(i, "D").Text With Sheet3 For k = 2 To .[a2].End(xlDown).Row If s1d Like "*" & .Cells(k, "A").Text & "*" Then Exit For Next k End With With Sheet1 If s1d Like "*" & Sheet3.Cells(k, "A").Text & "*" Then .Range(.Cells(i, 1), .Cells(i, 4)).Copy Sheet2.Cells(j, 2) Sheet2.Cells(j, 1) = Sheet3.Cells(k, "B"): j = j + 1 End If End With Next i End Sub

Dim i, j, k As Integer
k = 1 'k赋初值
i = InputBox("please input the item num:") '给出总行数知信息
For j = 1 To i '循环判断道
If Sheets("sheet1").Cells(j, 5).Text = 1 Then '如果第5列的值等于1
Sheets("sheet1").Select
Range(Cells(j, 1), Cells(j, 5)).Select '选中表1中前五列数据
Selection.Copy '复制专属
Sheets("Sheet2").Select '选中表2
Range(Cells(k, 1), Cells(k, 5)).Select '选中表2的前5列
ActiveSheet.Paste Link:=True '粘贴链接
k = k + 1 '表2行号增加
End If
Next
Application.CutCopyMode = False '退出复制粘贴模式 这句和下面的语句为辅助语句可删
Cells(1, 1).Select需输入总行数，希望能帮到你。