從文本文檔粘貼到excel評論

Question

就像你可以從文本文檔中複製任意數量的行並粘貼到連續行的Excel中，我希望能夠複製文本行並將其粘貼到註釋中Excel中連續的行。爲了使它更容易一些，我先將.txt文件中的註釋文本行粘貼到Excel中的列中。這就是我現在看到的：

Dim myClip As New DataObject 
Dim myString As String 

myClip.GetFromClipboard 

myString = myClip.GetText 
Sheet1.Range("A1").AddComment myString 

但是從剪貼板粘貼這樣似乎並沒有達到預期的效果。有任何想法嗎？

Answer 1

Sub AddCommentsToSelection() 

Dim myClip As New DataObject 
Dim myString As String 
Dim c As Range, arr, x As Integer 

    myClip.GetFromClipboard 
    myString = myClip.GetText 
    If Len(myString) = 0 Then Exit Sub 

    Set c = Selection.Cells(1) 

    arr = Split(myString, vbCrLf) 
    For x = LBound(arr) To UBound(arr) 
     c.AddComment arr(x) 
     Set c = c.Offset(1, 0) 
    Next x 

End Sub