셀을 인접한 열로 채우기 마지막 행을 최상위 행이 아닌 셀

인접한 열의 맨 아래 셀에 수식을 채우려고합니다. 특히 나는 다음과 같은 코드를 사용하여이를 달성 할 수있는 열 B에있는 맨 아래 행에 열 A 채우기 :셀을 인접한 열로 채우기 마지막 행을 최상위 행이 아닌 셀

LastRow = Range("B" & Rows.Count).End(xlUp).Row 
Range("A2").AutoFill Destination:=Range("A2:A" & lastRow)

문제 파일이 업데이트 될 때 나는 시작점이 필요합니다 (에서 아래로 채우기 위해)이다 동적 인 것. 파일이 처음 실행될 때 파일이 비어있어 위 코드가 작동합니다. 두 번째로 A 열에는 100 행의 열이 있고 B 열에는 200 열의 데이터가있을 수 있습니다. 따라서 A2에서 FillDown을 시작할 수 없습니다. A 열의 첫 번째 빈 셀에서 시작해야합니다 (A 열의 빈 셀은 데이터의 맨 아래까지 절대 존재하지 않습니다).

어떻게 시작점을 동적으로 만들 수 있습니까?

이 코드 :

Range("A" & Rows.Count).End(xlUp).Offset(1).Select

가 이미 열 데이터가있는 경우를 찾고 있어요은 "출발점"을 선택하지만 기존 코드에 그 넥타이 수없는 것.

감사합니다.

출처

2016-09-14 RugsKid

(가) 전체 컬럼에 대해 아래로 채우기 반복에 문제가 있습니까? 거대한 데이터 세트가 없다면 빈 셀을 채우기 만하면 그 차이를 눈치 채지 못할 것입니다. –

@TimWilliams Column A는 작업이 완료되었을 때의 날짜입니다 (한 달에 한 번). 따라서 열 A에 이미있는 값을 유지해야하지만 워크 시트에 추가되는 모든 새 행에 대해 새 날짜를 삽입해야합니다. 나는 당신의 대답에 응답했지만 모든 열에 날짜 (열 A)를 동일하게 유지해야합니다. 이 방법을 제안 할 수 있습니까? 기본적으로 데이터가있는 열 A의 마지막 채워진 셀과 열 B의 마지막 행 사이에 복사하여 붙여 넣습니다. – RugsKid

@TimWilliams 새로운 편집은 매력처럼 작동합니다. 대단히 감사합니다! – RugsKid

LastRowA = Range("A" & Rows.Count).End(xlUp).Row 
LastRowB = Range("B" & Rows.Count).End(xlUp).Row 

'Fill down (will auto-increment) 
Range("A" & LastRowA).AutoFill Destination:=Range("A" & LastRowA & ":A" & LastRowB) 

'EDIT: fill with same fixed value... 
Range("A" & (LastRowA+1) & ":A" & LastRowB).Value = Range("A" & LastRowA).Value

출처

2016-09-14 20:15:36

대단히 감사합니다! 이것은 올바르게 작동했습니다. 그러나 A 열은 날짜이며 자동 채우기 기능을 사용하면 날짜가 하루에 한 줄씩 늘어납니다. 아래로 채울 방법이 있지만 정적 인 값을 유지합니까? 복사와 붙여 넣기와 같이 더 많이 복사해야하는 값은 항상 A 열의 마지막 행에 있습니다. – RugsKid

위의 편집을 참조하십시오. –

그냥 공식 아래로 채우려는 경우

Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).FillDown

출처

2016-09-14 21:34:12

셀을 인접한 열로 채우기 마지막 행을 최상위 행이 아닌 셀

답변

관련 문제