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

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

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 이 코드를 실행하는 키입니다. 선택하라는 메시지 상자가 나타납니다. 데이터 범위 빈 열을 삽입하려는 위치.

4. 을 클릭합니다 OK 단추. 다른 프롬프트 상자가 나타납니다. 입력하십시오. 열 간격의 수 에서 열 간격 입력 상자.

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

6. 을 클릭합니다 OK 버튼을 눌러 결과를 얻습니다.

---

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

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

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

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

3. 을 클릭합니다 OK 버튼을 눌러 설정을 완료하고 결과를 얻습니다.

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

---