EXCEL使用VBA查询数据 高分急问

发布网友 发布时间：2022-04-20 02:09

我来回答

共5个回答

热心网友 时间：2023-08-04 09:02

代码给你贴出来把。。主要是查询这一块的代码。。
Sub chaxun()
Dim maxrow As Long
Dim c As Range
maxrow = Sheet2.Range("A65535").End(xlUp).Row '取得sheet2的最大行数maxrow
Dim Rng
For Each c In Sheet2.Range("A1:A" & maxrow) '循环sheet2的A列特定查找的数值区域
Set Rng = Sheet1.Cells.Find(c.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Rng Is Nothing Then
c.Offset(0, 1).Value = Rng.Offset(0, 1).Value
End If
Next
End Sub

热心网友 时间：2023-08-04 09:02

=查找(A10,"SHEET1")
A10是查找的单元格，SHEET1是表名称，当然像我这样使用区域大是会卡的，不过你可以去走
Application.Volatile这句话

Function 查找(C As Range, S As String) As String
Dim HADDRESS%, LADDRESS%
Application.Volatile
U = C
If U <> "" Then
Set RNG = Worksheets(S).UsedRange.Find(WHAT:=U)
If Not RNG Is Nothing Then
HADDRESS = RNG.Row
LADDRESS = RNG.Column + 1
End If
End If
查找 = Worksheets(S).Cells(HADDRESS, LADDRESS)
End Function

热心网友 时间：2023-08-04 09:03

这个要用VBA？！直接Ctrl＋G定位空格，然后删除不就行了么！！ 当然自己再排排整齐

热心网友 时间：2023-08-04 09:03

这个VBA好操作的！
把你的邮箱私信给我，把我做的发给你！

代码如下：
Sub AA()
For i = 1 To Sheets(2).[a65536].End(3).Row
Set m = Sheet1.Cells.Find(Sheets(2).Cells(i, 1), lookat:=xlWhole, SearchOrder:=xlByColumns)
If Not m Is Nothing Then
Sheets(2).Cells(i, 2) = m.Offset(0, 1)
End If
Next
End Sub

热心网友 时间：2023-08-04 09:04

将文件发来看看