求高手！！如何让EXCEL表中一列的内容全部放在相应单元格的批注中？单元格的内容不删除？
这样的一个表格，我想把13列每行单元格的内容弄到批注中，批注一开始写上今天的日期，最后的效果为13列第2行的那种，有没有一种简单的方法，因为这样需要弄好长时间，表太大了，谢谢，请高手赐教！谢谢啦。
之前收藏了一个类似功能的，请看看是否符合要求。
第一步、打开你的EXCEL工作薄，最好关闭其它无关的EXCEL文件，按ALT+F11
这一步就只按一个键，就是按住ALT不放，按以下F11，然后立即放开，三秒之内完成
这个步骤成功的标志：新打开一个窗口，标题是：Microsoft Visual Basic for Application
第二步、在上面打开的VBA窗口里面，按CTRL+R
是的，就这么简单，这一步也就是一个热键
这个步骤成功的标志，在VBA窗口里面的左边出现一个小窗口，标题是“工程-VBAProject”，里面有你打开的所有工作薄、工作表
第三步、先紧张你一下，这一步没有前面两步那么简单，操作稍微复杂一点，请一定仔细
在工程窗口里面，双击你需要自动添加备注的工作表，一定双击，不怕多，最好多击几次，注意你击的时候，会新开一个类似记事本的窗口，窗口标题前面部分是你的EXCEL文件、工作表名称，后面部分是“（代码）”
第四步、在代码窗口粘贴以下内容（以下所有的代码行，直到第五步结束）：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim y,s
y=Target.Column
if y=13 then'A列为1，I列为9，其余的自己计算
s = Date & " " & Time & ":" & Target.Value
If Not Target.Comment Is Nothing Then
s = Target.Comment.Text & Chr(10) & s
Target.ClearComments
End If
Target.AddComment s
end if
End Sub
第五步、这个步骤其实没有什么需要做的，你现在随便去修改这个表单元格，备注立即会添加
这是个验证步骤，如果结果满意，你可以关闭EXCEL、保存所有修改，再次打开，因为太多的窗口怕引起你心烦。
说明，再次打开的时候可能会提示文件有宏，你要点允许执行，如果根本不提示，说明你的宏安全性设置得太高，需要在选项里面降低安全性到“中”
第一步、打开你的EXCEL工作薄，最好关闭其它无关的EXCEL文件，按ALT+F11
这一步就只按一个键，就是按住ALT不放，按以下F11，然后立即放开，三秒之内完成
这个步骤成功的标志：新打开一个窗口，标题是：Microsoft Visual Basic for Application
第二步、在上面打开的VBA窗口里面，按CTRL+R
是的，就这么简单，这一步也就是一个热键
这个步骤成功的标志，在VBA窗口里面的左边出现一个小窗口，标题是“工程-VBAProject”，里面有你打开的所有工作薄、工作表
第三步、先紧张你一下，这一步没有前面两步那么简单，操作稍微复杂一点，请一定仔细
在工程窗口里面，双击你需要自动添加备注的工作表，一定双击，不怕多，最好多击几次，注意你击的时候，会新开一个类似记事本的窗口，窗口标题前面部分是你的EXCEL文件、工作表名称，后面部分是“（代码）”
第四步、在代码窗口粘贴以下内容（以下所有的代码行，直到第五步结束）：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim y,s
y=Target.Column
if y=13 then'A列为1，I列为9，其余的自己计算
s = Date & " " & Time & ":" & Target.Value
If Not Target.Comment Is Nothing Then
s = Target.Comment.Text & Chr(10) & s
Target.ClearComments
End If
Target.AddComment s
end if
End Sub
第五步、这个步骤其实没有什么需要做的，你现在随便去修改这个表单元格，备注立即会添加
这是个验证步骤，如果结果满意，你可以关闭EXCEL、保存所有修改，再次打开，因为太多的窗口怕引起你心烦。
说明，再次打开的时候可能会提示文件有宏，你要点允许执行，如果根本不提示，说明你的宏安全性设置得太高，需要在选项里面降低安全性到“中”
温馨提示：答案为网友推荐，仅供参考
相似回答