독특한 분류

다음과 같은형식으로 만들기 원하는데요.

위에 엑셀형식을 밑에 엑셀 형식으로 숫자를 붙여서,,,

수작업하기에는 너무나 양이 많습니다.

함수나 다른것들을 이용하여 쉽게 변환할수 있는 방법은 없는건가요?

네이버 아이디 : bfy0110 님 질문

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

본좌 답변 >>

코드 작성해봤습니다 ^^

그냥 함수로는 불가능 하네요

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Sub 변환()
      Dim i As Long
      Dim r_index As Long, c_index As Long
      
      For c_index = 1 To 1 Step 1
            i = 1
            For r_index = 1 To 1000 Step 1
                   If Cells(r_index, c_index) <> "" Then
                      Cells(r_index, c_index) = "'0" & i
                      i = i + 1
                   Else
                   End If
            Next r_index
      Next c_index
 
      For c_index = 2 To 6 Step 1
            For r_index = 2 To 1000 Step 1
                   If ((Cells(r_index, c_index) <> "") And (Cells(r_index, c_index).Offset(-1, -1) <> "")) Then
                       i = 1
                       Cells(r_index, c_index) = "'0" & i
                       i = i + 1
                   ElseIf Cells(r_index, c_index) <> "" Then
                       Cells(r_index, c_index) = "'0" & i
                       i = i + 1
                   Else

                   End If
            Next r_index
       Next c_index
End Sub


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


1000행 까지로 가정하고 만들어본겁니다.

1. 위 코드를 적용할 시트를 선택한 뒤

2. Alt + F11을 누르시면 Visual Basic 이라는 창이 뜹니다.

3. [삽입] 메뉴에 [모듈]을 선택하시면 빈 창 하나가 생성 됩니다.

4. 위의 코드 내용을 복사해서 붙여 넣으시고

5. F5를 한번 눌러보시고

6. 시트 내용을 확인해보세요 ^^

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *