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

Excel에서 고정 된 간격으로 특정 수의 행을 삽입하는 방법은 무엇입니까?

Excel 워크 시트에서 삽입 기능을 사용하여 기존 행 사이에 빈 행을 삽입 할 수 있습니다. 하지만 데이터의 범위가 넓고 XNUMX ~ n 번째 행마다 두 개의 빈 행을 삽입해야하는 경우이 작업을 어떻게 빠르고 편리하게 완료 할 수 있습니까?


VBA 코드를 사용하여 고정 된 간격으로 데이터 범위에 특정 수의 빈 행 삽입

다음 VBA 코드는 기존 데이터 내의 n 번째 행마다 특정 수의 행을 삽입하는 데 도움이 될 수 있습니다. 다음과 같이하십시오 :

1. 누르고 ALT + F11 Excel에서 키를 클릭하고 응용 프로그램 용 Microsoft Visual Basic 창.

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

VBA 코드 : 고정 된 간격으로 특정 수의 행을 데이터에 삽입

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. 이 코드를 붙여 넣은 후 F5 이 코드를 실행하려면 빈 행을 삽입 할 데이터 범위를 선택하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

4. 딸깍 하는 소리 OK 버튼을 누르면 다른 프롬프트 상자가 나타납니다. 행 간격 수를 입력하십시오. 스크린 샷을 참조하십시오.

5. 클릭으로 이동 OK 버튼을 클릭하면 다음 팝업 프롬프트 상자에 삽입 할 빈 행 수를 입력하십시오. 스크린 샷을 참조하십시오.

6. 그런 다음 OK, 빈 행이 정기적으로 기존 데이터에 삽입되었습니다. 스크린 샷을 참조하십시오.


VBA 코드를 사용하여 셀 값을 기반으로 특정 수의 빈 행을 데이터 범위에 삽입

때로는 셀 값 목록을 기반으로 빈 행을 삽입해야 할 수도 있습니다.이 경우 아래 VBA 코드가 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 Excel에서 키를 클릭하고 응용 프로그램 용 Microsoft Visual Basic 창.

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

VBA 코드 : 숫자 목록을 기반으로 특정 수의 빈 행을 삽입합니다.

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. 이 코드를 붙여 넣은 후 F5 이 코드를 실행하려면 키를 누르고 팝업 대화 상자에서 빈 행을 삽입 할 숫자 목록을 선택합니다. 스크린 샷 참조 :

4. 그런 다음 OK, 다음 스크린 샷과 같이 필요한 결과를 얻을 수 있습니다.


편리한 기능을 사용하여 일정한 수의 빈 행을 고정 된 간격으로 데이터 범위에 삽입

위의 VBA 코드에 익숙하지 않은 경우 Excel 용 Kutools 또한 도움이 될 수 있습니다. 빈 행 및 열 삽입 기능은 고정 된 간격으로 빠르고 쉽게 특정 수의 행 또는 열을 기존 데이터에 삽입 할 수 있습니다.

참고 :이것을 적용하려면 빈 행 및 열 삽입 , 먼저 Excel 용 Kutools을 클릭 한 다음 기능을 빠르고 쉽게 적용하십시오.

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

1. 간격으로 빈 행을 삽입 할 데이터 범위를 선택합니다.

2. 딸깍 하는 소리 쿠툴 > 끼워 넣다 > 빈 행 및 열 삽입, 스크린 샷 참조 :

3. 에서 빈 행 및 열 삽입 대화 상자에서 빈 행 옵션에서 삽입 유형을 클릭 한 다음 표시된 다음 스크린 샷과 같이 사용할 간격 및 빈 행 수를 지정합니다.

4. 그런 다음 OK 버튼을 클릭하고 다음 스크린 샷과 같이 특정 간격으로 선택한 범위에 빈 행이 삽입되었습니다.

Excel 용 Kutools를 지금 다운로드하고 무료로 평가하십시오!


VBA 코드로 특정 숫자를 기반으로 여러 번 행 복사 및 삽입

