批量写入批注内容，将填表说明批量添加到标题的批注中

function 批量写入批注内容() {

for(i=2;i<=5;i++){ //从B列循环到E列

//将第2行的批注对象赋值给cmt

let cmt=Cells.Item(2,i).Comment

if(cmt){ //判断是否存在批注

cmt.Delete() //如果存在，就删除，再添加批注

//用第3行的文字作为批注内容，在第2行插入批注

Cells.Item(2,i).AddComment(Cells.Item(3,i).Value2);

}else{ //如果存在，则直接添加批注

//用第3行的文字作为批注内容，在第2行插入批注

Cells.Item(2,i).AddComment(Cells.Item(3,i).Value2);

}

}

}