ç¨ä¸è½çVBAå¯ä»¥è§£å³ã
举ä¾è¯´æã
ä¾å¦æè¡¨æ ¼å¦å¾ï¼
ç¼å¶ä»£ç ï¼å°AãBãCä¸åçæ°å¼åå
¥Dåçæ¹æ³¨ä¸ã代ç å¦ä¸ï¼
Sub æå ¥æ¹æ³¨()
Dim I As Integer
Dim S As String
I = 2
Do While Cells(I, 1) <> ""
S = Cells(I, 1) & Cells(I, 2) & Cells(I, 3)
Cells(I, 4).Select
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=S
I = I + 1
Loop
End Sub
æ§è¡ä»£ç åå¦å¾ï¼