EXCEL 从一个表复制数据粘贴到另一个表

时间: 2017-01-13 / 分类: 生活 / 浏览次数: 3,265 views / 0个评论 发表评论

两张表 一张为原表 一张为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代码

发表评论

您的昵称 *

您的邮箱 *

您的网站