剪贴板有大量信息，vba语句如何直接选是呢？

我为啥登不进去 · 发表于 2019-12-4 15:04

（将Range("c2:y120")数据复制后，到Cells(2,7)单元格进行粘贴）

Range("c2:y120").Copy:Cells(2,7).PasteSpecial Paste:=xlPasteValues'红色部分表示只粘贴值
用了只粘贴值的代码后，又跳出了在剪贴板上有大量信息，是否保留其内容，以便此后粘贴到其他程序中，这个选项了。。请问如何再添加语句直接选是呢？

wdx223 · 发表于 2019-12-4 15:09

Application.CutCopyMode = False

山菊花 · 发表于 2019-12-5 08:16

可以使用数组：
Dim Arr()
Arr = Range("c2:y120").Value
‘Range("g2:ac120").Value = Arr
Cells(2, 7).Resize(UBound(Arr), UBound(Arr, 2)).Value = Arr

		自动登录	找回密码
密码			免费注册

[求助] 剪贴板有大量信息，vba语句如何直接选是呢？

评分

最新热点 /1