разнесение ячейки

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/разнесение ячейки - Мир MS Excel

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

разнесение ячейки (Иное)

разнесение ячейки

mr_maxim

Дата: Среда, 22.01.2014, 17:23 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2003

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

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

Сообщение отредактировал mr_maxim - Среда, 22.01.2014, 17:27

Ответить

nilem

Дата: Среда, 22.01.2014, 17:37 | Сообщение № 2

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

например, так:
[vba]

Код

Sub ertert()
Dim x, y(), i&, j&, k&, sp
With Range("A1").CurrentRegion
     x = .Value
     ReDim y(1 To 2, 1 To UBound(x))
     For i = 1 To UBound(x)
         sp = Split(x(i, 2), ",")
         For j = 0 To UBound(sp)
             k = k + 1: If k > UBound(y, 2) Then ReDim Preserve y(1 To 2, 1 To UBound(y, 2) * 2)
             y(1, k) = x(i, 1): y(2, k) = sp(j)
         Next j
     Next i
     .Resize(k).Value = Application.Transpose(y())
End With
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

разнесение ячейки (Иное)

Страница 1 из 1
1