Public Sub 第一题()
Dim i, j, f
i = Range("C4").CurrentRegion.Rows.Count
j = Range("C4").CurrentRegion.Columns.Count
f = Range("C4").CurrentRegion.Cells(i, j).Address(0, 0)
[C20] = f
End Sub
Public Sub 第二题()
Range("F3").Comment.Shape.Left = Range("C4").CurrentRegion.Left + Range("C4").CurrentRegion.Width
End Sub