엑셀 vba 조건 "행"복사 붙여넣기 FOR문 DO

본문 바로가기

엑셀 vba 조건 "행"복사 붙여넣기 FOR문 DO

작성일 2024.03.14댓글 1건
    게시물 수정 , 삭제는 로그인 필요

안녕하세요 엑셀 VBA 초보자 입니다.
두개의 데이터를 비교하여 행이 많은 데이터 만큼 행이 적은 데이터을 복사하여 
데이터가 많은 행의 개수만큼 행을 늘려주고자 합니다.
첨부자료를 참조하시어 고수님들의 답변을 부탁드립니다.
감사합니다.


질문_20240314.xlsm
내PC 저장 MYBOX 저장


#엑셀 vba #엑셀 vba 실행 #엑셀 vba 사용법 #엑셀 vba 매크로 만들기 #엑셀 vba 단축키 #엑셀 vba 명령어 모음 #엑셀 vba 암호 해제 #엑셀 vba 매크로 #엑셀 vba if #엑셀 vba 함수

profile_image 익명 작성일 -

Sub AA_BB_동일수_생성() With Range("a1").CurrentRegion Dim v, h&, i& v = .Value h = UBound(v, 1) Dim an&, bn&, ay&, by& For i = 2 To h If v(i, 2) = [f2] Then '// [F2]셀과 같으면 an = an + 1 '// AA 카운트 ay = i '// AA 행번호 ElseIf v(i, 2) = [G2] Then '// [G2]셀과 같으면 bn = bn + 1 '// BB 카운트 by = i '// BB 행번호 End If Next Dim n& If an > bn Then '// an가 bn보다 많으면 n = an - bn '// 마지막 BB를 복사해서 n개만큼 붙여넣기 .Rows(by).Copy .Cells(h + 1, 1).Resize(n) ElseIf bn > an Then '// bn가 an보다 많으면 n = bn - an '// 마지막 AA를 복사해서 n개만큼 붙여넣기 .Rows(ay).Copy .Cells(h + 1, 1).Resize(n) End If End With End Sub

​

연관된 질문 답변 리스트

엑셀 VBA 복사해서 붙여넣기

... ClearContents ' 5행삭제 End If Next i MsgBox... 5행을 삭제 하는 것입니다. 기존에 질문으로... 특정행에 붙여넣기를 해보고싶습니다. 붙여넣기...

엑셀 VBA 복사 붙여넣기

... 컨트롤 C, 행열변경을 수동으로 하기엔 반복 작업해야... 이렇게 2행씩 공백이 있는 1번시트의 내용을 2번시트처럼 행열변경, 빈 행 없이...