VBA解释这三条ells(Rows.Count, 3).End(xlUp)有什么不同
VBA解释这三条ells(Rows.Count, 3).End(xlUp)有什么不同Sub 实例1动态选单元格或区域()
Dim i%
'i = Cells(Rows.Count, 3).End(xlUp).Row '为什么这句等于11
'i = Cells(Rows.Count, 3).End(xlUp).Rows '为什么这句等于9
i = Cells(Rows.Count, 3).End(xlUp).Rows.Count '为什么这句等于1
Range("a1:c" & i).Select
End Sub
第一 个是求最后一行的行号
第二个我也不清楚为什么为九也没见过这种用法
第三个为最后一个单元格行数也没见过这用法 第一 句是求最后一行的行号11
第二句是是以单元格的数值为显示的,一个单元格的rows没意义,改个别的数值会显示改的数值
第三句是统计的第二局的显示数值的个数,所以为1
十五的月亮 发表于 2017-2-1 23:27
第一 句是求最后一行的行号11
第二句是是以单元格的数值为显示的,一个单元格的rows没意义,改个别的数值 ...
请VBA高手解析一下,这个brr(i)=0代表什么,用brr(i)=1难道不可以
http://www.excelpx.com/thread-427539-1-1.html
Sub tt()
arr = Range("c11:c" & .End(3).Row)
x =
Dim brr(1 To 6)
For i = 1 To 6
brr(i) = 0 '请VBA高手解析一下,这个brr(i)=0代表什么,用brr(i)=1难道不可以
Next
For i = 1 To UBound(arr) - 1
If arr(i, 1) = x Then brr(arr(i + 1, 1)) = brr(arr(i + 1, 1)) + 1
Next
.Resize(, 6) = brr
End Sub
页:
[1]