详情
表格中怎样批量地把批注的内容导出来,请教了提取批bai注内du容填写zhi到单dao元格版中
Sub 取批权注（）
Dim myrange, myrange1 As Range
Dim mycomment As Comment
For i = 1 To 100
Set myrange = Cells(i, 1)
Set myrange1 = Cells(i, 2)
Set mycomment =
If mycomment Is Nothing Then
myrange1 = " "
Else
myrange1 =
End If
Next i
Set myrange = Nothing
Set mycomment = Nothing
End Sub