求EXCEL查询功能宏代码：在单元格中输入数据，模糊查找另一表格内容并显示在另外一页。
求EXCEL查询功能宏代码：在Sheet1!C7单元格中输入数据，模糊查找Sheet3!A1:D14650内容并显示在Sheet2 A2:D8888单元格内。 求帮助
第1个回答 2018-04-18
Sub f()
Dim rng As Range
Dim a, b
b = 1
a = Sheets(1).Range("C7")
Sheets(2).Range("A2:B14650").Clear
For Each rng In Sheets(3).Range(Cells(1, 1), Cells(14650, 1))
If rng.Text Like "*" & a & "*" Then
Sheets(3).Range(rng, rng.Offset(0, 1)).Copy Sheets(2).Cells(b + 1, 1)
b = b + 1
End If
Next
Sheets(2).Activate
End Sub追问
Dim rng As Range
Dim a, b
b = 1
a = Sheets(1).Range("C7")
Sheets(2).Range("A2:B14650").Clear
For Each rng In Sheets(3).Range(Cells(1, 1), Cells(14650, 1))
If rng.Text Like "*" & a & "*" Then
Sheets(3).Range(rng, rng.Offset(0, 1)).Copy Sheets(2).Cells(b + 1, 1)
b = b + 1
End If
Next
Sheets(2).Activate
End Sub追问
应用程序定义或对象定义错误。。 我用的是excel2010。。跟版本有关系吗。。
追答Sheets(2).Range("A2:B14650").Clear
另起一行加
sheets(3).activate
相似回答
