Развернуть массив в строки

Старая форма входа

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

yuka

Дата: Понедельник, 08.04.2013, 13:53 | Сообщение № 1

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

Ранг: Участник

Сообщений: 94

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

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

Excel 2007

Добрый день, уважаемые форумчане!
У меня вопрос. Есть двумерный массив с данными. Возможно ли его, желательно формулами, развернуть в простую таблицу со строками.
Пример в файле.

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

Ответить

Serge_007

Дата: Понедельник, 08.04.2013, 14:50 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Так надо?

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

ЮMoney:41001419691823 | WMR:126292472390

Ответить

yuka

Дата: Понедельник, 08.04.2013, 14:58 | Сообщение № 3

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

Ранг: Участник

Сообщений: 94

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

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

Excel 2007

Да, так, спасибо огромное!

Великое дело формулы! Нужно уметь ими пользоваться...

Ответить

макрос

Дата: Пятница, 24.01.2014, 09:49 | Сообщение № 4

Группа: Гости

Добрый день,
а макрос по этим формулам может кто-нибудь написать? и чтобы программа сама определяла размеры таблицы (они могут быть всегда разные) и умножения "Х" как в этом примере не нужно, просто перечисление в строку X|Y|Значение?
Буду благодарен за помощь!

Ответить

Pelena

Дата: Пятница, 24.01.2014, 11:10 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19436

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

Замечаний: ±

Excel 365 & Mac Excel

макрос, для макросов есть специальный раздел ВОПРОСЫ ПО VBA, а ещё есть Правила форума, которые нужно обязательно соблюдать при создании темы

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Hugo

Дата: Пятница, 24.01.2014, 11:11 | Сообщение № 6

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

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

Сообщений: 3738

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

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

365

Да легко.
Но без Вашего примера - разбирайтесь сами как пристроить.
Вот код для примера из темы (yuka_pp.xls(29Kb)) - см. результат с сороковой строки:

[vba]

Код

Option Explicit

Sub tt()
      Dim x&, y&, i&

      i = 39
      With Cells.Find("Āčä").CurrentRegion
          For x = 2 To .Rows.Count
              For y = 2 To .Columns.Count
                  If Len(.Cells(x, 2)) Then
                      If Len(.Cells(2, y)) Then
                      i = i + 1
                          Cells(i, 1) = .Cells(x, 2) & "|" & .Cells(2, y)
                          Cells(i, 2) = .Cells(x, y)
                      End If
                  End If
              Next
          Next
      End With

End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Развернуть массив в строки

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