在某列找到相应的单元格后，将该单元格前一列选定单元格复制到指定位置的VBA语句怎写

xuhaiboscut

如题，紧急向各位大神请教一个VBA问题。
想实现的功能：在附件excel中，如果C列座位号与V列座位号一样，则会自动把U列的名字复制到B列对应的行中。
如：使用c列的17在v列查找，找到17了，将v列17前面的洪伟复制到c列的17前面。

感谢各位大神。

不知道为什么

用个函数 vlookup 就可以解决的啊，必须要用vba？

不知道为什么

如一定用vba ，供参考

1. Sub test()
   
2.     Dim Arr, Dic, i&, r&
   
3.     Set Dic = CreateObject("scripting.dictionary")
   
4.     Application.ScreenUpdating = False
   
5.     Arr = [u1].CurrentRegion
   
6.     For i = 2 To UBound(Arr)
   
7.         Dic(Arr(i, 3)) = Arr(i, 2)
   
8.     Next i
   
9.     r = Cells(Rows.Count, 3).End(3).Row
   
10.     Arr = Range("b1:c" & r)
    
11.     For i = 2 To r
    
12.         If Dic.exists(Arr(i, 2)) Then Arr(i, 1) = Dic(Arr(i, 2))
    
13.     Next i
    
14.     Range("b1:c" & r) = Arr
    
15.     Set Dic = Nothing
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码

lsc900707

欢迎新人！
看描述应该是个字典代替vlookup解决的问题耶。

Mapleaf12138

1. Sub test()
   
2.     Dim r%, maxR%, i%
   
3.     Dim colV As Range
   
4.     Dim rng As Range
   
5.     maxR = [C65536].End(xlUp).Row
   
6.     Set colV = Columns("V")
   
7.     For i = 2 To maxR
   
8.         Set rng = colV.Find(Cells(i, 3))
   
9.         If Not rng Is Nothing Then Cells(i, 2) = rng.Offset(0, -1)
   
10.     Next
    
11. End Sub

复制代码