Sub abc（） Dim i For i = 2 To 8 Range（"b" & i）.ClearComments Range（"b" & i）.AddComment Range（"b" & i）.Comment.Visible = True Range（"b" & i）.Comment.Text Text:=Range（"a" & i）.Value Next End Sub 老师好，这个代码按F8运行时显示1004错误（最后一句，“应用程序定义或对象定义的错误”），麻烦帮看看那写错了，谢谢
本站有权保留或删除有争议评论。 参与本评论即表明您已经阅读并接受上述条款。