批量插入不同内容的批注

benwalla009 · 发表于 2024-9-21 10:18

求助一下，自动插入批注，要求把产品的规格作为批注批量新建到产品名称上。

benwalla009 · 发表于 2024-9-21 10:19

一个一个加太慢了

袁勇 · 发表于 2024-9-21 10:39

benwalla009 · 发表于 2024-9-21 10:43

袁勇发表于 2024-9-21 10:39

谢谢，学习了，

chlzj · 发表于 2024-9-21 11:09

Sub AddComments()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
      If Cells(i, 1).Value <> "" And Cells(i, 2).Value <> "" Then
         Cells(i, 1).AddComment Cells(i, 2).Value
      End If
Next i
End Sub
执行前把你示列里的批注先删掉哦！

Qs18 · 发表于 2024-9-21 15:22

Sub qs() '批量添加批注
Dim arr, i, rng As Range, rg As Range
With Sheet1
r = .Cells(Rows.Count, 1).End(3).Row
Set rng = .Range("a2:a" & r)
For Each rg In rng
rg.ClearComments
rg.AddComment rg.Offset(0, 1).Value
Next
End With
End Sub

复制代码

Qs18 · 发表于 2024-9-21 15:23

试试.........

Qs18 · 发表于 2024-9-21 15:25

试试.........

		自动登录	找回密码
密码			免费注册

[求助] 批量插入不同内容的批注

评分