菜鸟求助技术难题，关于批注分项提取内容

fatdogdog

现在我有一个表~~内容大概在附件可以看到~~因为我刚学，很多都不会，我想做的是~~我做了个一批注，然后批注的内容就会自动帮我最后面的单元格，分项的帮我列了出来！注意哦~批注上是有写序号的，而提取出来的内容是没有的！不知道代码应该怎么写呢？

Select

1. Sub test()
   
2.     Dim i, r, j, s
   
3.     r = [a65536].End(3).Row
   
4.     If r > 2 Then
   
5.         For i = 2 To r
   
6.             With Cells(i, 1)
   
7.                 .ClearComments
   
8.                 .AddComment
   
9.                 For j = 2 To 6
   
10.                     s = s & Cells(1, j) & ":" & Cells(i, j) & Chr(10)
    
11.                 Next j
    
12.                 .Comment.Text Text:=s
    
13.                 s = ""
    
14.             End With
    
15.         Next i
    
16.     End If
    
17. End Sub

复制代码

新建 Microsoft Excel 工作表2.rar (8.94 KB, 下载次数: 4)

2011-8-29 10:23 上传

点击文件名下载附件 {:221:}

雪日骄阳

貌似清楚了，可还是没看明白。难度不大，写清楚要求就可以了

fatdogdog

回复 雪日骄阳 的帖子

看表的话可能清楚一点~~~