Sub 第1题()
Dim i, x
i = Range("c4").CurrentRegion.Rows.Count
x = Range("c4").CurrentRegion.Columns.Count
Range("A3") = Cells(i + 2, x + 2).Address(0, 0)
End Sub
Sub 第2题()
Dim i, x, y
i = Columns("D").Left
x = Columns("D").Width
y = Rows(3).Top
Range("F3").Comment.Shape.Top = y
Range("F3").Comment.Shape.Left = i + x
End Sub