Note: The other languages of the website are Google-translated. Back to English

행을 여러 번 복사하고 삽입하거나 Excel에서 행을 x 번 복제하는 방법은 무엇입니까?

일상 업무에서 한 행 또는 각 행을 복사 한 다음 워크 시트의 현재 데이터 행 아래에 여러 번 삽입 해 본 적이 있습니까? 예를 들어, 셀 범위가 있습니다. 이제 다음 스크린 샷과 같이 각 행을 복사하여 다음 행에 3 번 붙여넣고 싶습니다. Excel에서이 작업을 어떻게 처리 할 수 ​​있습니까?


VBA 코드로 특정 행을 여러 번 복사 및 삽입

특정 행 하나만 x 번 복제하려면 다음 VBA 코드가 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 여러 번 복사 및 삽입 할 행을 지정한 다음 ALT + F11 키를 누른 다음 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 특정 행 하나를 여러 번 복제합니다.

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3. 코드를 붙여 넣은 후 F5 키를 눌러이 코드를 실행하면 복제 할 횟수를 입력하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

4. 그런 다음 OK 버튼을 클릭하고 세 개의 새로운 복사 된 행이 선택한 행 아래에 삽입되었습니다. 스크린 샷 참조 :


특정 번호를 기준으로 각 행을 여러 번 쉽게 복사 및 삽입

일반적으로 수동 복사 및 삽입 처리를 제외하고 행을 여러 번 복사 및 삽입하는 좋은 방법은 없습니다. 하지만 함께 Excel 용 Kutools's 셀 값을 기반으로 행 / 열 복제 이 문제를 쉽게 해결할 수 있습니다. Excel 용 Kutools를 다운로드하려면 클릭하십시오!

Excel 용 Kutools: 300 개 이상의 편리한 Excel 추가 기능으로 60 일 동안 제한없이 무료로 사용해 볼 수 있습니다. 지금 다운로드 및 무료 평가판!


VBA 코드로 각 행을 여러 번 복사 및 삽입

범위에서 각 행을 여러 번 복제하려면 다음 VBA 코드를 적용 할 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 누른 다음 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 각 행을 여러 번 복제합니다.

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

3. 그런 다음 F5 키를 눌러이 코드를 실행하면 각 레코드에 대해 복제 할 횟수를 입력하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

4. 그런 다음 OK, 각 행이 복사되어 활성 행 아래에 3 번 삽입되었습니다 (스크린 샷 참조).

주의 사항: 위 코드에서 A 데이터가 열에서 시작하는 경우 데이터 범위가 열 A에서 시작됨을 나타냅니다. K, 바꿔주세요 AK 당신의 필요로.


멋진 기능으로 특정 번호를 기준으로 각 행을 여러 번 복사하고 삽입하십시오.

아마도 VBA 코드에 익숙하지 않거나 코드로 인해 데이터가 충돌 할까 걱정할 수 있습니다. 여기에서는 유용한 기능을 소개하겠습니다. Excel 용 Kutools's 셀 값을 기반으로 행 / 열 복제,이 유틸리티를 사용하면 지정한 번호에 따라 행을 빠르게 복사하고 삽입 할 수 있습니다.

팁 :이것을 적용하려면 셀 값을 기반으로 행 / 열 복제 먼저 기능을 다운로드해야합니다. Excel 용 Kutools을 클릭 한 다음 기능을 빠르고 쉽게 적용하십시오.

설치 후 Excel 용 Kutools, 다음과 같이하십시오.

1. 데이터 옆의 셀 목록에서 행을 복제하려는 반복 번호를 입력하십시오. 스크린 샷을 참조하십시오.

2. 딸깍 하는 소리 쿠툴 > 끼워 넣다 > 셀 값을 기반으로 행 / 열 복제, 스크린 샷 참조 :

3. 에서 행과 열 복사 및 삽입 대화 상자에서 행 복사 및 삽입 에서 옵션 거래증명방식 섹션에서 복제하려는 데이터 범위를 선택한 다음 행을 복제 할 반복 시간을 지정합니다. 스크린 샷을 참조하십시오.

4. 그런 다음 Ok or 신청 버튼을 클릭하면 필요에 따라 다음과 같은 결과가 표시됩니다.

Excel 용 Kutools 및 무료 평가판을 지금 다운로드하려면 클릭하십시오!


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (32)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
굉장한 매크로 - 많은 시간을 절약했습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 멋진 매크로 메이트!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
무작위로 중복 행을 생성하고 싶습니다.

예를 들어. 20에서 80 사이의 임의의 중복 행을 생성합니다.


다음에 대한 업데이트 코드는 무엇입니까


하위 삽입 행()
'업데이트바이 Extendoffice 2016616
흐릿한 I As Long
Dim xCount를 정수로
레이블 번호:
xCount = Application.InputBox("행 수", "Excel용 Kutools", , , , , , 1)
xCount < 1이면
MsgBox "입력한 행 수가 오류입니다. 다시 입력하십시오.", vbInformation, "Kutools for Excel"
레이블 번호로 이동
END IF
I = Range("A" & Rows.CountLarge).End(xlUp).Row to 1 Step -1의 경우
행(I).복사
행(I).크기 조정(xCount).삽입
다음
Application.CutCopyMode = False
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매개변수를 기반으로 행을 복제하고 싶습니다. 예를 들어 회의 기간 시간이라는 열이 있습니다. 해당 열이 1보다 크면 해당 숫자를 기준으로 회의 ID 행을 복제하고 싶습니다. 회의 시간이 2시간이면 회의 ID를 두 번 복제합니다. 회의가 3시간이면 세 번 복제합니다.
XNUMX분 증분은 시간으로 반올림될 수 있습니다.

