VBA에서 클립 보드 데이터의 따옴표 정리

Question

클립 보드에서 선택한 셀에 여러 줄의 데이터를 붙여 넣을 매크로가 있습니다. 각 행에 대해 새 행을 삽입합니다. A 열과 Row1 열은 머리글을 포함하며 삽입 된 행에 대해 채울 것입니다.

Sheet1 
Header0 Header Header Header 
Header1 Data   
Header2 Data Data1 
       Data2 Data 
Header3 Data 

경우에 따라 따옴표가 추가되는 경우가 있지만 때때로 그렇지 않습니다. 합법적 인 따옴표 문자를 제거하지 않고 클립 보드 데이터를 정리할 수있는 방법이 있습니까?

Sub ClipboardToRows() 
' Split multi-lined data into separate rows for the current selection 
' Assumption is that Column A contains row headers 
Dim currRange As Range, currCell As Range, pasteCell As Range 
Dim rowHeader As String 
Dim cellContent 
Dim cellStr 

Dim clipboard As MSForms.DataObject 
Dim str1 As String 
Set clipboard = New MSForms.DataObject 

clipboard.GetFromClipboard 
On Error GoTo clipEmpty 
str1 = Trim(clipboard.GetText()) 

Application.CutCopyMode = False 
Set currCell = Selection 

rowHeader = Cells(currCell.Row, 1).Value 
'Skip Column A 
If (currCell.Column > 1) Then 
    cellContent = Split(str1, Chr(10)) 
    For i = LBound(cellContent) To (UBound(cellContent)) 
     cellStr = Trim(cellContent(i)) 
     If Len(cellStr) > 0 Then 
      Set pasteCell = currCell.Offset(i) 
      'Set current cell with line 1 
      If i = 0 Then 
       currCell.Value = cellContent(i) 
      Else 
       'If next cell down is not empty or the row header is different 
       If (Not IsEmpty(pasteCell.Value)) Or (Cells(pasteCell.Row, 1).Value <> rowHeader) Then 
        pasteCell.EntireRow.Insert 
        Cells(pasteCell.Row - 1, 1).Value = rowHeader 
       End If 
       currCell.Offset(i).Value = cellContent(i) 

      End If 
     End If 
    Next 
End If 

clipEmpty: 
    If Err <> 0 Then MsgBox "There was an issue with pasting. Please try again." 

End Sub 

Answer 1

별로

.

복사 프로세스에서 클립 보드에 큰 따옴표가 불일치하게 추가되어 있고 보관하려는 원본 데이터에 합법적 인 따옴표가있는 경우 현재 클립 보드에있는 것을보고 특정 내용을 알 수있는 방법이 없습니다 원래 데이터에 있었고 복사 과정에서 무엇이 추가 되었습니까?

당신이 할 수있는 최선책은 잘못 추가 된 패턴을 인식하고 그것을 제거하려고 시도하는 것입니다.

예를 들어 각 값을 테스트하여 시작 및/또는 끝에 큰 따옴표가 있는지 확인하십시오.이 경우 첫 번째 및/또는 마지막 문자를 해당 값에서 제거하십시오.