полезные коды для VBA Excel

[vlad_kosarev]

VBA код для получения количества строк и столбцов на листе:

'counts number of columns and rows in the table
'Dim finalRow As Long
finalRow = ActiveSheet.Cells(Application.
Rows.Count, 1).End(xlUp).Row
'counts number of rows
'Range("A20") = finalRow  'writes number of rows in the cell on the sheet
 lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
'counts number of columns
'Range("A21") = lastColumn  'writes number of columns in the cell on the sheet

VBA код для получения буквенного названия столбца (например, AG) по номеру столбца:

'get column letter after its number
ColumnNumber = 23
If ColumnNumber < 26 Then
       ' Columns A-Z
       GetColumnLetter = Chr(ColumnNumber + 64)
   Else
       GetColumnLetter = Chr(Int((ColumnNumber - 1) / 26) + 64) & _
                         Chr(((ColumnNumber - 1) Mod 26) + 65)
   End If
Ответ:  23я буква - это W, GetColumnLetter можно дальше подставлять в формулы.

Эти программки можно найти в интернете достаточно легко, но для удобства вынесу их и сюда.