텍스트 문서에서 붙여 넣기 코멘트

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