Я пытаюсь выполнить цикл по всем файлам в папке, с этими файлами я хочу запустить формулу, которая заполнит ячейки размером 20x2 (например, N1:O20), и я хочу сохранить найденные значения и добавить следующие значения к нижняя часть предыдущей итерации.
Вот мой код, с которым я работаю, A1:K36004 - это место, где файлы .dat отображают свою информацию.
Do While Len(strFile)> 0 'Добавление clearcontents здесь очищает значение формулы на следующей итерации
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
'End Extraction
' Filter_Minute Macro
Мне нужно, чтобы эти значения были сохранены в местоположении, а следующая итерация перенесена в следующую пустую строку
Range("N5").Select
Range("N5").Formula = "=INDEX($A$5:$A$36004,(ROW(N5)-5)*1200+1,1)"
Selection.AutoFill Destination:=Range("N5:N34"), Type:=xlFillDefault
Range("N5:N34").Select
Range("N5:N34").Select
Range("O5").Select
Range("O5").Formula = "=MAX(INDEX($J$3:$J$36004,(ROW(H3)-3)*1200+1,1):INDEX($J$3:$J$36004,(ROW(H4)-3)*1200,1))"
Selection.AutoFill Destination:=Range("O5:O34"), Type:=xlFillDefault
Range("O5:O34").Select
Range("O5:O34").Select
strFile = Dir
петля
На этом рисунке показано, что происходит на следующих итерациях со смещением всего предыдущего счета.
Спасибо за ваше время.