ç¨ä¸è½çVBAå¯ä»¥å®ç°ã
ä¾å¦æè¡¨æ ¼ï¼å¦å¾ï¼
è¦æ±å°ä¸å¡åãåä½å称ãåä»·æå
¥å°Aåçæ¹æ³¨ä¸ã
代ç å¦ä¸ï¼
Sub æå ¥æ¹æ³¨()
Dim I As Integer
Dim S As String
I = 2
Do While Cells(I, 1) <> ""
S = "ä¸å¡åï¼" & Cells(I, 3) & Chr(10) & "产åå称:" & Cells(I, 4) & Chr(10) & "åä»·:" & Cells(I, 7)
Cells(I, 1).AddComment
Cells(I, 1).Comment.Visible = False
Cells(I, 1).Comment.Text Text:=S
I = I + 1
Loop
End Sub
æ§è¡åç»æå¦å¾ï¼