Question

excel vba的 rang(a65536).end(xlup).row这句显示没有该属性

查了很都文章都介绍，这句用来查找一列下最后一个的，但在实际使用中，ROW这个属性代码提示也显示出来，但测试运行的时候，提示Range不存在该属性，是什么原因？

Answer 1

rang(a65536).end(xlup).row
是不是少个e,应该是range

追问

不是，原码是有E的，只是这里提问打漏了，可以忽略，只是我就算把别人原句复制也是运行不了，不知哪里问题

追答

你现在要实现什么功能？

追问

我想实现，例如，我将另一个表A的一个单元格的东西，复制到另一个表B的某一列的下面，因为这样重复那一列最后一个格是变的，这样的循环地追加上去。

追答

用for循环做吧:

    

    Dim i As Long
    For i = 1 To 10
        Worksheets(2).Cells(i, 1) = Worksheets(1).Cells(i, 1)
    Next i

像上面这段代码，把sheet1的A1-A10的数据，拷贝到sheet2的A1到A10上去。

追问

cell(i,1)是确认不了的，想这样，每天从另一个工作簿的数据，复制到这个工作簿的表上面去，但我要接着一行一行追加啊，直接FOR I = 1 TO 10可能就会不断覆盖前10行了。

追答

直接肯定不行啊，你可以先判断嘛，
先判断一段是不是空，非空再执行嘛
if cell(i,1)="" then....

Answer 2

应该是方法，不是属性。

后面有括号的
.Row()

追问

加括号是没用的，会提示编译错误。

追答

你的代码是添加在模块中的吗？

追问

是的

追答

奇怪~为啥我的的好用呢~

追问

如果用第一段SUB是没有问题的，会显示图右边，表格的结果。如果是第二段SUB会弹出这样的对话框终止运行。

加括号就会这样

追答

如果你是想要用户区域的最后一行的话~我可以提供给你另外一种方法
ActiveSheet.Range("A1").CurrentRegion.Rows.Count

Answer 3

应该是：
range("a65536").end(xlup).row

追问

不是语句，错误的问题，上面我打错了。是按照你这条语句会显示器“编译错误，属性的使用无效”

追答

range("a65536").end(xlup).row应作为表达式使用，2003版表示A列有数据（包括公式）的最后一行的行号。range("a65536").end(xlup).row不能单独作为语句使用，只能用作语句的一部分。例如在立即窗口输入：
？ range("a65536").end(xlup).row
会显示出该行号。

Answer 4

range("A65536")
注意要有双引号，同时range函数名要正确。