2014-01-23 6 views
0

왜이 오류가 발생합니까?왜이 문제가 발생합니까?

Set rQueryCopy = Sheets("Sheet1").Range(Cells(5, 1), Cells(5, 7))

나는 rQueryCopy Dim As Range 있습니다. 나는 rQueryCopy가 Sheet1에서 셀 A5:G5과 같게하려고한다.

미리 감사드립니다.

+2

.... 여러 통합 문서 작업과 함께 간다 1)'rQueryCopy Dim As Range' 대신'Dim rQueryCopy As Range'를 사용해야합니다. 2) 실제로 "Sheet1"이라는 이름의 시트가 있는지 확인하십시오. –

+4

"오류 발생"이라고 말하면 오류가 무엇인지 알려주는 것이 매우 유용합니다 **. 당신은 당신 앞에서 그 정보를 가지고 있습니다, 그래서 당신의 질문에 그것을 포함시키지 않을 절대적으로 이유가 없습니다. 여기에서 도움을 원할 경우 * 구체적으로 *하고보다 쉽게 ​​당신을 도울 수있는 세부 사항을 제공하십시오. –

+3

또한 때로는 Sheet 참조를 Cells() 함수에 포함해야합니다. Range (Sheets ("Sheet1")) 셀 (5,1), 시트 ("Sheet1"), 셀 (5,7))을 설정합니다. ws라는 다른 변수를 만드는 것이 더 쉽습니다. 워크 시트로 흐리게 표시됩니다. ws = Sheets ("Sheet1")을 설정하십시오. 그런 다음 모든 시트 ("Sheet1")를 ws로 바꿉니다. –

답변

0

문제는 특정 범위의 인접 셀이 아니라는 것입니다. 특정 개별 셀을 선택합니다.

Union(Cells(5, 1), Cells(5, 7)).Copy 
'Do whatever you want from here, like paste 
Range("A1").PasteSpecial Paste:=xlPasteValues 

붙여 넣으면 두 개의 개별 셀로 바로 나옵니다. 인접하지 않은 특정 위치에 붙여 넣으려면 개별적으로해야합니다.

편집 : 질문을 잘못 읽고, 지금 고칠 것입니다. 이것을 사용하여 지정해야하므로

Dim rQueryCopy As Range 
Set rQueryCopy = Sheets("Sheet1").Range("A5:G5") 
1
Set rQueryCopy = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(5, 1), Sheets("Sheet1").Cells(5, 7)) 

는 셀 부분은 간단하지 "시트 1"에 activesheet에 보이는 ... 같은 는