excel问题单元格引用为批注问题

Question

如何将单元格中的数据作为批注，比如将sheet1中的A1：A10作为sheet2中A1的批注，望大神帮忙解决下，感激不尽！

Answer 1

在工作表标签上击右键，查看代码

在VBE窗口中，“插入”---模块

在模块代码窗口中粘贴以下代码

Sub 批注()
Dim a As String
a = ""
For i = 1 To 10
Set s = Worksheets("Sheet1").Range("A" & i)
a = a + s
Next
Worksheets("Sheet2").Range("A1").AddComment
Worksheets("Sheet2").Range("A1").Comment.Visible = False
Worksheets("Sheet2").Range("A1").Comment.Text Text:=a
End Sub

按F8运行这个宏，就行了。

追问

提示说类型不匹配

追答Sub 批注()
Dim a As String
a = ""
For i = 1 To 10
Set s = Worksheets("Sheet1").Range("A" & i)
a = a + cstr(s)
Next
On Error Resume Next   '容错
Worksheets("Sheet2").Range("A1").Comment.Delete
Worksheets("Sheet2").Range("A1").AddComment
Worksheets("Sheet2").Range("A1").Comment.Visible = False
Worksheets("Sheet2").Range("A1").Comment.Text Text:=a
End Sub