Объедение параллельных строк,из 3 столбцов,в один.... - Страница 2

Дата: Среда, 14.11.2012, 01:04 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

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

Спасибо всем ...

Дата: Среда, 14.11.2012, 01:18 | Сообщение № 22

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

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

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

365

Вот такой вариант:

Хотя честно говоря не знаю, намного ли быстрее будет Join большого массива чем выгрузка такого массива построчно? Тестить нужно - может сравните на большом файле и расскажете?

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Дата: Среда, 14.11.2012, 01:22 | Сообщение № 23

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

Quote (Hugo)

Договорились wink

Дата: Среда, 14.11.2012, 01:51 | Сообщение № 24

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

Quote (KuklP)

Public Sub www()
Dim r As Range: Set r = Range("a2", [a65536].End(xlUp))
r.Value = Evaluate(r.Address & "&""/""&" & _
r.Offset(, 1).Address & "&""/""&" & r.Offset(, 2).Address)
[b:c].Delete
End Sub

В общем этот вариант самый быстрый,заставляет ждать доли секунды,практический не заставляет даже,а остальные варианты требуют пару секунд,но секунды-это не минуты,поэтому разница не ощущается практический....
Не хотелось озадачивать,но если вы с таким фанатизмом относитесь к этому делу,то может кто подскажет,как сделать такой же вариант,только со столбцами DEQ,т.е. чтобы было так Q/D/E ?

Сообщение отредактировал libero23 - Среда, 14.11.2012, 01:52

Дата: Среда, 14.11.2012, 01:58 | Сообщение № 25

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

[vba]

Code

Public Sub www()
      Dim r As Range: Set r = Range("d2", [d65536].End(xlUp))
      r.Value = Evaluate(r.Offset(, 14).Address & "&""/""&" & _
          r.Address & "&""/""&" & r.Offset(, 1).Address)
      [E:E,Q:Q].Delete
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Среда, 14.11.2012, 02:03 | Сообщение № 26

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

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

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

365

Так у Вас в Q ведь пусто sad

Если делать в Экселе - то код KuklP легко переделать и под такое условие.
Ну а мой будет немного сложнее изменить - из середины взять данные не сложно, сложнее потом остатки собрать. Но тоже решаемо.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Дата: Среда, 14.11.2012, 02:05 | Сообщение № 27

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Quote (Hugo)

Мой

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Среда, 14.11.2012, 02:18 | Сообщение № 28

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

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

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

365

Ну конечно - даблклик и готово smile

Не нужно открывать файл в Экселе, искать в персонале (которого вероятно нет) код, или копипастить его в модуль, выполнять, сохранять файл (ещё не известно, что там сохранится в общем случае).

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Дата: Среда, 14.11.2012, 02:25 | Сообщение № 29

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Игорь, я не спорю beer

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Среда, 14.11.2012, 02:45 | Сообщение № 30

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

Quote (Hugo)

Так у Вас в Q ведь пусто sad
Если делать в Экселе - то код KuklP легко переделать и под такое условие.
Ну а мой будет немного сложнее изменить - из середины взять данные не сложно, сложнее потом остатки собрать. Но тоже решаемо.

это в прикреплённом файле пусто,т.к. не хотел усложнять задачу,поэтому и перекинул из Q в A,а так в оригинале всё так,как я написал в последнем сообщении...

Дата: Среда, 14.11.2012, 03:04 | Сообщение № 31

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

Quote (KuklP)

Public Sub www()
Dim r As Range: Set r = Range("d2", [d65536].End(xlUp))
r.Value = Evaluate(r.Offset(, 14).Address & "&""/""&" & _
r.Address & "&""/""&" & r.Offset(, 1).Address)
[E:E,Q:Q].Delete
End Sub

из этого выходит следующее
/DIESEL/Jacket
8033089692448/DIESEL/Jacket
/DIESEL/Jacket
8033089778302/DIESEL/Jacket
/DIESEL/Jacket
8033089780671/DIESEL/Jacket
8033089780657/DIESEL/Jacket
8033089780640/DIESEL/Jacket

что-то странное...цифры откуда взялись,непонятно...и столбец Q удалился,а данных не видно нигде....

Дата: Среда, 14.11.2012, 08:08 | Сообщение № 32

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

А мне откуда знать? Я Вашего файла не видел. Выкладывайте пример под новую задачу.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Среда, 14.11.2012, 11:55 | Сообщение № 33

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

Quote (KuklP)

Выкладывайте пример под новую задачу

Вот

Сообщение отредактировал libero23 - Среда, 14.11.2012, 11:57

Дата: Среда, 14.11.2012, 11:58 | Сообщение № 34

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Прикольно.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Среда, 14.11.2012, 11:58 | Сообщение № 35

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

блин не крепится sad

почему ?

Сообщение отредактировал libero23 - Среда, 14.11.2012, 12:00

Дата: Среда, 14.11.2012, 12:00 | Сообщение № 36

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Наверное размер не укладывается в правила. Давайте файл на пару десятков строк.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Среда, 14.11.2012, 12:00 | Сообщение № 37

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

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

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

365

Вероятно большой.
Обрежьте низ - нам не нужно 1000000 строк, хватит 10.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Дата: Среда, 14.11.2012, 12:03 | Сообщение № 38

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

Вот

К сообщению приложен файл: 2257183.csv (8.5 Kb)

Дата: Среда, 14.11.2012, 12:08 | Сообщение № 39

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Так?
[vba]

Code

Public Sub www()
       Dim r As Range: Set r = Range("d2", [d65536].End(xlUp))
       r.Value = Evaluate(r.Offset(, 13).Address & "&""/""&" & _
           r.Address & "&""/""&" & r.Offset(, 1).Address)
       [E:E,Q:Q].Delete
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Среда, 14.11.2012, 12:11 | Сообщение № 40

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

Неа,вот,что получается
Brand
#ЗНАЧ!
#ЗНАЧ!
#ЗНАЧ!
#ЗНАЧ!