提取批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 = myrange.Comment
If mycomment Is Nothing Then
myrange1 = " "
Else
myrange1 = mycomment.Text
End If
Next i
Set myrange = Nothing
Set mycomment = Nothing
End Sub
热门排行
热评榜单
