大神，请教一个问题！！！

我自己ctrl+c ctrl+v快累死了，太多工作表了！

VBA，批量快速

按住alt依次按f11,i,m
粘贴下面代码后按f5,即可在当前文件第一个sheet前插入一个新sheet,并将你要的内容提取到这个sheet的a,b列.
Sub test()
On Error Resume Next
Sheets.Add Sheets(1)
For i = 2 To Sheets.Count
With Sheets(i).Range("A1")
Cells(i, 1) = .Value
Cells(i, 2) = .Comment.Text
End With
Next
End Sub

在吧主的帮助下，完成了任务！
感谢各位热心的朋友！
此贴终结！