Sub Macro1()On Error Resume NextFor I = 2 To [A65536].End(3).RowCells(I, 1) = Cells(I, 1) & " " & Cells(I, 1).Comment.TextNextEnd Sub假设运行对象是A列的话 代码如上。
提取的范围是整个表格还是某一行某一列？
