如果获取一个sheet的最右上角的一格的行列地址？（那个格可能是个合并cell）

如果获取一个sheet的最右下角的一格的行列地址？（那个格可能是个合并cell）
例如，我的表格的使用范围是从A1到AD18。
照理来说最右下角的Cell是Cells(18,30)

可是因为最右下角的cell和别的cell合并了，从表格上点上去，显示的是R17。
我在代码里写sn = Cells(18,30)，返回的是空白内容。


而且因为这样的表格有很多份，格式不太一定，有时候是S17，Q17都不一定。
但是能肯定的是，它是整个表格最右下角的一个格。


我想获得每个这样的表格的这样一个最右下角的cell的row和column值，要怎么写代码呢？

------解决方案--------------------------------------------------------

Dim int_row, int_col As Integer
Dim result_value As String

int_row = Range("G9").MergeArea.Row
int_col = Range("G9").MergeArea.Column
result_value = Cells(int_row, int_col).Value

http://img.my.csdn.net/uploads/201301/24/1359012241_9846.png