서식을 지정하지 않고 한 시트에서 다른 시트로 셀 복사

아마 당신의 천재들에게 간단한 것 일 것입니다. 그러나 나는 이것에 잠시 동안 있었고 내 오류를 볼 수 없기 때문에 신선한 눈이 필요합니다. 셀의 내용을 한 셀에서 다른 시트의 다른 셀로 복사하려고하지만 모든 서식이 셀에 적용되는 것을 원하지는 않습니다.

내 코드는 다음과 같습니다

  Range("H" & Target.Row).Copy Destination:=Sheets("Accepted Template").Range("P4").PasteSpecial Paste:=xlPasteValues

내가 여기서 뭘 잘못했는지 전혀 모른다. VBA는 예기치 않은 종료 오류를 계속 발생시킵니다.

— 녹턴 일
소스

를 사용할 때는 항상 워크 시트를 지정해야합니다 Range. 나는 Range ( "H"& Target.Row) .Copy에 대해 이야기합니다

— Akina

오류가 발생하여 복잡한 연산자에서 오류의 위치를 이해할 수없는 경우이 연산자를 간단한 연산자 팩으로 나눕니다 (많은 적절한 임시 변수 사용).

— Akina

도움을 주셔서 감사합니다. 그러나 .PasteSpecial Paste : = xlPasteValues를 제거하면 명령이 실제로 작동하므로 원하는 것은 형식을 지정하지 않고 붙여 넣는 것입니다.

— 녹턴

Range.Copy에는 유일한 '대상'선택적 매개 변수가 있습니다. 표시되는 경우 해당 유형은 범위입니다. 이 매개 변수에 Range.PasteSpecial을 사용하려고하지만 Range.PasteSpecial은 Range 유형의 속성이 아닌 메서드입니다. 물론 엑셀은 화를 낸다.

— Akina

이 코드는 포맷하지 않고 대상 셀 / 셀에서 시트 1의 시트 1 및 붙여 넣기에서 서식이 지정된 셀 값을 복사합니다 (값만).

Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("A3").Copy
Sheets("Sheet2").Range("A3, A4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

형식화 된 범위를 복사 2하려면 코드의 행 을 다음으로 바꾸십시오 .Sheets("Sheet1").Range("A3:A10").Copy

노트,

이 코드는 표준 모듈로도 사용할 수 있습니다.
의도적으로 2 개의 대상 셀을 사용한 코드를 테스트하기 위해 하나 이상을 사용할 수 있습니다.
붙여 넣기 및 값 붙여 넣기 옵션 을 사용 하여도이 작업을 수행 할 수 있습니다 .

— 라지 쉬 S
소스

정말 고마워, 나는 그 접근법을 취하지 않았을 것입니다. 그래서 나는 왜 어려움을 겪었 지 만, 여러 번 도와 주신 것을 알고 다시 한 번 감사드립니다.

— 녹턴

@Nokturnyl, 당신을 돕기 위해 매우 행복, Plz 계속 물어 좋은 시간 되세요 :-)

— Rajesh S