다른 시트로 복사 할 때 Excel 오류 400

Question

계속 나타나는이 오류를 해결하기위한 100 가지 솔루션을 살펴 보았습니다. 팝업 상자에는 숫자 "400"과 확인 버튼 만 있습니다.

내 코드는 다음과 같습니다 "프런트 엔드"라고합니다에서 시트 메신저 복사 :

Sub transfer() 

range("C2").Select 
Selection.Copy 
Worksheets("Raw Data").Select 
lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row 
range("A" & lMaxRows + 1).Select 
Selection.Paste 

End Sub 

임 그냥 비어있는 다음 행에 하나의 시트에서 데이터 이동의 묘리를 터득하려고 다른 시트에서이 오류가 계속 발생합니다. VBA를 처음 사용하는 사람들에게 매우 도움이 될 것입니다.

Answer 1

VBA는 사용할 통합 문서/워크 시트를 정규화하지 않은 경우 활성 시트를 사용합니다. 다음과 같이 시도하십시오.

값을 한 곳에서 다른 곳으로 직접 복사하려면 복사, 붙여 넣기 또는 선택을 사용할 필요가 없습니다. 하나의 값을 다른 값의 값으로 설정할 수 있습니다.

Answer 2

변경 Selection.PasteSelection.PasteSpecial Paste:=xlPasteValues에 나를 위해 일하는 것 같다

Sub transfer() 

Range("C2").Select 
Selection.Copy 
Worksheets("Raw Data").Select 
lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row 
Range("A" & lMaxRows + 1).Select 
'Selection.Paste 
Selection.PasteSpecial Paste:=xlPasteValues 

End Sub 

참조 : 그것은하려고 노력까지 내가 이런 짓을하고 코드를 단계별로 F8을 사용하므로 Copying and pasting data using VBA code