Excel에서 누락 된 일련 번호에 대해 숫자 또는 행을 삽입하는 방법
본문 바로가기
etc./기타

Excel에서 누락 된 일련 번호에 대해 숫자 또는 행을 삽입하는 방법

by DHan- 2021. 8. 17.
728x90

1. ALT + F11 

2. 모듈 + 하단 코드 삽입 

3. F5 + 범위선택

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 11 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(01).Value
Next
For i = 0 To interval
    outArr(i + 11= i + num1
    If dic.Exists(i + num1) Then
        outArr(i + 12= dic(i + num1)
    Else
        outArr(i + 12= ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub
cs

https://ko.extendoffice.com/documents/excel/1283-excel-insert-missing-numbers-in-sequence.html#a1

 

Excel에서 누락 된 일련 번호에 대해 숫자 또는 행을 삽입하는 방법은 무엇입니까?

Excel에서 누락 된 일련 번호에 대해 숫자 또는 행을 삽입하는 방법은 무엇입니까? 워크 시트에 일련 번호 목록이 있지만 시퀀스 중에 일부 누락 된 번호가 있고 이제 누락 된 번호 또는 빈 행을

ko.extendoffice.com

 

728x90

댓글