Sub 题目1()
[a1] = "题目1:"
With Range("c4").CurrentRegion
[b1] = .Range("a1").Offset(.Rows.Count - 1, .Columns.Count - 1).Address(0, 0)
End With
End Sub
Sub 题目2()
Range("f3").Comment.Shape.Left = Columns("d").Offset(0, 1).Left
Range("f3").Comment.Shape.Top = Range("c4").CurrentRegion.Offset(0, 1).Top
End Sub