Sub 文本转批注() '2010年11月5日编写 Dim i%, j%, icount%, jcount% With ActiveSheet icount = .Cells(65536, 1).End(xlUp).Row '取得工作表最下方的单元格的行标 jcount = .Cells(1, 256).End(xlToLeft).Column '取得工作表最右边的单元格的列标 For i = 1 To icount For j = 1 To jcount If .Cells(i, j).COMMENT Is Nothing Then .Cells(i, j).AddComment Text:=.Cells(i, j).Value '添加批注,将文本值赋予批注值 .Cells(i, j).COMMENT.Visible = True '设置显示批注 End If Next Next .Range("A1").Resize(icount, jcount).clearcontents '清除单元格内的内容 End With End Sub