Как сцепить каждое значение в ячейки с другой ячейкой

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

Как сцепить каждое значение в ячейки с другой ячейкой (Формулы/Formulas)

JOB_MEN

Дата: Четверг, 22.10.2015, 06:24 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2007

Здравствуйте!
Нужна помощь экспертов в EXCEL,помогите пожалуйста.
Задача:
Есть ячейка A1 со значениями r80 r08 r09 r34(значений много,разделены пробелом) и есть ячейка B1 с одним значением 231gsjfg453.
Необходимо каждое значение из ячейки A1 сцепить со значением ячейки B1,сформировав новый столбец.
Можно и формулой и макросом.

К сообщению приложен файл: 6243589.xls (27.0 Kb)

Сообщение отредактировал JOB_MEN - Четверг, 22.10.2015, 08:06

Ответить

SLAVICK

Дата: Четверг, 22.10.2015, 09:23 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 2290

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

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

2019

Можно простеньким макросом: :D
[vba]

Код

Sub t()
Dim m(), mt, i&, ii&, n&
m = [a2:b4].Value 'Selection.Value
Sheets.Add
For i = 1 To UBound(m)
    If InStr(1, m(i, 2), " ") > 0 Then
        mt = Split(m(i, 2), " ")
            For ii = 0 To UBound(mt)
                n = n + 1
                Cells(n, 1) = m(i, 1): Cells(n, 2) = mt(ii)
            Next
    Else
        n = n + 1
        Cells(n, 1) = m(i, 1): Cells(n, 2) = m(i, 2)
    End If
Next
End Sub

[/vba]