[求助]怎样得到一个区域的行数和列数

lgfhplh

请教各位高手

Sub Macro1()

Dim aa As Range

With Sheet3
    Range("A2").Select
   Set aa = Selection.CurrentRegion   
  t = aa.Address(ReferenceStyle:=xlR1C1)
End With
End Sub

这段代码能得到一个区域.例如:B2:G12.那么,怎么把这个区域的列数6和行数11赋给2个变量x,y呢?

lgfhplh

已经解决了