兰色幻想vba-3

题目一

Public Sub test1()
    Dim row_num As Integer, col_num As Integer
    row_num = Range("c4").CurrentRegion.Rows.Count
    col_num = Range("c4").CurrentRegion.Columns.Count
    Range("a1") = Range("c4").Cells(row_num, col_num).Address(1, 1)
End Sub

题目二

Public Sub test2()

Dim row_num As Integer, col_num As Integer
row_num = Range("c4").CurrentRegion.Rows.Count
col_num = Range("c4").CurrentRegion.Columns.Count
Range("e13").Comment.Shape.Left = _
Range("c4").Cells(row_num, col_num).Left + _
 Range("c4").Cells(row_num, col_num).Width

End Sub