반응형
인접 열에 따른 자동 채우기
저는 인접한 열의 길이에 따라 데이터를 자동으로 채울 VBA 코드를 찾고 있습니다.몇 가지 방법이 있다는 것은 알지만, 어떤 방법이 가장 좋을까요?
If LastRow > Selection.Row Then
Range("D2").AutoFill Destination:=Range("D2:D" & LastRow)
또는 다음과 같은 것:
If Not IsEmpty(ActiveCell.Offset(0,1)) Then
Range("D2").AutoFill Destination:=Range("D2:D" & LastRow)
이 두 가지 모두 제가 원하는 방식으로 작동하지 않을 것이라고 확신합니다. 제가 무엇을 놓쳤습니까?
어떤 if 조건도 필요 없습니다.마지막으로 사용한 열 C의 행을 얻고 그에 따라 열 D에 데이터를 채울 수 있습니다.
Sub test()
Dim lastRow As Long
lastRow = Range("C" & Rows.Count).End(xlUp).Row
Range("D2").AutoFill Destination:=Range("D2:D" & lastRow)
End Sub
언급URL : https://stackoverflow.com/questions/17822756/autofill-down-according-to-adjacent-column
반응형
'programing' 카테고리의 다른 글
| 제목별 검색 입력이 다시 비어 있을 때 초기 배열을 시각화하는 방법은 무엇입니까? (0) | 2023.06.15 |
|---|---|
| 코드에서 TextView의 텍스트 색상을 설정하는 방법은 무엇입니까? (0) | 2023.06.15 |
| TypeScript 인터페이스 구현이 메서드 매개 변수를 확인하지 않음 (0) | 2023.06.15 |
| Python 디버깅 팁 (0) | 2023.06.15 |
| 임의 키를 사용하여 입력한 개체를 선언하는 방법은 무엇입니까? (0) | 2023.06.15 |