2014-06-16 1 views
0

다음 코드를 사용하여 셀의 문자열을 "|" 문자열 (0)을 ""로 나눕니다. 내 질문은 코드의 마지막 줄입니다. 셀 위치를 사용하여 범위를 정의하려고하지만 오류가 발생합니다. 왜 이렇게이다? >하지만 오류가 - 나는 다음에 변경할이다른 워크 시트에서 조 변경 범위를 셀로 선언하는 방법은 무엇입니까?

Worksheets("Sheet2").Range("B2:B5").Value = Application.Transpose(x) 

에서

what = Split(Cells(r, 3).Value, "|") 
titletxt = what(0) 

x = Split(titletxt, " ") 

Worksheets("Sheet2").Range("B2:B5").Value = Application.Transpose(x) 

.

Worksheets("Sheet2").Range(Cells(2,2), Cells(5, 2)) = Application.Transpose(x) 
+0

셀 자체는 항상 ActiveSheet를 참조하므로 Sheet2가 활성화되어 있지 않으면 코드가 실패합니다. 대신 시트 ("Sheet2")를 사용해보십시오. 셀 (2, 2). 크기 (3, 1)' –

+0

시도했지만 범위를 벗어났습니다. –

답변

0

는 언급을 맞는하지만이 시도 할 수 없습니다 :

With Worksheets("Sheet2") 
    .Range(.Cells(2, 2), .Cells(5, 2)) = Application.Transpose(x) 
End With 

일 이상합니까?

+0

예. 그것은 작동합니다. 고맙습니다! –

관련 문제