변수의 입력방법
VBA
작성자
kimki****
작성일
2021-10-12 10:03
조회
334
다른 시트에서 코드를 기준으로 판매량데이터를 가져오려고 합니다.
match함수로 총판매현황의 몇 번째 열값을 가져올 것인지 numm으로 정하고 D행numm열부터 오른쪽 끝 행까지의 값을 1장 시트로 가져와서 붙이려고 합니다.
그런데 아래에 빨간색으로 표시한 부분 Range("D" & numm, "D"&numm.End(xlRight)).Copy을 못읽고 오류가 계속납니다.
D행numm열 부터 오른쪽 끝행까지의 값을 range로 잡는 방법은 무엇인가요?
sub this()
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
Dim numm As Integer
numm = WorksheetFunction.Match("A" & i, Sheets("총 판매현황"), 0)
Sheets("월간 판매동향").Select
Range("D" & numm, "D"&numm.End(xlRight)).Copy
Sheets("1장").Select
Range("C" & i).paste
Next i
End Sub
전체 7,301
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
![]() ![]() |
![]() ![]() |
2022.07.31 | 7 | 840 | ||
공지사항 | 함수/공식 |
New [신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎
(2)
오빠두엑셀
|
2022.08.04
|
추천 3
|
조회 64
|
![]() ![]() |
2022.08.04 | 3 | 64 |
공지사항 | 함수/공식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(87)
오빠두엑셀
|
2021.10.28
|
추천 116
|
조회 5951
|
![]() ![]() |
2021.10.28 | 116 | 5951 |
40987 | VBA |
New 선택한 셀 근처에 차트 나타내기
![]() ![]() ![]() |
![]() |
2022.08.08 | - | 23 |
40982 | VBA |
New 입력 수량에 따른 버튼 또는 레이블 생성
![]() ![]() |
![]() |
2022.08.08 | -2 | 22 |
40974 | 함수/공식 |
New 사과를 치면 옆 셀에 과일로, 배추를 치면 옆 셀에 야채로 넣는 방법
![]() ![]() |
![]() |
2022.08.08 | - | 37 |
40971 | 기능/도구 |
New 이름 정의 범위 선택시 에러 발생
![]() ![]() ![]() |
![]() |
2022.08.08 | - | 36 |
40966 | 함수/공식 |
New TEXTJOIN함수에서 대싱 셀값이 0일때 JOIN안되게 하는 방법
(8)
답변완료
![]() |
![]() |
2022.08.08 | - | 41 |
40963 | 함수/공식 |
New 특정문자가 포함된 여러 셀값을 특정문자 별로 정리하고 싶습니다.
![]() ![]() |
![]() |
2022.08.08 | - | 33 |
40961 | 기능/도구 |
New G메일로 받은 내용 중 회신시간이 늦은 메일들을 엑셀로 관리할 수 있는 방법이 있을까요 ?
(1)
![]() |
![]() |
2022.08.08 | - | 28 |
40960 | 기능/도구 |
New 보안경고 안뜨게 설정하려면 어떻게 옵션을 설정해야 하나요?
![]() ![]() |
![]() |
2022.08.08 | - | 19 |
40958 | 차트/그래프 |
New 그래프 가로 축 레이블 설정 부분
![]() ![]() |
![]() |
2022.08.08 | - | 29 |
40955 | 함수/공식 |
New 선택 셀의 좌측 셀값을 가져오는 수식이 필요합니다.
![]() ![]() |
![]() |
2022.08.08 | - | 44 |
40953 | 함수/공식 |
New 특정 조건에 맞추어 월 별 주차 계산을 하고 싶습니다
![]() ![]() ![]() |
![]() |
2022.08.07 | - | 34 |
40952 | 문서서식 |
New 데이터 유효성 검사 - 드롭다운 표시 항상 보이게?
![]() ![]() |
![]() |
2022.08.07 | - | 30 |
40945 | VBA |
New 엑셀 파일 엑셀 다른이름 자동 저장이 가능할까요? 노가다 살려주세요 ㅠㅠ
(2)
![]() |
![]() |
2022.08.07 | - | 56 |
40937 | 파워쿼리/피벗 |
New 시트별로 열이 다른 경우 시트를 통합하는 방법
![]() ![]() |
![]() |
2022.08.07 | - | 37 |
40936 | VBA |
New 달력 유저폼 실행위치관련 질문
![]() ![]() ![]() |
![]() |
2022.08.07 | 1 | 46 |
40921 | 함수/공식 |
New 값이 있는 경우에만 DATE 함수가 적용되도록 하고 싶습니다.
![]() ![]() |
![]() |
2022.08.06 | - | 47 |
40916 | 문서서식 |
New 이동옵션에서 상수와 수식
![]() ![]() |
![]() |
2022.08.06 | - | 50 |
40915 | 문서서식 |
New 셀 서식 중 "월", 월 차이
(2)
![]() |
![]() |
2022.08.06 | 1 | 47 |
40912 | 함수/공식 |
New IF 조건문이 잘 되지 않습니다.
![]() ![]() |
![]() |
2022.08.06 | - | 44 |
40908 | VBA |
New 매월 초 100개의 파일을 100개의 거래처로 메일 보내는 방법 문의
(1)
![]() |
![]() |
2022.08.06 | - | 55 |
40906 | 기능/도구 |
New 시트 이동복사 했는데 똑같이 보여지지 않아요
(1)
답변완료
![]() |
![]() |
2022.08.06 | 1 | 44 |
40904 | 문서서식 |
New 4명의 일일실적을 월별 총합으로 보기좋게 작성할 수 있을까요?
(4)
답변완료
![]() |
![]() |
2022.08.06 | - | 46 |
40903 | 함수/공식 |
New =YahooFinanceHistory( )사용방법 문의
(2)
답변완료
![]() |
![]() |
2022.08.06 | - | 36 |
40902 | VBA |
New Page_Setup에서 codename 전달
(2)
답변완료
![]() |
![]() |
2022.08.05 | - | 33 |
40898 | 함수/공식 |
New 함수 해석좀...
(2)
![]() |
![]() |
2022.08.05 | - | 45 |
40896 | 함수/공식 |
New 고급11강- 필터 함수 공부중 입니다
![]() ![]() |
![]() |
2022.08.05 | - | 38 |
40895 | VBA |
New Get_DB 전체 행이 불러와지지 않습니다
![]() ![]() ![]() |
![]() |
2022.08.05 | - | 37 |
40892 | 기능/도구 |
New 엑셀 셀에 달력 넣기
![]() ![]() |
![]() |
2022.08.05 | - | 41 |
40889 | 함수/공식 |
New 엑셀 여러열 일치하는 값 대입
![]() ![]() ![]() |
![]() |
2022.08.05 | - | 46 |
40887 | VBA |
New vba combobox에 목록이 처음 들어 갔을 때 안 떠요
![]() ![]() ![]() |
![]() |
2022.08.05 | - | 27 |
@kimki**** 님 End(xlToRight)
로 바꿔보세요
@엑셀은즐거워 님 ㅠㅠ 그래도 안되긴하네요
@kimki**** 님 Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
row 1번의 마지막 Column index값을 가져옵니다.
@ToString 님 Range("D" & numm, "D"&Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column).Copy
이렇게 사용할 수 있을까요?
@kimki**** 님 네 근데 그러면 가독성이 떨어지니 따로 변수에 담아서 사용하시면 되겠습니다.
Dim lastColumn As Integer
lastColumn = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
여기서 1이 뜻하는건 1번 Row의 마지막 Column 값이고
2면 2번 Row의 마지막 Column index값 입니다.