|
本帖最后由 ms967967 于 2014-9-18 19:43 编辑
有两张表,格式相同,如何用VBA让SHEET1的内容做为批注批量插入到对应的SHEET2单元格,例如:SHEET1的A1里是AAA,如何变成SHEET2的A1批注是AAA.
附件在2楼
- Sub a()
- Dim arr, i&, j&
- Sheets(2).UsedRange.ClearComments
- arr = Sheets(1).Range("a1:c5")
- For i = 1 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- If Cells(i, j) <> "" Then
- Sheets(2).Cells(i, j).AddComment Text:=arr(i, j)
- End If
- Next
- Next
-
-
- End Sub
复制代码
|
|