타다의 범위가 있다고 가정하면 아래 스크린 샷과 같이 숫자 목록을 기반으로 각 행을 복사하여 다음 행에 여러 번 붙여넣고 싶습니다. Excel 워크 시트에서이 작업을 어떻게 해결할 수 있습니까?

이 작업을 처리하기 위해 유용한 코드를 소개하겠습니다. 다음 단계를 수행하십시오.

1. 누르고 ALT + F11 Excel에서 키를 클릭하고 응용 프로그램 용 Microsoft Visual Basic 창.

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

VBA 코드 : 특정 숫자를 기준으로 행을 여러 번 복사하고 삽입합니다.

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. 이 코드를 붙여 넣은 후 F5 이 코드를 실행하려면 키를 누르고 팝업 대화 상자에서 복사 할 숫자 목록을 선택하고 기반으로 데이터 행을 삽입합니다. 스크린 샷을 참조하십시오.

4. 그런 다음 OK 버튼을 클릭하고 특정 행 수를 복사하여 각 원본 행 아래에 붙여 넣었습니다. 스크린 샷을 참조하십시오.


놀라운 기능으로 특정 숫자를 기반으로 여러 번 행 복사 및 삽입

당신이 있으면 Excel 용 Kutools그와 셀 값을 기반으로 행 / 열 복제 기능, 당신은 빠르고 쉽게 숫자 목록을 기반으로 행 또는 열을 삽입 할 수 있습니다.

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

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

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

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

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

Excel 용 Kutools를 지금 다운로드하고 무료로 평가하십시오!

더 많은 관련 기사 :

  • 행을 여러 번 복사 및 삽입하거나 행을 X 번 복제
  • 일상 업무에서 한 행 또는 각 행을 복사 한 다음 워크 시트의 현재 데이터 행 아래에 여러 번 삽입 해 본 적이 있습니까? 예를 들어, 셀 범위가 있습니다. 이제 다음 스크린 샷과 같이 각 행을 복사하여 다음 행에 3 번 붙여넣고 싶습니다. Excel에서이 작업을 어떻게 처리 할 수 ​​있습니까?
  • Excel에서 값이 변경되면 빈 행 삽입
  • 데이터 범위가 있고 이제 값이 변경 될 때 데이터 사이에 빈 행을 삽입하여 다음 스크린 샷과 같이 하나의 열에서 순차적으로 동일한 값을 분리 할 수 ​​있다고 가정합니다. 이 기사에서는이 문제를 해결할 수있는 몇 가지 트릭에 대해 설명합니다.
  • 기준에 따라 여러 워크 시트의 행을 새 시트로 복사
  • 아래 스크린 샷과 동일한 형식을 가진 워크 시트가 XNUMX 개있는 통합 문서가 있다고 가정 해 보겠습니다. 이제 C 열에 "완료 됨"이라는 텍스트가 포함 된 이러한 워크 시트의 모든 행을 새 워크 시트로 복사하려고합니다. 이 문제를 하나씩 수동으로 복사하여 붙여 넣지 않고 어떻게 빠르고 쉽게 해결할 수 있습니까?

최고의 사무 생산성 도구

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 하단
코멘트 (39)
5에서 평가 된 5 · 2 등급
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 저는 귀하의 코드(아래)를 사용하고 있습니다. 어떻게 그 행을 사용자 정의 텍스트로 채울 수 있는지 알려주실 수 있습니까? 귀하의 코드를 사용하여 1개의 행을 입력했는데 완벽하게 작동했지만 이제 텍스트를 입력해야 합니다. Row2 = Date Row3.= Location Row20150707 = Phone Number 미리 감사합니다... "Sub InsertRowsAtIntervals() 'Updateby1 Dim Rng As Range Dim xInterval As Integer Dim xRows As Integer Dim xNum2 As Integer Dim xNum8 As Integer Dim WorkRng As Range Dim xWs As Worksheet xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.Input" , WorkRng.Address, 유형:=1) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("행 간격을 입력하십시오. ", xTitleId, 1, 유형:=1) xRows = Application.InputBox("몇 개의 행을 각 간격에 삽입하시겠습니까? ", xTitleId, 1, 유형:=1) xNum2 = WorkRng.Row + xInterval xNum1 = xRows + xInterval Set xWs = WorkRng.Parent For i = 1 To Int(xRowsCount / xInterval) xWs.Range(xWs .Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)). Application.Selection.EntireRow.Insert xNum1 선택= xNum2 + xNumXNUMX 다음 끝 하위"
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매우 감사합니다!!!!! 이거 엄청나 네
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 감사합니다!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Hi


