Страницы: 1
RSS
как текст из одного столбца добавить в конец текста другого столбца?
 
Например в первом столбце ручки....во втором 25 шт...мне надо что бы в первом было написанно ручки 25 шт...Там более 1000 позицийю...копировать уже сил нет...
 
{quote}{login=bugreeva1986}{date=18.04.2011 05:10}{thema=как текст из одного столбца добавить в конец текста другого столбца?}{post}... уже сил нет...{/post}{/quote}  
И у нас они заканчиваются - долбишь и долбишь давайте конкретный пример, а они все своё гнут... ;)  
-96624-
 
{quote}{login=Z}{date=18.04.2011 05:12}{thema=Re: как текст из одного столбца добавить в конец текста другого столбца?}{post}{quote}{login=bugreeva1986}{date=18.04.2011 05:10}{thema=как текст из одного столбца добавить в конец текста другого столбца?}{post}... уже сил нет...{/post}{/quote}  
И у нас они заканчиваются - долбишь и долбишь давайте конкретный пример, а они все своё гнут... ;)  
-96624-{/post}{/quote}  
не могу я прикрепить...у меня все файлы на удаленном рабочем столе... а в нет я с другого захожу)))ну помогите...если не понятно еще объясню...  
    А                          Б  
 1 ОКХ.68ВП Куртка хирургическая "Евростандарт"  
 2 ОКХ.60СЛ Куртка хирургическая "Евростандарт"  
 3 ОКХ.20СМС Куртка хирургическая "Евростандарт"  
 4 ОКХ.30СМС Куртка хирургическая "Евростандарт"  
 5 ОБХ.68ВП Брюки хирургические "Евростандарт"  
 6 ОБКХ.60СЛ Брюки хирургические "Евростандарт"  
 7 ОБХ.20СМС Брюки хирургические "Евростандарт"  
Вот например. мне надо что бы столбец А стоял в конце названия столбца Б....В итоге Куртка хирургическая "Евростандарт" ОКХ.68ВП
 
В С1 формулу:  
=B1&" "&A1  
и копируем вниз
 
{quote}{login=}{date=18.04.2011 05:27}{thema=}{post}В С1 формулу:  
=B1&" "&A1  
и копируем вниз{/post}{/quote}  
Если потом нужен просто текст, а не формулы, то копируем то что получилось и вставляем в нужное место - Специальная вставка/значения
 
{quote}{login=}{date=18.04.2011 05:27}{thema=}{post}В С1 формулу:  
=B1&" "&A1  
и копируем вниз{/post}{/quote}  
 
 
Спасибо огромное!!!!Теперь не неделю сидеть, а всего день
 
Может макросом? Пару минут...  
 
Sub tt()  
Dim cc As Range  
For Each cc In Range([B1], Range("B" & Rows.Count).End(IIf(Len(Range("B" & Rows.Count)), xlDown, xlUp)))
cc.Value = cc.Value & " " & cc.Offset(0, -1).Value  
Next  
End Sub
 
Пару секунд:  
 
Sub tt2()  
Dim a, b, i As Long  
a = Range([A1], Range("A" & Rows.Count).End(IIf(Len(Range("A" & Rows.Count)), xlDown, xlUp)))
b = Range([B1], Range("B" & Rows.Count).End(IIf(Len(Range("B" & Rows.Count)), xlDown, xlUp)))
For i = 1 To UBound(a)  
b(i, 1) = b(i, 1) & " " & a(i, 1)  
Next  
[B1].Resize(i - 1) = b
End Sub
 
Дима как-то пошутил:  
Sub JokeThe_Prist()  
   [C2:C200] = [A2:A200*B2:B200]
End Sub  
И никто не мешает:  
Sub JokeThe_Prist()  
   [C2:C200] = [B2:B200&A2:A200]
End Sub  
Или вариант от Казанского, круче и универсальней:  
Public Sub Kazansky()  
   Dim r As Range  
   Set r = Range([B2], [B1].End(xlDown))
   r.Offset(, 1).Value = Evaluate(r.Address & "&" & r.Offset(, -1).Address)  
End Sub
Я сам - дурнее всякого примера! ...
 
Да, почему-то такие простые варианты не запоминаются :)  
 
Sub JokeThe_Prist()  
[B1:B200] = [B1:B200&" "&A1:A200]
End Sub
 
А я, как видишь, запомнил. Именно из-за простоты:-)Люблю, знаете ли, вкусные решения.
Я сам - дурнее всякого примера! ...
Страницы: 1
Читают тему
Наверх