동적으로 Excel의 열 이름을 증가시키기위한 매크로

Question

Excel 셀 - 셀 (1, "Z")에 일부 값이 들어 있습니다. 이제 Z 다음에 10 개의 셀을 쓰고 싶습니다. 셀 (1, "AJ")이됩니다. 'Z'에 10을 더하는 매크로를 작성하여 AJ라는 열 이름보다 우수한 매크로를 작성할 수 있습니까?

Answer 1

당신은 당신의 프로젝트에 두 가지 기능을 추가 할 수 있습니다 :

1. 첫 번째, 각각의 열 번호로 문자 변환;
2. 숫자를 추가 한 후 문자로 변환합니다.

그래서 여기 당신이가는 :

Sub YourMacro() 

columnLetter = ColLtr(ColNum("Z") + 10) 
MsgBox columnLetter 

End Sub 

Function ColLtr(iCol As Long) As String 
    If iCol > 0 And iCol <= Columns.Count Then 
     ColLtr = Evaluate("substitute(address(1, " & iCol & ", 4), ""1"", """")") 
    End If 
End Function 

Function ColNum(iCol As String) As Long 
    ColNum = Range(iCol & 1).Column 
End Function 

그런 다음 필요에 따라 코드를 다시 쓰기, 이것은 단순히 "는 Z 후 10 열"의 알파벳 버전을 다시주고있다.