求助：请问请问如何把Excel某些单元格批注的内容转入到表格其他单元格内急需，谢谢，最好帮写一个VBA。

发布网友 发布时间：2022-05-07 16:25

我来回答

共2个回答

热心网友 时间：2023-11-06 13:04

因这些单元格没有规律，只好分别处理。
1、如果是将E4,E6,E7单元格的批注分别复制到F4,F6,F7单元格内（成为单元格内容），可以用：
Sub test()
Range("F4") = Range("E4").Comment.Text
Range("F6") = Range("E6").Comment.Text
Range("F7") = Range("E7").Comment.Text
End Sub
2、如果是将E4,E6,E7单元格的批注分别转到F4,F6,F7单元格内变成批注，可以用：
Sub test()
Range("E4").Copy
Range("F4").PasteSpecial Paste:=xlPasteComments
Range("E6").Copy
Range("F6").PasteSpecial Paste:=xlPasteComments
Range("E7").Copy
Range("F7").PasteSpecial Paste:=xlPasteComments
End Sub

热心网友 时间：2023-11-06 13:04

出现“批注”后，右键选“编辑批注”，复制所需内容，粘贴到指定位置即可。

热心网友 时间：2023-11-28 14:01

因这些单元格没有规律，只好分别处理。
1、如果是将E4,E6,E7单元格的批注分别复制到F4,F6,F7单元格内（成为单元格内容），可以用：
Sub test()
Range("F4") = Range("E4").Comment.Text
Range("F6") = Range("E6").Comment.Text
Range("F7") = Range("E7").Comment.Text
End Sub
2、如果是将E4,E6,E7单元格的批注分别转到F4,F6,F7单元格内变成批注，可以用：
Sub test()
Range("E4").Copy
Range("F4").PasteSpecial Paste:=xlPasteComments
Range("E6").Copy
Range("F6").PasteSpecial Paste:=xlPasteComments
Range("E7").Copy
Range("F7").PasteSpecial Paste:=xlPasteComments
End Sub

热心网友 时间：2023-11-28 14:02

出现“批注”后，右键选“编辑批注”，复制所需内容，粘贴到指定位置即可。

热心网友 时间：2023-11-06 13:04

因这些单元格没有规律，只好分别处理。
1、如果是将E4,E6,E7单元格的批注分别复制到F4,F6,F7单元格内（成为单元格内容），可以用：
Sub test()
Range("F4") = Range("E4").Comment.Text
Range("F6") = Range("E6").Comment.Text
Range("F7") = Range("E7").Comment.Text
End Sub
2、如果是将E4,E6,E7单元格的批注分别转到F4,F6,F7单元格内变成批注，可以用：
Sub test()
Range("E4").Copy
Range("F4").PasteSpecial Paste:=xlPasteComments
Range("E6").Copy
Range("F6").PasteSpecial Paste:=xlPasteComments
Range("E7").Copy
Range("F7").PasteSpecial Paste:=xlPasteComments
End Sub

热心网友 时间：2023-11-06 13:04

出现“批注”后，右键选“编辑批注”，复制所需内容，粘贴到指定位置即可。

热心网友 时间：2023-11-06 13:04

因这些单元格没有规律，只好分别处理。
1、如果是将E4,E6,E7单元格的批注分别复制到F4,F6,F7单元格内（成为单元格内容），可以用：
Sub test()
Range("F4") = Range("E4").Comment.Text
Range("F6") = Range("E6").Comment.Text
Range("F7") = Range("E7").Comment.Text
End Sub
2、如果是将E4,E6,E7单元格的批注分别转到F4,F6,F7单元格内变成批注，可以用：
Sub test()
Range("E4").Copy
Range("F4").PasteSpecial Paste:=xlPasteComments
Range("E6").Copy
Range("F6").PasteSpecial Paste:=xlPasteComments
Range("E7").Copy
Range("F7").PasteSpecial Paste:=xlPasteComments
End Sub

热心网友 时间：2023-11-06 13:04

出现“批注”后，右键选“编辑批注”，复制所需内容，粘贴到指定位置即可。

热心网友 时间：2023-11-06 13:04

因这些单元格没有规律，只好分别处理。
1、如果是将E4,E6,E7单元格的批注分别复制到F4,F6,F7单元格内（成为单元格内容），可以用：
Sub test()
Range("F4") = Range("E4").Comment.Text
Range("F6") = Range("E6").Comment.Text
Range("F7") = Range("E7").Comment.Text
End Sub
2、如果是将E4,E6,E7单元格的批注分别转到F4,F6,F7单元格内变成批注，可以用：
Sub test()
Range("E4").Copy
Range("F4").PasteSpecial Paste:=xlPasteComments
Range("E6").Copy
Range("F6").PasteSpecial Paste:=xlPasteComments
Range("E7").Copy
Range("F7").PasteSpecial Paste:=xlPasteComments
End Sub

热心网友 时间：2023-11-06 13:04

出现“批注”后，右键选“编辑批注”，复制所需内容，粘贴到指定位置即可。