1.Excel将批注改成显示在表格里的内容请教下如何将表格中的批准改 爱
Sub 按钮5_单击() Dim rng As Range For Each rng In Range(Cells(1, 1), [a65536].End(xlUp)) If Not rng.Comment Is Nothing Then rng.Offset(, 1) = Split(rng.Comment.Text, ":")(1) ' rng.Comment.Delete End If Next End Sub 如果要删除单元格批注,就把 ' rng.Comment.Delete 前的 '去掉.。