[엑셀] Sequence 함수 없을 때 사용하는 방법, VBA 기능 활용

안녕하세요. yyDandy입니다. 사무실 칼퇴보장 알잘딱깔센 엑셀 활용법! 

 

---

엑셀은 버전이 뒤로 갈수록 굉장히 좋은 기능이 많아지는데요. 엑셀 2021 이후 버전에서는 Sequence라는 동적배열 함수가 추가되었습니다. 생각보다 유용한 기능인데요. Seuquence는 자동번호 매기기라고 할 수 있겠습니다. 사실 번호를 단순 수로 하다보면 문제점이 생깁니다. 바로 행이 제거되거나 추가되었을 때 번호가 사라진다는 점이죠. 이걸 Sequence로 극복했지만 아직 낮은 버전에서는 없다는게 슬프네요..! 바로 쓰는 법 알려드릴게요!

 

https://www.youtube.com/shorts/ce4JvM3pe1o

 

 

Sub FillRange()
    Dim selectedRange As Range
    Dim currentValue As Integer
    Dim cell As Range
    
    ' 선택한 범위 가져오기
    Set selectedRange = Selection
    
    ' 시작 값 초기화
    currentValue = selectedRange.Cells(1, 1).Value
    
    ' 범위 순회하며 값 채워넣기
    For Each cell In selectedRange
        cell.Value = currentValue
        currentValue = currentValue + 1
        
        ' 아래로 이동할 때 우측 끝 번호+1부터 시작
        If cell.Column = selectedRange.Columns.Count Then
            currentValue = cell.Value + 1
        End If
    Next cell
End Sub

 

반응형

 

위 코드를 활용하시면 위 사진처럼 번호를 매길 수 있어요. 하지만 가로 세로 1열, 행이 아닌 다수로도 작동할 수 있는데요.

범위를 지정하시면 아래처럼 지정한 범위에서 값을 생성할 수 있어요.

 

 

또 시작값을 1,1 지점이 아닌 숫자(2,3,4) 로 입력하시면 증가폭을 달리할 수도 있답니다. 사용하는 방법은 Alt + F11을 누르신 후 VBA 편집기를 열어주세요. 그리고 삽입-모듈을 누르신 후 위 코드를 그대로 복사하시면 사용하실 수 있답니다.

 

 

 

엑셀 최신버전 아니라고 기죽지마세요! 필요한 기능은 적어주시면 만들어 드릴게요! 오늘의 엑셀 팁 이었습니다~!