Question

如何把excel中批注的内容转入表格内?

Answer 1

除了直接打开批注进行复制粘贴外，可以使用如下代码进行批量复制。

Sub Export_com()
Dim myRange As Range
Dim i As Single
i = 1
For Each myRange In ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
Cells(i, 1) = myRange.Comment.Text
i = i + 1
Next
End Sub

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range '所选单元格右侧的单元格
Set rng = ActiveSheet.Cells(Target.Column, Target.Row + 1)
If Not (Target.Comment Is Nothing) Then '如果所选单元格有批注内容，就在其右侧单元格显示
rng.Value = Target.Comment.Text
End If

End Sub