Question

这是代码，我不知道它失败了什么错？我想我无法定义一个变化的范围目的是将选定的行从一个工作表复制到另一个工作表的末尾... 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)

谢谢你的帮助。我不知道问题是否清楚

Answer 1

.Range("A" & "k")应该是.Range("A" & K)（即丢失字母K周围的引号）

正如你现在所做的那样，代码正在寻找一个地址为＆＃34; Ak＆＃34;这没有意义。修改后的代码将寻找一个地址范围为＆＃34; A2＆＃34;这可能是你想要的

在一个工作表中复制一行并粘贴到另一个工作表中

1 个答案: