EXCEL如何用宏选择性复制黏贴表格

Question

如图,如何用宏,选择性的复制黏贴最后一行的I,U,AG三个有值的单元格到AW,AX,AY单元格内,要选择性的黏贴为值,因为I,U,AG三个单元格的值是会随着数据一直变动,所以要将其复制到AW,AX,AY单元格内作为文本固定值,这样才不会受数据变动而影响最终的统计

Answer 1

Sub 选择性粘贴()
Dim I%, K%
I = Range("A65536").End(xlUp).Row
K = Range("AW65536").End(xlUp).Row
Cells(I, "i").Select
Selection.copy
Cells(K + 1, "AW").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Cells(I, "U").Select
Selection.copy
Cells(K + 1, "AX").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Cells(I, "AG").Select
Selection.copy
Cells(K + 1, "AY").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
依次粘贴到AW ,AX,AY列后面追问

我需要的复制最后一行有数据的!我也知道录制宏啊!

追答

我知道你意思，已回答

追问

请问这是一个动作还是要分成三个宏动作?如果要修改复制目标与黏贴目标位置,如何修改?

追答

因为你是不连续的动态单元格，需要粘贴到指定列的的动态的单元格
Cells(I, "i").Select 'I列最后1行有数据的选定，复制
Selection.copy
Cells(K + 1, "AW").Select '粘贴到AW列最后1行有数据的下面1行，下同，类推

追问

单元格的数据是每天都在更新增加的.是动态的,只不过我是不想每次都手动复制选择性黏贴,才想用宏来代替操作.对了,K = Range("AW65536").End(xlUp).Row 这段的K是啥意思?我再给你加我剩余的一点点分

追答

这个就是判断AW 列最后1行是第多少行？

然后动态的获取 行号，自动依次将I,U,AG,最后1行的数据依次粘贴到指定列的后面

你自己试下程序，能实现你目的的。

本回答被提问者采纳