求高手指点，跪谢

hxj119

是这样一对一显示？？公式无此功能呢！也许VBA能解决

静水流深1991

hxj119 发表于 2024-7-29 09:29
是这样一对一显示？？公式无此功能呢！也许VBA能解决

好的，我问问那边

袁勇

静水流深1991 发表于 2024-7-29 09:28
老师，可有良方？用宏能解决吗

公式解决不了，但VBA可以处理。

静水流深1991

袁勇 发表于 2024-7-29 09:31
公式解决不了，但VBA可以处理。

老师，这个代码能发一下吗

袁勇

静水流深1991 发表于 2024-7-29 09:33
老师，这个代码能发一下吗

1. Private Sub CommandButton1_Click()
   
2.     Dim i, j As Integer
   
3.     x = Range("a1").End(xlDown).Row
   
4.     y = Range("a1").End(xlToRight).Column
   
5.     For i = 1 To x
   
6.         For j = 1 To y
   
7.             Cells(i, j).Select
   
8.             Cells(i, j).ClearComments
   
9.             Cells(i, j).AddComment
   
10.             Cells(i, j).Comment.Text Text:="批注作者:" & Chr(10) & Sheets("附注内容一一对应").Cells(i, j)
    
11.         Next
    
12.     Next
    
13. End Sub

复制代码