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錯誤（最后一句，“應(yīng)用程序定義或?qū)ο蠖x的錯誤”），麻煩幫看看那寫錯了，謝謝
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。