|
有表A,表B。
表B中某一列的数据内容是表A某一列的子集,顺序不同。例如:在表A是aA1;aA2;aA3;aA4;aA5,在表B是aA2;aA5;aA1。
现需要把表B中aA1行的数据复制追加到表A中对应aA1行的后面列。
备注:用vlookup函数后由于数据太大(每月有2000条左右),再浏览、修改表A时经常死机,而且每个月都要弄。
求高手写个VBA。自己弄了一天还是不行,用2个循环去弄,也是卡的起火。想用.find方法又没得要领,总是出错。
Public Sub 两表整合()
Dim j, i As Integer
Dim Astr, Bstr As String
For j = 2 To 10000
Astr = Sheets("个人报告汇总表").Range("A" & j).Value
For i = 2 To 10000
Bstr = Sheets("2016年全年报告奖金计算").Range("A" & i).Value
If Bstr = Astr Then
Sheets("个人报告汇总表").Range(Cells(2, j), Cells(22, j)).Copy
Sheets("2016年全年报告奖金计算").Range("Q" & i).Paste
End If
Next
Next
End Sub
Sub 宏3()
'
' 宏3 宏
'
' 快捷键: Ctrl+a
'
For i = 2 To 1050
Sheets("个人报告汇总表").Select
Range("A" & i).Select
Selection.Copy
Sheets("2016年全年报告奖金计算").Select
Columns("A:A").Select
j=Range("A1:A2000").Find(What:=Range("A" & i), After:=ActiveCell, LookIn:=
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).row
Range("Q25").Select
Next
End Sub
|
|