쿠키는 우리의 서비스를 제공 도움이됩니다. 우리의 서비스를 사용하면 쿠키의 우리의 사용에 동의합니다.
팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
등록하기
x

or

열의 셀 값을 기반으로 행을 복제하는 방법?

예를 들어 D 열의 숫자 목록을 포함하는 데이터 범위가 있고 이제 D 열의 숫자 값을 기반으로 여러 행 전체를 여러 번 복사하여 다음 결과를 얻고 싶습니다. 어떻게 Excel에서 셀 값을 기반으로 행을 여러 번 복사 할 수 있습니까?

셀 1에 의한 doc 중복 행

VBA 코드로 셀 값을 기반으로 여러 번 행 복사


화살표 오른쪽 파란색 거품 VBA 코드로 셀 값을 기반으로 여러 번 행 복사

셀 값을 기준으로 전체 행을 여러 번 복사하고 복제하려면 다음 VBA 코드가 도움이 될 수 있습니다. 다음과 같이하십시오 :

1. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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

VBA 코드 : 셀 값에 따라 행을 여러 번 복제 :

Sub CopyData()
'Updateby Extendoffice 20160922
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "D")
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
    Application.ScreenUpdating = False
End Sub

3. 그런 다음 F5 키를 사용하여이 코드를 실행하면 필요에 따라 열 D의 셀 값에 따라 전체 행이 여러 번 복제됩니다.

주의 사항: 위의 코드에서, 문자 A 데이터 범위의 시작 열을 나타내며 문자 D 는 행을 복제하려는 열 문자입니다. 필요에 따라 변경하십시오.



권장 생산성 도구

사무실 탭

금색 star1 Chrome, Firefox 및 새 Internet Explorer와 마찬가지로 Excel 및 기타 Office 소프트웨어에 편리한 탭을 가져옵니다.

Excel 용 Kutools

금색 star1 놀랄 만한! 5 분 동안 생산성을 높입니다. 매일 2 시간을 절약 할 수있는 특별한 기술이 필요하지 않습니다!

금색 star1 300 Excel의 새로운 기능, Excel을 훨씬 쉽고 강력하게 만듭니다 :

  • 데이터 손실없이 셀 / 행 / 열 병합.
  • 여러 시트 및 통합 문서 결합 및 통합.
  • 범위 비교, 여러 범위 복사, 날짜, 단위 및 통화 변환 텍스트 변환.
  • 색상, 페이징 부분합, 고급 정렬 및 수퍼 필터,
  • 추가 선택 / 삽입 / 삭제 / 텍스트 / 형식 / 링크 / 주석 / 통합 문서 / 워크 시트 도구 ...

Kutools for Excel의 스크린 샷

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    KAS · 1 months ago
    Is there a way to update the module to only duplicate new data? I'm working on an ongoing document and do not want the code to duplicate data that has been previously duplicated.
  • To post as a guest, your comment is unpublished.
    Gerardo Enrique Heras Araujo · 2 months ago
    hi, for me is no working, I want to remove letters and number duplicate is possible?
  • To post as a guest, your comment is unpublished.
    Naomi · 2 months ago
    This script seems to be exactly what I need, however, when I run it I am getting an error on the line Selection.Insert Shift:=x1Down

    Any suggestions on how I fix this?
  • To post as a guest, your comment is unpublished.
    Manuel F · 2 months ago
    Thanks! it has been a great solution for all my troubles!
  • To post as a guest, your comment is unpublished.
    Leah · 3 months ago
    Hello, this worked great. However, I have a report with 1000 entries and the code stopped duplicating around entry 480. Is there something that I can add so that it completes the action on the entire report?
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello, Leah,
      I have tested the code in 2000 rows, and it works well.
      Could you send your worksheet to me for testing the code?
      My email address is skyyang@extendoffice.com
      Look forward to your reply!
      • To post as a guest, your comment is unpublished.
        Leah · 3 months ago
        Hello! I got it to work. It was an error on my side, the report had a few blank rows that were hidden that were causing the script to stop looping. It worked for my report with 8,000 rows! Thank youQ