[已解决]vb哪错了

sixnu

表

32	40	830	830
1	20	20	20
2	20	40	40
3	20	60	60
11	25	225	225
21	30	480	480

代码

1. Sub 表()
   
2. With Range("b2").CurrentRegion
   
3. [h11] = .Row
   
4. [h12] = .Row.Count
   
5. [h13] = .Column
   
6. [h14] = .Column.Count
   
7. [h15] = .[a1].Address
   
8. End With
   
9. End Sub
   

复制代码

错误
无效限定符
哪有问题？

最佳答案

月排行榜 / 总排行榜

风林火山

2014-1-10 16:10

加个s试试
.rows.count
.columns.count

跳转到最佳答案楼层

风林火山

加个s试试
.rows.count
.columns.count

sixnu

风林火山 发表于 2014-1-10 16:10
加个s试试
.rows.count
.columns.count

确实是少了个S

fffox

你是想要求区域总行数、总列数吧
应该是：
[h12] = .Rows.Count
[h14] = .Columns.Count

ppp710715

三个错误，改正如下：
Sub 表()
With Range("b2").CurrentRegion
[h11] = .Row
[h12] = .Rows.Count
[h13] = .Column
[h14] = .Columns.Count
[h15] = .Address
End With
End Sub