http://club.excelhome.net/dispbbs.asp?boardid=2&id=251887  
northwolves版主
Sub 将A1至C1的内容写到D15单元的批注中()
    [iv1:iv12] = "=rc1 & "" ""& rc2 &"" ""& rc3"
    [d15].AddComment Join(Application.Transpose([iv1:iv12]), vbCrLf)
    [iv1:iv12] = ""
    [d15].Comment.Visible = True
    [d15].Comment.Shape.Height = 100
End Sub

http://club.excelhome.net/dispbbs.asp?boardid=2&id=251887  
northwolves版主
Sub 将A1至C1的内容写到D15单元的批注中()
    [iv1:iv12] = "=rc1 & "" ""& rc2 &"" ""& rc3"
    [d15].AddComment Join(Application.Transpose([iv1:iv12]), vbCrLf)
    [iv1:iv12] = ""
    [d15].Comment.Visible = True
    [d15].Comment.Shape.Height = 100
End Sub