vba取一列数中非0的行_vba excel怎么获取指定工作表的行数 列数

展开全部

列

Sub 列()

a = Columns("C:H").Count 'c:h的长度

b = Cells(1, Columns.Count).Address '列的最大值

c = Cells(1, Columns.Count).End(xlToLeft).Column '有效列(包含32313133353236313431303231363533e59b9ee7ad9431333365653231空值)

d = ActiveSheet.UsedRange.Columns.Count '有效列(包含空值)

f = Application.CountA(ActiveSheet.Range("1:1")) '有效列(到空值停止)

n = 12

g = Range(Chr(65 + n) & "1").Address '求第12列

End Sub

2.行

Sub 行()

a = Cells(Rows.Count, 1).Address '行的最大值

b = Cells(Rows.Count, 1).End(xlUp).Row '有效行(包含空值)

c = ActiveSheet.UsedRange.Rows.Count '有效行(包含空值)

d = Application.CountA(ActiveSheet.Range("a:a")) '有效行(到空值停止)

End Sub