Vba: jak przekonwertować numer kolumny na literę

Aby przekonwertować numer kolumny na literę, możesz użyć następującej składni w VBA:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

To konkretne makro przekonwertuje numer kolumny w komórce A2 na literę i wyświetli literę w komórce B2 .

Na przykład, jeśli wartość w komórce A2 wynosi 4, wówczas w komórce B2 zostanie wyświetlona litera „D”, ponieważ jest to litera odpowiadająca czwartej kolumnie w programie Excel.

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Konwertuj numer kolumny na literę w VBA

Załóżmy, że chcemy wiedzieć, która litera kolumny odpowiada kolumnie o numerze 4 w programie Excel:

Możemy utworzyć następujące makro, aby przekonwertować tę liczbę na literę:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Komórka B2 wyświetla wartość „D”, ponieważ jest to litera odpowiadająca czwartej kolumnie.

Jeśli zmienimy liczbę w komórce A2 i uruchomimy makro ponownie, komórka B2 wyświetli zaktualizowaną literę kolumny.

Załóżmy na przykład, że zmieniamy liczbę w komórce A2 na 73 i ponownie uruchamiamy makro:

Komórka B2 wyświetla teraz wartość „BU”, ponieważ jest to litera kolumny odpowiadająca 73. kolumnie.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak znaleźć ostatnio używaną linię
VBA: Jak znaleźć ostatnio używaną kolumnę
VBA: Jak policzyć liczbę użytych kolumn