Этот код является частью моего основного кода, поэтому я знаю, что в нем отсутствует строка, скажем, для вызова листа, но я все понял.
Я сузил проблему до этогоно я не понимаю Excel достаточно, чтобы понять, почемуЯ предполагаю, что это связано с массивом, но не уверен.В основном, что происходит, я запускаю это, и он берет столбец данных и толкает его на 1 строку, перезаписывая заголовок значением в EN2.Последняя ячейка в столбце не очищается, а копируется сама.Это похоже на то, что последнее значение копируется и вставляется внизу, но вместо перезаписи ячейки помещает ВСЕ данные ячейки вверх на одну строку.Странно.
Sub RoutineTest()
Range(Range("EN2"), Range("EN2").End(xlDown)).Select
Selection.TextToColumns Destination:=Range( _
"BurnData[[#Headers],[est_po_place]]"), DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 3) _
, TrailingMinusNumbers:=True
End Sub
Надеюсь, кто-нибудь может помочь мне понять, почему.