如何获取EXCEL 有数据区域的最大行数

lisa1415

如何获取EXCEL 有数据区域的最大行数，不包括包含公式的没有值的行，

渔君

introw=[a655536].end(xlup).row

lisa1415

谢谢，EXCEL 调试的时候，怎么看 introw 的值？

渔君

把光标放到introw上就可以看到了。

ggsmart

usedrange.rows.count

lisa1415

Sub Macro1()
'
' Macro1 Macro

'Union(Range("A1:H100").SpecialCells(xlCellTypeConstants, 23), Range("A1:H100").SpecialCells(xlCellTypeFormulas, 23)).Select
'n = Selection.Rows.Count
Dim introw As Double
introw = [a655536].End(xlUp).Row
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(Sheet1!RC,CHAR(10),""&&"")"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:DZ1"), Type:=xlFillCopy
Range("A1:DZ1").Select
Selection.AutoFill Destination:=Range("A1:introw"), Type:=xlFillCopy
Range("A1:introw").Select

End Sub

我录制了一个宏，然后在里面加上了那个获取的最大行数，运行有错误，说 方法 RANGE  作用于_GLOBLE 时候失败。

是不是定义的变量要定义成全局的，或者代码要挪个位置，我现在看是在模块里面。

lisa1415

原帖由 ggsmart 于 2011-1-22 19:35 发表
usedrange.rows.count

这个是不是 包括包含格式的但没有数值的 单元格 呢？

渔君

Selection.AutoFill Destination:=Range("A1:introw"), Type:=xlFillCopy
改成
Selection.AutoFill Destination:=Range("A1:A" & introw), Type:=xlFillCopy
下面一行也一样。我不知道你要做什么，根据你的需要改，但你的RANGE用法是有误的。

[ 本帖最后由 渔君 于 2011-1-22 19:46 编辑 ]

lisa1415

我修改了下 代码，DZintrow ，当有4行的时候，DZ4，但是报错：方法 RANGE  作用于_GLOBLE 时候失败。

Sub Macro1()
'
' Macro1 Macro
'

'Union(Range("A1:H100").SpecialCells(xlCellTypeConstants, 23), Range("A1:H100").SpecialCells(xlCellTypeFormulas, 23)).Select
'n = Selection.Rows.Count
introw = [a655536].End(xlUp).Row
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(Sheet1!RC,CHAR(10),""&&"")"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:DZ1"), Type:=xlFillCopy
Range("A1:DZ1").Select
Selection.AutoFill Destination:=Range("A1:DZintrow"), Type:=xlFillCopy
Range("A1:DZintrow").Select

End Sub

渔君

Range("A1:DZintrow")这个用法是有误的

格式是Range("a1:b10")
如果加变量，变量不能在引号中，而且要用&连接起来，如：
Range("a1:b" & introw)