小货工作室

两张表 一张为原表 一张为Sheet3
原表 H为 已完成工作量 J为奖励分数
Sheet3 中A列为姓名 B列为 已完成工作量 C为奖励分数

复制的时候选择粘贴数值

Dim i
Dim j
Dim k
Dim l1, l2
Dim m
Dim n
‘ Selection.Copy
i = Selection.Row
j = Selection.Column
k = Selection.Value
Sheets(“原表”).Select

Cells.Find(What:=k, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate

m = Selection.Row
n = Selection.Column
Sheets(“Sheet3”).Select
Range(“B” & i).Select
Selection.Copy
Sheets(“原表”).Select
Range(“H” & m).Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets(“Sheet3”).Select
Range(“C” & i).Select
Selection.Copy

Sheets(“原表”).Select
Range(“J” & m).Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

一些命令啥的，不懂的可以先录制宏，然后再编辑VB代码