Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 09.06.2008, 17:56   #1
Chuprin2006
Новичок
Джуниор
 
Регистрация: 09.06.2008
Сообщений: 1
По умолчанию Люди добрые, помогите кто чем сможет.

Люди добрые, помогите кто чем сможет.
В excel есть столбец с каталожными номерами
например
96190316
96190318
96215632
96272357
96481305
к ним нужно прибавить приставку dat
в итоге должно получиться:
96190316dat
96190318dat
96215632dat
96272357dat
96481305dat
Как это сделать? В ручную не реально 10млн номеров. Заранее спасибо.
Chuprin2006 вне форума
Старый 09.06.2008, 18:27   #2
Град
Пользователь
 
Регистрация: 07.04.2008
Сообщений: 36
По умолчанию

A B
96190316 =СЦЕПИТЬ(A1;"dat")
96190318 =СЦЕПИТЬ(A2;"dat")
96215632 =СЦЕПИТЬ(A3;"dat")
96272357 =СЦЕПИТЬ(A4;"dat")
96481305 =СЦЕПИТЬ(A5;"dat")

Напишите справа от цифр эту функцию и скопируйте на все значения
Град вне форума
Старый 09.06.2008, 20:25   #3
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

=A1 & "dat"
Pavel55 вне форума
Старый 10.06.2008, 04:59   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Конечно, кому как нравится, но если
Цитата:
10млн номеров
, то вставлять и "растягивать" формулу тоже утомительно. Да еще понадобится дополнительный столбец.
По-моему, куда как проще сделать это с помощью простенькой процедуры. Например, для столбца "A":
Код:
Sub Couple()

    Dim i As Long
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "A") = Cells(i, "A") & "dat"
    Next

End Sub
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 11.06.2008, 17:03   #5
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Люди добрые помогите!!!... Stas))) Помощь студентам 3 02.06.2007 20:07
помогите люди добрые!! проявите великодушие))! slot Общие вопросы Delphi 3 23.11.2006 09:10