나는 작동하는 간격 vba 코드를 사용합니다. 그러나 100000개 이상의 행을 사용하면 작동하지 않습니다.


하위 InsertRowsAtIntervals()
'업데이트by20150707
범위로 딤 Rng
Dim xInterval을 정수로
Dim xRows를 정수로
Dim xRowsCount를 정수로
Dim xNum1을 정수로
Dim xNum2을 정수로
Dim WorkRng As Range
Dim xW를 워크시트로
xTitleId = "KutoolsforExcel"
WorkRng = Application.Selection 설정
WorkRng 설정 = Application.InputBox("범위", xTitleId, WorkRng.Address, 유형:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("행 간격을 입력하십시오. ", xTitleId, 1, 유형:=1)
xRows = Application.InputBox("각 간격에 몇 개의 행을 삽입할 것인가? ", xTitleId, 1, Type:=1)
xNum1 = 작업Rng.Row + xInterval
xNum2 = x행 + x간격
xWs = WorkRng.Parent 설정
i = 1에 대해 Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
다음
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
환상적 - 당신은 저에게 많은 무의미한 데이터 입력을 저장했습니다. 대단히 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 고정된 간격으로 특정 수의 열을 데이터에 삽입하기 위한 코드를 어떻게 얻을 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, PK님.
특정 간격으로 기존 데이터에 빈 열을 삽입하려면 아래 VBA 코드가 도움이 될 수 있습니다! 시도하십시오.

하위 InsertColumnsAtIntervals()
범위로 딤 Rng
Dim xInterval을 정수로
Dim xC를 정수로
Dim xCCount를 정수로
Dim xNum1을 정수로
Dim xNum2을 정수로
Dim WorkRng As Range
Dim xW를 워크시트로
xTitleId = "KutoolsforExcel"
WorkRng = Application.Selection 설정
WorkRng 설정 = Application.InputBox("범위", xTitleId, WorkRng.Address, 유형:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("열 간격을 입력하십시오. ", xTitleId, 1, 유형:=1)
xCs = Application.InputBox("각 간격에 몇 개의 열을 삽입할 것인가? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xInterval
xWs = WorkRng.Parent 설정
I = 1에서 Int(xCCount / xInterval)로
xWs.Range(xWs.Cells(작업Rng.Row, xNum1 + xCs - 1), xWs.Cells(작업Rng.Row, xNum1)).선택
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
다음
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
마지막 셀에 언급 된 숫자에 따라 Excel 데이터에 행을 추가하는 방법 마지막 셀에 숫자가 4로 표시되는 경우 Excel 데이터에서 자동으로 4행을 추가하는 방법은 무엇입니까? 다른 행의 번호는 72 등입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, SPGupta입니다.
특정 번호 목록을 기반으로 빈 행을 삽입하려면 아래 VBA 코드를 적용하십시오.
시도해보십시오. 도움이 되길 바랍니다!

하위 삽입()
'업데이트바이Extendoffice
범위로 Dim xRg
Dim xAddress를 문자열로
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
오류에 대한 다음 재개
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("사용할 특정 번호 열 선택(단일 열):", "KuTools For Excel", xAddress, , , , , 8)
xRg가 아무것도 없으면 Sub를 종료하십시오.
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.열
xCount = xRg.카운트
xRg = xRg(1)로 설정
I = xLastRow에서 xFstRow 단계 -1의 경우
xNum = 셀(I, xCol)
IsNumeric(xNum) 및 xNum > 0이면
행(I + 1).크기 조정(xNum).삽입
xCount = xCount + xNum
END IF
다음
xRg.Resize(xCount, 1).선택
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 도와주시겠습니까? 셀의 숫자보다 행을 하나 더 적게 광고하도록 이 코드를 변경하려면 어떻게 해야 합니까? 예를 들어, 셀의 숫자가 4이면 프로그램은 3개의 행을 추가합니다. 셀의 숫자가 1이면 행이 추가되지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 니나
작업을 해결하려면 아래 코드를 사용하십시오.

하위 삽입()
'업데이트바이Extendoffice
범위로 Dim xRg
Dim xAddress를 문자열로
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
오류에 대한 다음 재개
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("사용할 특정 번호 열 선택(단일 열):", "KuTools For Excel", xAddress, , , , , 8)
xRg가 아무것도 없으면 Sub를 종료하십시오.
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.열
xCount = xRg.카운트
xRg = xRg(1)로 설정
I = xLastRow에서 xFstRow 단계 -1의 경우
xNum = 셀(I, xCol)
xNum = xNum - 1
IsNumeric(xNum) 및 xNum > 0이면
행(I + 1).크기 조정(xNum).삽입
xCount = xCount + xNum
END IF
다음
xRg.Resize(xCount, 1).선택
Application.ScreenUpdating = True
최종 하위


시도해보십시오. 도움이 되길 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그것은 완벽하게 작동합니다, 정말 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 훌륭합니다. 궁금해서요... 그리고 제 영어가 완벽하지 않으니 이해해주셨으면 합니다 :) .....
추가된 빈 행을 해당 매개변수 번호가 있었던 행의 값으로 채울 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Vladimir, 워크시트의 숫자 목록을 기반으로 빈 행을 삽입하시겠습니까? 그렇다면 아래 코드를 적용하십시오.
하위 삽입()
'업데이트바이Extendoffice
범위로 Dim xRg
Dim xAddress를 문자열로
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
오류에 대한 다음 재개
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("다음을 기반으로 행을 삽입할 숫자 목록을 선택하십시오:", "KuTools For Excel", xAddress, , , , , 8)
xRg가 아무것도 없으면 Sub를 종료하십시오.
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.열
xCount = xRg.카운트
xRg = xRg(1)로 설정
I = xLastRow에서 xFstRow 단계 -1의 경우
xNum = 셀(I, xCol)
IsNumeric(xNum) 및 xNum > 0이면
행(I + 1).크기 조정(xNum).삽입
xCount = xCount + xNum
END IF
다음
xRg.Resize(xCount, 1).선택
Application.ScreenUpdating = True
End Sub한번 해보세요, 다른 질문이 있으면 여기에 댓글을 달아주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드는 행을 삽입하는 데 적합합니다....Sub Insert()
'업데이트바이Extendoffice
범위로 Dim xRg
Dim xAddress를 문자열로
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
오류에 대한 다음 재개
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("사용할 특정 번호 열 선택(단일 열):", "KuTools For Excel", xAddress, , , , , 8)
xRg가 아무것도 없으면 Sub를 종료하십시오.
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.열
xCount = xRg.카운트
xRg = xRg(1)로 설정
I = xLastRow에서 xFstRow 단계 -1의 경우
xNum = 셀(I, xCol)
xNum = xNum - 1
IsNumeric(xNum) 및 xNum > 0이면
행(I + 1).크기 조정(xNum).삽입
xCount = xCount + xNum
END IF
다음
xRg.Resize(xCount, 1).선택
Application.ScreenUpdating = True
최종 하위

그러나 가능합니까 .... 해당 매개 변수 번호가 있었던 행의 빈 셀에 데이터를 복사합니까? 여기에 사진을 게시할 수 있습니까? 필요한 걸 보여드리면 더 쉬울 것 같아요 :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Vladimir, 아래 VBA 코드가 도움이 될 수 있습니다. 시도해 보십시오. 하위 CopyRow()
'업데이트바이Extendoffice
범위로 Dim xRg
범위로 희미한 xCRg
Dim xFNum을 정수로
Dim xRN을 정수로
오류에 대한 다음 재개
선택 범위:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("숫자 목록을 선택하십시오", "Kutools for Excel", xTxt, , , , , 8)
xRg가 아무것도 없으면 Sub를 종료하십시오.

xRg.Columns.Count > 1이면
MsgBox "단일 열을 선택하십시오!"
이동 선택 범위
END IF
Application.ScreenUpdating = False
xFNum = xRg.Count의 경우 1단계 -1
xCRg = xRg.Item(xFNum) 설정
xRN = CInt(xCRg.값)
행 포함(xCRg.Row)
.복사
.크기 조정(xRN).삽입

다음
Application.ScreenUpdating = True
최종 하위

이 댓글은 사이트의 중재자에 의해 최소화되었습니다
우리는 너무 가깝습니다 :) 지금 필요한 것은 매개변수 숫자 값보다 마지막 VBA 코드보다 한 행 적은 것입니다. 예: 숫자가 8이면 7개의 행을 삽입하고 복사해야 합니다. 이 COPY로 니나를 위해 만든 것처럼
따라서 숫자가 8이면 총 8개의 삽입 및 복사된 행이 있어야 하며 이전 VBA 코드에는 9개가 있어야 합니다.
TNX
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이 경우 다음 코드가 도움이 될 수 있습니다. 시도해 보십시오. 하위 CopyData()
'업데이트바이 Extendoffice
길이만큼 xRow 희미하게 만들기
Dim VInSertNum as Variant
x행 = 1
Application.ScreenUpdating = False
동안 수행(Cells(xRow, "A") <> "")
VInSertNum = 셀(xRow, "B")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) 그러면
Range(Cells(xRow, "A"), Cells(xRow, "B")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "B")).Select
Selection.Shift 삽입:=xlDown
xRow = xRow + VInSertNum - 1
END IF
x행 = x행 + 1
고리
Application.ScreenUpdating = False
End SubNote: 위의 코드에서 문자 A 데이터 범위의 시작 열과 문자를 나타냅니다. B 행을 복제 할 기준이되는 열 문자입니다. 필요에 따라 변경하십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
복사한 숫자를 XNUMX만큼 빼는 모듈이 있나요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아니요. 저는 이것을 가지고 있지만 1을 공제하기 위해 필요합니까?
하위 CopyRow()
'업데이트바이Extendoffice
범위로 Dim xRg
범위로 희미한 xCRg
Dim xFNum을 정수로
Dim xRN을 정수로
오류에 대한 다음 재개
선택 범위:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("숫자 목록을 선택하십시오", "Kutools for Excel", xTxt, , , , , 8)
xRg가 아무것도 없으면 Sub를 종료하십시오.

