这是代码,我不知道它失败有什么错?我认为我无法定义一个范围来更改目标是将选定的行从一个工作表复制到另一工作表的末尾... row.counts等根本不起作用!我不知道为什么...我正在使用excel2007,而vba版本是6.5,我不知道是否可以将其升级到更好的版本?这是代码:
K = 2
For i = 1 To LastLine
If Cells(i, 2).Value = longti Then
Rows(i).Select
Selection.Copy
Worksheets("result").Range("A" & "k").PasteSpecial (xlPasteValues)
谢谢你的帮助 。我不知道问题是否清楚
.Range("A" & "k")
应该可能是.Range("A" & K)
(即,丢失字母K周围的引号)
就像您现在拥有的那样,代码正在寻找地址“ Ak”的范围,这是没有意义的。修改后的代码将查找地址为“ A2”的范围,这可能是您想要的
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句