범위에서 LastRow 사용

매우 기본적인 질문이 무엇인지에 대해 도움을 주셔서 감사합니다.범위에서 LastRow 사용

나는 다음과 범위의 마지막 행을 찾기 위해 요청했습니다 :

Dim LastRow As Integer 
LastRow = ActiveSheet.UsedRange.Rows.Count

지금, 나는이 알려진 열 및 알 수없는 마지막 행으로 범위를 선택하고 싶습니다. 정확한 숫자를 삽입하여 행을 초과하지 않고 전체 열을 채우고 싶습니다.

Range("AA2").Select 
ActiveCell.FormulaLocal = "=Vlookup(A2,[CP_QR_5_prep.xlsm]Sheet1!A2:LastRow,18,false)" 
Selection.AutoFill Destination:=Range("AA2:AA & LastRow)

내 구문을 정정 도움/lastcolumn을 lastrow 사용하는 방법에 대한 개요를 제공 할 수 있습니다 - 여기에 내가 가진 무엇인가?

감사합니다.

출처

2012-12-04 Chris2015

아주 가까이 있습니다.

당신이이 라인이 구문은 다음과 같습니다

ActiveCell.FormulaLocal = "=Vlookup(A2,[CP_QR_5_prep.xlsm]Sheet1!A2:LastRow,18,false)" 
Selection.AutoFill Destination:=Range("AA2:AA & LastRow)

은 다음과 같아야합니다

ActiveCell.FormulaLocal = "=Vlookup(A2,[CP_QR_5_prep.xlsm]Sheet1!$A$2:$A$" & LastRow & ",18,false)" 'i added absolute referencing which I would think you need... if not take out the "$" signs 
Selection.AutoFill Destination:=Range("AA2:AA" & LastRow)

은, 때문에 당신의 문자열로 변수 값을 읽기 위해, 당신은 문자열을 닫고 연결할 필요 변수 이름.

나는 또한이 같은 것을 할 더 나은 데이터 셀의 실제 마지막 행을 얻을 것을 추가합니다 : 사용으로

lastRow = Range("A" & Rows.Count).End(xlUp).Row

을 UsedRange 세포가있는 경우 잠재적으로 원치 않는 대답을 떠날 수 공백으로 보이지만 그렇지 않은 서식 지정 또는 다른 셀이있는 시트

출처

2012-12-04 22:14:44

감사합니다. lastRow = Range ("A"& Rows.Count) .End (xlUp) .Row를 사용하면 내 열의 왼쪽에있는 셀이 비어 있어도 lastrow가 맨 아래로 계산됩니다. – Chris2015

예, 일종의. 귀하의 데이터 세트에 따라 다릅니다. 기본적으로, * 마지막으로 사용한 실제 셀 *을 찾으려는 열을 선택하고 구문의 Range ("A"및 Rows.Count) 부분에서 해당 열 이름을 "A"대신 사용하십시오. –

범위에서 LastRow 사용

답변

관련 문제