xRg.Columns.Count > 1이면
MsgBox "단일 열을 선택하십시오!"
이동 선택 범위
END IF
Application.ScreenUpdating = False
xFNum = xRg.Count의 경우 1단계 -1
xCRg = xRg.Item(xFNum) 설정
xRN = CInt(xCRg.값)
행 포함(xCRg.Row)
.복사
.크기 조정(xRN).삽입

다음
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내가 하려는 것은 여러 수량의 스프레드시트에서 Word의 레이블을 만들고 인쇄하는 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것을 볼 기회가 있었습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
골드 축복합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀의 숫자로 복제하고 원본에서 1을 빼는 Excel 목록을 생성하는 코드를 찾고 계십니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
작가님 감사합니다! 당신은 이것들에 대해 최고의 찬사를 받을 자격이 있습니다! 하지만 위의 코드로 만든 모든 빈 행에 상수 값을 넣는 코드를 도와주시겠습니까? 더 명확하게 하기 위해 모든 빈 행에 상수 값을 삽입해야 합니다(위의 코드로 이미 해결됨). 그런 다음 모든 빈 행에 상수 값을 삽입해야 합니다(이것이 제 문제입니다). 친절한 답변을 기대하는 만큼 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 빈 행을 특정 값으로 채우시겠습니까? 그렇다면 다음 기사 cna가 도움이 될 것입니다.https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
시도하십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
모든 고유 값을 유지하면서 선택한 열의 중복 값을 기반으로 행을 삭제하기 위한 VBA 코드를 얻을 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Roy, 중복 값을 기반으로 행을 제거하려는 경우 일반적으로 다음을 사용할 수 있습니다. 중복 제거 Excel의 기능을 사용하여 행을 제거합니다. 물론 VBA 코드가 필요한 경우 아래 코드를 사용하십시오. (먼저 제거할 데이터 범위를 선택한 다음 이 코드를 실행해야 합니다. 선택 항목의 첫 번째 열에 있는 중복 값은 즉시 제거됩니다.) 하위 Delete_duplicate_rows()
범위로 딤 Rng
Rng 설정 = 선택
Rng.RemoveDuplicates 열:=Array(1), 헤더:=xlYes
End Sub시도해보세요. 도움이 되길 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
너무 멋져!! 정말 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. 무이토 오브리가도 메모!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요
물론이죠. 도움이 된다니 다행입니다. 질문이 있으시면 언제든지 저희에게 연락해 주십시오. 좋은 하루 되세요.
감사합니다.
맨디
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이런 식으로 열을 삽입하는 방법을 알려주실 수 있습니까? 코드는 무엇입니까
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 친구,
이 VBA 코드를 사용할 수 있습니다.