MeetingID 시작 시간 회의 종료 시간 지속 시간
43117 오전 9:00 오전 11:00 오전 02:00
43580 오전 9:30 오전 11:00 오전 01:30
42699 오전 10:00 오전 11:30 오전 01:30
12345 오후 01:00 오후 2:00 오후 01:00
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나도 같은 문제가있어. 해결책을 찾았습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 얘들 아,
다음 VBA 코드가 도움이 될 수 있습니다. 적용하십시오.
하위 삽입 행()
흐릿한 I As Long
범위로 Dim xRg
Dim xHour, xMin As Long
오류에 대한 다음 재개
Application.ScreenUpdating = False
I = Range("D" & Rows.CountLarge).End(xlUp).Row to 1 Step -1의 경우
x시간 = 0
xRg 설정 = 범위("D" & I)
xHour = 시간(xRg.값) + 1
xMin = 분(xRg.값)
xMin < 30이면 xHour = xHour - 1
행(I).복사
행(I).크기 조정(xHour).삽입
다음
Application.ScreenUpdating = True
Application.CutCopyMode = False
최종 하위

시도하십시오. 도움이 되기를 바랍니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 과거에 이 매크로를 사용했고 최근까지 항상 작동했습니다. 여러 행 매크로를 사용하는 경우에도 맨 위 행만 복제하는 이유는 무엇입니까? 모든 필터/고정된 창을 제거했습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 다음을 포함하도록 코드를 어떻게 변경할 수 있습니까?

1. 일수 기준으로 복제
2. 열 EOM을 월말에서 일일 날짜로 변경
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
지원해주셔서 정말 감사합니다!!!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드를 사랑해! 첫 번째 행(열 머리글)을 건너뛰고 행 2에서 시작하도록 시작 범위를 어떻게 설정합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 데빈
첫 번째 헤더 행을 건너뛰려면 다음 VBA 코드를 적용하십시오.

하위 삽입 행()
흐릿한 I As Long
Dim xCount를 정수로
레이블 번호:
xCount = Application.InputBox("행 수", "Excel용 Kutools", , , , , , 1)
xCount < 1이면
MsgBox "입력한 행 수가 오류입니다. 다시 입력하십시오.", vbInformation, "Kutools for Excel"
레이블 번호로 이동
END IF
I = Range("A" & Rows.CountLarge).End(xlUp).Row to 2 Step -1의 경우
행(I).복사
행(I).크기 조정(xCount).삽입
다음
Application.CutCopyMode = False
최종 하위

그것을 시도하십시오, 그것이 당신을 도울 수 있기를 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 도움이 필요합니다. 예를 들어 첫 번째 테이블 끝에 2개의 행을 추가할 때 vba가 아래 테이블에 대해 동일한 작업을 수행하는 데 도움이 되었으면 합니다. 테이블 끝). 그래서 내 일은 첫 번째 테이블에 행을 추가하기만 하면 됩니다. 모든 테이블은 첫 번째 테이블의 행 수에 따라 자동으로 행을 생성합니다. 첫 번째 테이블의 행을 추가하는 데 사용한 코딩입니다. 누군가 나를 위해 이 문제를 해결할 수 있기를 바랍니다. thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

길이만큼 희미한 Rng

Application.DisplayAlerts = False
오류에 대한 다음 재개
Rng = InputBox("필요한 행 수를 입력하세요.")
오류 발생시 0
Application.DisplayAlerts = 참

Rng = 0이면
MsgBox "범위를 지정하지 않았습니다!"
서브 종료

다른
범위(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Select
Selection.EntireRow.Insert Shift:=xlDown
END IF

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
사랑해! 매번 작동합니다! 이렇게 해주셔서 감사합니다 :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
열에 대해 이 작업을 수행하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
열에 대해 이 작업을 수행하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VB를 사용하여 선택한 셀과 동일한 작업을 수행하는 방법,


선택한 몇 개의 셀(행과 열)을 동일한 시트에서 다음과 같은 순서로 반복해야 합니다.

line1
line2
line3

line1
line2
line3
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 이것은 훌륭하게 작동했습니다. N 번 복사 된 두 개의 행만 필요합니다. 두 행을 선택하면 두 행이 N 번 아래로 복사되도록 코드를 조정해 주시겠습니까? 당신의 도움을 주셔서 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 샐,
두 행만 여러 번 복사해야 하는 경우 이 기사의 VBA 코드 1만 사용하면 됩니다. 코드를 두 번 적용하면 문제가 해결됩니다. 시도해보십시오. 도움이 되길 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 코드로 각 행을 여러 번 복사 및 삽입

VBA 코드에서 시작 행을 선택하는 방법
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Windows 2019에 대한 기능 없음
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 여러분.. 미리 도와주셔서 감사합니다!!

하나의 특정 행을 여러 번 복제하는 VBA 코드는 필터를 사용할 때까지 완벽하게 작동합니다. 누군가가이 문제를 해결하는 데 도움을 줄 수 있는지 궁금합니다. 일부 값이 필터링된 경우에도 작동하는 코드가 필요합니다. 위치별로 정렬된 많은 양의 데이터를 사용하고 있습니다. 코드는 부분적으로 작동하며 필터를 적용할 때 원하는 행 수를 붙여넣지만 데이터나 형식은 붙여넣지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 각 행마다 다른 크기(값)를 사용할 수 있습니까? 벡터를 사용하려고 하는데 작동하지 않습니다.
예 :
행(I).크기 조정(xCount(y)).삽입

xCount(y)에 저장된 값을 테이블에서 읽는 위치입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 거스,
아래 기사가 도움이 될 수 있습니다. 확인하십시오.
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
두 번째 VBA 코드(VBA 코드: 각 행을 여러 번 복제)의 경우 런타임 오류로 계속 표시됩니다. 1004
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호