Разбор данных из одного файла CSV в другой

Question

Я пытаюсь запустить этот макрос, но поскольку мой CSV-файл очень длинный и я не хочу считать номера столбцов, есть ли способ ссылаться на столбец с помощью букв, таких как "DZ"? Код работает нормально, но мне просто нужно сослаться на эти глубокие столбцы, и я не хочу подсчитывать, какой это номер столбца, и не могу найти способ отобразить номер столбца. Я установил 'c' & 't' в качестве номера столбца, например 1, 2 и т. Д.

Sub ParseColumn

Dim sheet1 as Object
Dim sheet2 as Object
Dim r as long
Dim c as long

sheet1 = ThisComponent.Sheets.getbyname("Sheet1")
sheet2 = ThisComponent.Sheets.getbyname("Sheet2")

c = F
t = DZ

for r = 1 to 18739

    copyFrom = sheet1.getCellByPosition(c,r)

    copyTo = sheet2.getCellByPosition(t,r)

    copyTo.String = copyFrom.String 

next r

End Sub

Обновление Найдено решение:

Sub ParseColumn

Dim sheet1 as Object
Dim sheet2 as Object
Dim r as long

sheet1 = ThisComponent.Sheets.getbyname("Sheet1")
sheet2 = ThisComponent.Sheets.getbyname("Sheet2")

for r = 2 to 18739

    copyFrom = sheet1.getCellRangeByName("AR" & r)

    copyTo = sheet2.getCellRangeByName("S" & r)

    copyTo.String = copyFrom.String 

next r

End Sub