Sub InsertColumnsAtIntervals()

'Updateby Extendoffice

Dim Rng As Range

Dim xInterval As Integer

Dim xColumns As Integer

Dim xColumnsCount As Integer

Dim xNum1 As Integer

Dim xNum2 As Integer

Dim WorkRng As Range

Dim xWs As Worksheet

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)

xColumnsCount = WorkRng.Columns.Count

xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)

xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)

xNum1 = WorkRng.Column + xInterval

xNum2 = xColumns + xInterval

Set xWs = WorkRng.Parent

For i = 1 To Int(xColumnsCount / xInterval)

    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select

    Application.Selection.EntireColumn.Insert

    xNum1 = xNum1 + xNum2

Next

End Sub


감사합니다.
맨디
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
5에서 평가 된 5
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이름 이메일 전화번호
0 이름 이메일 전화번호
주소 입력란 2 이름 전화번호 0
이름 이메일 전화번호
0 이름 이메일 전화번호
주소 줄 2 0


0의 전화번호가 새 행을 시작하지 않고 모든 빈 값 또는 0 값에서 새 행을 시작하도록 이것을 편집하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 재로드

죄송합니다. 문제를 명확하게 파악할 수 없습니다.
문제를 더 자세히 설명해 주시겠습니까? 또는 여기에 스크린샷이나 파일을 삽입할 수 있습니다.
감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
hola, hay algun codigo que me permita copiar los datos, pero que en la prima columna que son fechas pueda serconsecutivo.

