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 + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
outArr(i + 1, 1) = i + num1
If dic.Exists(i + num1) Then
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 2) = ""
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
728x90
'etc. > 기타' 카테고리의 다른 글
2022 영등포 평생교육 바우처 - 작성중 (0) | 2022.05.02 |
---|---|
[청년내일채움공제] 2022년 기준, 3년형 수령 후기 (0) | 2022.04.25 |
[공수] 맨먼스, 맨데이 계산방법( m/m, m/d, m/h ) (0) | 2020.12.01 |
동영상을 움짤로 변환하기 ( GIF 파일 ) - 동영상 이미지 변환 (0) | 2020.11.27 |
아웃룩(Outlook) 이미지 깨짐, 엑박 현상 고치기 (4) | 2020.11.13 |
댓글