为什么在确定最后一行的时候喜欢用[a65536].end(xlup).row而不用usedrange.rows.count

490483577

a = Sheets("入库扫描记录").Range("a65536").End(xlUp).Row
        b = Sheets("入库扫描记录").Range("b65536").End(xlUp).Row
    If a >= b Then
        c = a
    ElseIf a < b Then
        c = b
    End If
    For x = 3 To c
        If Sheets("入库扫描记录").Range("b" & x) = "" Then
            Sheets("入库扫描记录").Range("a" & x, "z" & x) = ""   '清理多余的序号列 或者 次数统计列的数值
        End If


恶心死啦  遇见各种奇葩的表格太多了

zxz393864890

香川群子 发表于 2013-4-22 17:05
至于楼主的担心：

【数据区域中本列最后几行是空白】因而担心无法覆盖全部区域的问题，

非常感谢,没想到在你这里找到了,谢谢

yuanrifeng

我刚刚在做的一份模板里面,就涉及到这个,用了字典,发现达不到自己的效果,总有几行删除不了,最后发现是楼主的这个问题.
总结:r = sht.UsedRange.Rows.Count
Sheets(sht.Name).Range("A65536").End(xlUp).Row

james_jj

一句话：sh1.UsedRange.Cells(sh1.UsedRange.Count).Row