ejemplo

en vez de que quede asi

01년 10월 2022일 19.258.369-4 후안 라미레즈
01년 10월 2022일 19.258.369-4 후안 라미레즈
01년 10월 2022일 19.258.369-4 후안 라미레즈

케데 아시

01년 10월 2022일 19.258.369-4 후안 라미레즈
02년 10월 2022일 19.258.369-4 후안 라미레즈
03년 10월 2022일 19.258.369-4 후안 라미레즈

감사
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
hola, hay algun codigo que me permita copiar los datos, pero que en la prima columna que son fechas puedan serconsecutivas.

ejemplo

en vez de que quede asi

10년 01월 2022일 19.258.369-4 후안 라미레즈
10년 01월 2022일 19.258.369-4 후안 라미레즈
10년 01월 2022일 19.258.369-4 후안 라미레즈

케데 아시

10년 01월 2022일 19.258.369-4 후안 라미레즈
11년 01월 2022일 19.258.369-4 후안 라미레즈
12년 01월 2022일 19.258.369-4 후안 라미레즈

감사
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
놀라운 vba 스크립트!
그 사이에 새 행을 추가해야 하는 5000개 이상의 행이 있습니다. 다른 모든 가이드는 "도우미" 열을 만들라고 말했습니다. 새 행을 추가하기 위해 1,2 복사 붙여넣기를 반복해서 추가하는 데 제 인생의 좋은 부분이 될 것입니다.
감사합니다!
5에서 평가 된 5
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

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