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

Excel을 일상적으로 사용하면서 다음을 수행해야 하는 상황에 직면할 수 있습니다. 기존 열 사이에 더 많은 열 추가. 물론 삽입 기능을 사용하여 열을 하나씩 삽입할 수 있습니다. 그러나 대용량 데이터를 접하고 매 초 또는 n번째 열마다 XNUMX개의 열을 삽입해야 하는 경우 삽입 기능은 분명히 효과적이지 않습니다. 그러면 어떻게 하면 작업을 빨리 완료할 수 있습니까? 이 자습서에서는 문제를 해결하는 두 가지 쉬운 방법에 대해 설명합니다.

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

놀라운 기능으로 고정된 간격으로 데이터 범위에 특정 수의 빈 열 삽입

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

우리는 아래를 사용할 수 있습니다 VBA 코드 n번째 열마다 특정 수의 빈 열을 삽입합니다. 다음과 같이 하십시오.

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

2. 클릭 끼워 넣다 > 모듈 다음 매크로를 모듈 창문.

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

3. 누르세요 F5 이 코드를 실행하는 키입니다. 선택하라는 메시지 상자가 나타납니다. 데이터 범위 빈 열을 삽입하려는 위치.
문서 삽입 열 간격 1

4. 을 클릭합니다 OK 단추. 다른 프롬프트 상자가 나타납니다. 입력하십시오. 열 간격의 수 FBI 증오 범죄 보고서 열 간격 입력 상자.
문서 삽입 열 간격 2

5. 계속해서 OK 단추. 세 번째 프롬프트 상자가 나타나면 지정하십시오. 각 간격에 삽입하려는 열의 수 상자에.
문서 삽입 열 간격 3

6. 을 클릭합니다 OK 버튼을 눌러 결과를 얻습니다.
문서 삽입 열 간격 4

놀라운 기능으로 고정된 간격으로 데이터 범위에 특정 수의 빈 열 삽입

VBA 코드 방법을 사용하지 않으려면 빈 행 및 열 삽입 특징 Excel 용 Kutools 당신을 위한 완벽한 솔루션입니다. 이 기능을 사용하면 몇 번의 클릭만으로 고정된 간격으로 특정 수의 열을 데이터 범위에 삽입할 수 있습니다.

신청하기 전에 Excel 용 Kutools, 먼저 다운로드하여 설치하십시오.

1. 먼저 기존 데이터 범위를 선택합니다. 그런 다음 쿠툴 > 끼워 넣다 > 빈 행 및 열 삽입.
문서 삽입 열 간격 5

2. 그만큼 빈 행 및 열 삽입 대화 상자가 나타납니다. 범위 상자에 표시되는 1단계에서 선택한 데이터 범위를 볼 수 있습니다. 선택 빈 열 에서 옵션 삽입 유형 부분. 그리고 지정 열 간격의 수 과 간격마다 삽입하려는 열. 여기서는 1과 3을 따로 입력합니다.
문서 삽입 열 간격 6

3. 을 클릭합니다 OK 버튼을 눌러 설정을 완료하고 결과를 얻습니다.
문서 삽입 열 간격 7

주의 사항: 이 유틸리티의 무료 평가판(30일)을 사용하려면 클릭하여 다운로드한 다음 위 단계에 따라 작업을 적용하십시오.

기타 작업 (문서)

Excel에서 현재 날짜를 기준으로 줄을 빠르게 삽입하는 방법은 무엇입니까?
날짜가있는 행을 포함하는 시트가 있다고 가정하고 이제 매일 통합 문서를 여는 동안 자동으로 변경되는 현재 날짜에 바로 줄을 삽입하고 싶습니다. Excel에서 해결할 수있는 트릭이 있습니까?

Excel에서 항상 위 대신 아래에 빈 행을 삽입하는 방법은 무엇입니까?
우리 모두 알고 있듯이 워크 시트에 빈 행을 삽입 할 때 빈 행은 항상 선택한 행이나 셀 위에 삽입됩니다. 그러나 때로는 선택한 셀 또는 행 아래에 행을 삽입해야 할 수도 있습니다. Excel에서이 작업을 어떻게 해결할 수 있습니까?

Excel에서 명령 단추로 빈 새 행을 자동으로 삽입하는 방법은 무엇입니까?
대부분의 경우 워크 시트의 지정된 위치에 빈 새 행을 삽입해야 할 수 있습니다. 이 기사에서는 Excel에서 명령 단추를 클릭하여 빈 새 행을 자동으로 삽입하는 방법을 보여줍니다.

Excel에서 특정 텍스트 뒤에 빈 행을 삽입하는 방법은 무엇입니까?
다음 스크린 샷과 같이 특정 텍스트 뒤에 빈 행을 삽입하려면 수동으로 하나씩 삽입하지 않고 빠르고 쉽게 처리하는 방법은 무엇입니까?

더 많은 기사

최고의 사무 생산성 도구

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

슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
셀 / 행 / 열 병합 및 데이터 보관; 셀 내용 분할; 중복 행과 합계 / 평균 결합... 중복 셀 방지; 범위 비교...
중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
즐겨 찾기 및 빠른 수식 삽입, 범위, 차트 및 그림; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
피벗 테이블 그룹화 기준 주 번호, 요일 등 ... 잠금 해제되고 잠긴 셀 표시 다른 색상으로; 수식 / 이름이있는 셀 강조 표시...