Отмена разбиения текста по солбцам

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Гость

Дата: Среда, 09.11.2011, 11:57 | Сообщение № 1

Группа: Гости

Здравствуйте. При вставке текста из буфера в excel данные вставляются в один столбец. После отработки макроса с разбивкой на строки и удалением лишних строк все последующие вставки уже вставляются с разбивкой по столбцам до перезагрузки екселя. Как отменить автоматическую разбивку по столбцам при вставке текста? Спасибо.

Ответить

VictorM

Дата: Среда, 09.11.2011, 12:02 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 161

Репутация: 27 ±

Замечаний: 0% ±

Quote

После отработки макроса

Ключевая фраза в Вашем посте))
Смотреть надо.
Да и вообще, что вставляется, откуда, в каком формате.
Этож нам все моделировать надо???
Давайте файлик

Сообщение отредактировал VictorM - Среда, 09.11.2011, 12:04

Ответить

Гость

Дата: Среда, 09.11.2011, 12:43 | Сообщение № 3

Группа: Гости

Вставляется текст из буфера обмена (не понял как вставить файл sad

)

Code

           at point  X=2325385.3927  Y=468875.5197  Z=   0.0000
           at point  X=2325400.6379  Y=468907.5685  Z=   0.0000
           at point  X=2325411.8079  Y=468900.0684  Z=   0.0000
           at point  X=2325398.0096  Y=468867.2679  Z=   0.0000

Он вставляется каждая строчка в одну ячейку.
Отрабатывает макрос:

Code

Sub Список_коорд2()
n = Selection.Count

     Selection.TextToColumns DataType:=xlDelimited, _
     ConsecutiveDelimiter:=True, Space:=True, _
     FieldInfo:=Array(Array(1, 9), Array(2, 9), Array(3, 9), Array(4, 1), Array(5, 1), Array _
         (6, 9), Array(7, 9)), TrailingMinusNumbers:=True
     Selection.Cut
     ActiveCell.Offset(0, 2).Select
     ActiveSheet.Paste
     ActiveCell.Offset(0, -1).Select
     Range(ActiveCell.Cells(1, 1), ActiveCell.Cells(n, 2)).Select

         Selection.Replace What:="y=", Replacement:="", LookAt:=xlPart, _
         SearchOrder:=xlByRows
         Selection.Replace What:="x=", Replacement:="", LookAt:=xlPart, _
         SearchOrder:=xlByRows
End Sub

После этого при следующих вставках того же текста данные вставляются с разбивкой по столбцам разделитель пробел.