2014-07-10 5 views
1

이것은 코드이며 어떤 오류가 발생했는지 알 수 없습니다. 내가 변경 범위를 정의 할 수 없다고 생각 목표는 하나의 워크 시트에서 선택한 워크 시트를 다른 워크 시트의 끝에 복사하는 것입니다 ... row.counts 등등은 전혀 작동하지 않았습니다! ? 하나의 워크 시트에 행을 복사하고 다른 워크 시트에 붙여 넣기

K = 2 
For i = 1 To LastLine 
    If Cells(i, 2).Value = longti Then 
    Rows(i).Select 
    Selection.Copy 
    Worksheets("result").Range("A" & "k").PasteSpecial (xlPasteValues) 

도움을 주셔서 감사합니다 : 난 excel2007을 사용하고 왜 ... 내가 모르는 및 VBA 버전은 6.5이며, 내가 더 나은 버전으로 업그레이드 할 수 있는지 모르겠어요이 코드입니다. 질문은 분명하다 아닌지 모르겠어요

+1

코드가 불완전하지만 오류는 "" "A"& "k"'에 명확하게 나와 있습니다. 이 문자열을 연결하여 문자열''Ak ''와 동등하게 만듭니다. – hnk

답변

1

.Range("A" & "k") 아마 .Range("A" & K) 당신이 지금 가지고

(즉, 문자 K 주위에 따옴표를 잃게), 코드가 주소 범위를 찾고이어야한다 " Ak "는 의미가 없습니다. 수정 된 코드는 주소 "A2"로 원하는 범위를 찾습니다.

관련 문제