添加注释方法错误

Question

.AddComment函数遇到问题

    Worksheets("Config").Range("I2:ZZ2").offset(index, 0).AddComment Worksheets("Library").Range("B2:ZZ2").offset(offset, 0).Value

我在做什么错？我正在循环播放，因此此处无法使用“ With”语句。

Answer 1

您还需要遍历每一列：

for i = 9 to 702
    Worksheets("Config").Cells(2 + index, i).AddComment Worksheets("Library").Cells(2 + index, i).Value
next i