EXCEL 从一个表复制数据粘贴到另一个表
两张表 一张为原表 一张为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代码