Macro to Increment column имя excel динамически

Question

Элемент Excel - ячейки (1, "Z") содержит некоторое значение. Теперь я хочу написать 10 ячеек после Z. Это будут ячейки (1, «AJ»). Могу ли я написать макрос, который добавит 10 в 'Z' и даст мне имя столбца excel, т. Е. 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 

Затем повторно написать код в соответствии с вашими потребностями, это просто дает вам обратно алфавитный версию «10 колонок после Z».