매크로 - 복사하여 붙여 넣기

Question

내 회사는 MS Office 2003 제품 만 사용하므로이 제품을 사용해야합니다. 내 직업의 성격 때문에 나는 "복사하여 붙여 넣기"기능을 많이 사용해야합니다. 원본 데이터는 대부분 웹 사이트에서 가져온 데이터를 Excel의 셀에 붙여 넣습니다. 문제는 클립 보드가 소스 서식을 유지하고 붙여 넣을 때 셀에 반영된다는 것입니다. 그것은 사용자가 복사하여 붙여 넣을 때마다 "텍스트로 붙여 넣기"옵션을 선택하여 소스 형식을 제거하는 것이 정말 번거롭습니다. 그래서 나는 매크로를 사용하기로 결정했다. 매크로는 복사하여 웹 사이트에서 Excel로 붙여 넣을 때 완벽하게 작동하지만 Excel에서 동일한 작업 시트로 복사하여 붙여 넣을 때 오류가 발생합니다.

소스 코드없이 웹 사이트에서 복사하여 붙여 넣기 할 때 사용하는 코드입니다.

Sub Paste_without_any_formatting() 
    ActiveSheet.PasteSpecial Format:="Text" 
End Sub 

엑셀에서 복사 및 붙여 넣기를위한 다른 코드를 같은 작업 시트에 추가하고 싶습니다.

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 

어떻게이 두 코드를 함께 넣을 수 있습니까? Ctrl + V를 누르면 이러한 일이 마술처럼 일어나게하고 싶습니다. 누구든지 나를 도울 수 있습니까?

Answer 1

이것은 가장 간단한 방법입니다.

Sub Sample() 
    On Error GoTo Whoa1 

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 

    Exit Sub 
Pastetext: 
    On Error GoTo Whoa2 

    ActiveSheet.PasteSpecial Format:="Text" 

    Exit Sub 
Whoa1: 
    Resume Pastetext 
Whoa2: '<~~ If both Paste method fails then show message. Ex: Image in Clipboard 
    MsgBox err.Description 
End Sub 

클립 보드 데이터 형식을 확인한 다음 그에 따라 붙여 넣으려는 또 다른 방법이 있습니다.