[已解决]查找VBA

fangniuji

帮忙一下在这边，写个查找Vba，Ah列编号对应AI列孔型，再看整理介绍

B2默认为编号T01,B3默认为编号T02，以此类推，故E2等于AA，E11=BB，E21=CC

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-1 11:54

1. Sub 扫描()
   
2.     Dim irow&
   
3.     Dim arr, i&
   
4.     irow = Range("ah" & Rows.Count).End(xlUp).Row()
   
5.     If irow = 1 Then Exit Sub
   
6.     With Worksheets("扫孔")
   
7.         arr = .Range("ah1").CurrentRegion
   
8.         .Range("ah1").CurrentRegion.ClearContents
   
9.     End With
   
10.     On Error Resume Next
    
11.     With Worksheets("整理")
    
12.         If Err.Number <> 0 Then
    
13.             MsgBox "工作表读取错误"
    
14.             Err.Clear
    
15.             Exit Sub
    
16.         End If
    
17.         For i = LBound(arr) + 1 To UBound(arr)
    
18.             
    
19.             irow = .Range("a:a").Find(Trim(arr(i, 1)), LookIn:=xlValues, lookat:=xlWhole).Row()
    
20.             If Err.Number <> 0 Then
    
21.                 MsgBox arr(i, 1) & "无匹配项"
    
22.                 Err.Clear
    
23.             Else
    
24.                 arr(i, 2) = .Cells(irow, "e").Value
    
25.             End If
    
26.         Next
    
27.     End With
    
28.     With Worksheets("扫孔")
    
29.         .Range("ah1").CurrentRegion.ClearContents
    
30.         .Range("ah1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
31.     End With
    
32. End Sub

复制代码

其实用VLOOKUP就能解决啊。

跳转到最佳答案楼层

E路人

孔型这个莫非是编号，没看明白。

zjdh

看不明白！            

fangniuji

zjdh 发表于 2012-11-29 08:23
看不明白！

重新说明一下，帮我看看，谢谢。

fangniuji

E路人 发表于 2012-11-29 08:20
孔型这个莫非是编号，没看明白。

是的，谢谢关心，谢谢。。

zjdh

结果写在哪个工作表里？

hwc2ycy

标记，晚上再来做。

hwc2ycy

1. Sub 扫描()
   
2.     Dim irow&
   
3.     Dim arr, i&
   
4.     irow = Range("ah" & Rows.Count).End(xlUp).Row()
   
5.     If irow = 1 Then Exit Sub
   
6.     With Worksheets("扫孔")
   
7.         arr = .Range("ah1").CurrentRegion
   
8.         .Range("ah1").CurrentRegion.ClearContents
   
9.     End With
   
10.     On Error Resume Next
    
11.     With Worksheets("整理")
    
12.         If Err.Number <> 0 Then
    
13.             MsgBox "工作表读取错误"
    
14.             Err.Clear
    
15.             Exit Sub
    
16.         End If
    
17.         For i = LBound(arr) + 1 To UBound(arr)
    
18.             
    
19.             irow = .Range("a:a").Find(Trim(arr(i, 1)), LookIn:=xlValues, lookat:=xlWhole).Row()
    
20.             If Err.Number <> 0 Then
    
21.                 MsgBox arr(i, 1) & "无匹配项"
    
22.                 Err.Clear
    
23.             Else
    
24.                 arr(i, 2) = .Cells(irow, "e").Value
    
25.             End If
    
26.         Next
    
27.     End With
    
28.     With Worksheets("扫孔")
    
29.         .Range("ah1").CurrentRegion.ClearContents
    
30.         .Range("ah1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
31.     End With
    
32. End Sub

复制代码

其实用VLOOKUP就能解决啊。

hwc2ycy

1. Sub 扫描2()
   
2.     Dim irow&
   
3.     Dim arr, i&
   
4.     Dim arr2(), k&
   
5.     With Worksheets("整理")
   
6.         irow = .Range("a" & Rows.Count).End(xlUp).Row()
   
7.         If irow = 1 Then Exit Sub
   
8.         arr = .Range("a2:e" & irow).CurrentRegion
   
9.     End With
   
10.     Application.ScreenUpdating = False
    
11.     'k = 1
    
12.     For i = LBound(arr) To UBound(arr)
    
13.         If Len(arr(i, 5)) > 0 Then
    
14.             k = k + 1
    
15.             ReDim Preserve arr2(1 To 2, 1 To k)
    
16.             arr2(1, k) = arr(i, 1)
    
17.             arr2(2, k) = arr(i, 5)
    
18.         End If
    
19.     Next
    
20.     arr2(1, 1) = "编号"
    
21.     arr2(2, 1) = "孔型"
    
22.     arr2 = WorksheetFunction.Transpose(arr2)
    
23.    
    
24.     With Worksheets("扫孔")
    
25.         .Range("ah1").CurrentRegion.ClearContents
    
26.         .Range("ah1").Resize(UBound(arr2), UBound(arr2, 2)) = arr2
    
27.     End With
    
28.    
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "扫描完成"
    
31. End Sub

复制代码

ljb448458283

我想问一下这个问题怎么实现
如图为表1
我想在表2中的A1单元格输入数字   能查找出表1中A列对应数值的整行且显示到 表2中的第2行
在表2中还要能修改这行的数值 同时表1中的数值也要被修改


这个怎么做到啊·········
跪求高手指点{:091:}
加急快递{:361:}