Sub ali()
Dim i
Application.ScreenUpdating = False
i = 3
For i = 1 To Application.Sheets(1).UsedRange.Rows.Count - 1
If Len(Sheet1.Cells(i, 21)) > 0 Then
Sheet1.Cells(i, 10).ClearComments
Sheet1.Cells(i, 10).AddComment.Text Text:=“一检:” & Cells(i, 21)
End If
Next i
Application.ScreenUpdating = True
End Sub