Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 11.07.2019, 21:50   #11
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Адрес: УКРАЇНА, Київ
Сообщений: 9,168
Репутация: 1811

icq: 7934250
skype: i2x0,5
По умолчанию

замените на это:
Код:
Sub Transform()
  Dim v, a, c&, r&, i&, x$, s$, re, ms, m
  Set re = CreateObject("VBScript.RegExp"): re.Global = True: re.Pattern = "(\d+) *х(\d+)"
  v = Range(Cells(1), Cells(Rows.Count, 1).End(xlUp)).Value: r = 1
  For i = 1 To UBound(v)
    If Not IsEmpty(v(i, 1)) Then
      If re.test(v(i, 1)) Then
        Set ms = re.Execute(v(i, 1))
        For Each m In ms
          For c = 1 To Val(m.SubMatches(1))
            x = IIf(x = "", "", x & ",") & m.SubMatches(0)
          Next
          v(i, 1) = Replace(v(i, 1), m, x): x = ""
        Next
      End If
      a = Split(v(i, 1), ",")
      Cells(r, 3).Resize(UBound(a) + 1, 1).Value = WorksheetFunction.Transpose(a)
      r = r + UBound(a) + 1
    End If
  Next
End Sub
__________________
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума   Ответить с цитированием
Старый 11.07.2019, 22:01   #12
Dan99
Новичок
Джуниор
 
Регистрация: 11.07.2019
Сообщений: 8
Репутация: 10
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
замените на это:
Попробую, но вроде решение найдено в прошлом посте, или есть разница?
Dan99 вне форума   Ответить с цитированием
Старый 11.07.2019, 22:12   #13
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Адрес: УКРАЇНА, Київ
Сообщений: 9,168
Репутация: 1811

icq: 7934250
skype: i2x0,5
По умолчанию

нет разницы (особенно, если результат идентичен)
это свободный форум - на вопрос могут ответить несколько человек, а может не ответить никто...
если автору темы так и не удалось сформулировать задачу, ее читают, недоумевают и проходят мимо. бывает совсем нечего делать - могут начать донимать уточняющими вопросами
не знаю как кто, а я, решая простые задачи здесь - получаю удовольствие от результата. такой у меня способ развлечься)) в основном все, что отвечают здесь на вопросы - развлекаются, с пользой для других людей коротают свое свободное время
интернет, однако...
__________________
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Последний раз редактировалось IgorGO; 11.07.2019 в 22:14.
IgorGO вне форума   Ответить с цитированием
Старый 12.07.2019, 01:52   #14
Dan99
Новичок
Джуниор
 
Регистрация: 11.07.2019
Сообщений: 8
Репутация: 10
По умолчанию

Всем большое спасибо за столь быстрый отклик, задача решена.
Dan99 вне форума   Ответить с цитированием
Старый 12.07.2019, 02:14   #15
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Адрес: УКРАЇНА, Київ
Сообщений: 9,168
Репутация: 1811

icq: 7934250
skype: i2x0,5
По умолчанию

когда у Вас есть несколько решений, это как 35 лет - такой чудесный возраст, когда я мог встречаться со студентками и их мамами
__________________
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа на одном листе с данными из LISTBOX, данные на другом листе konstantin1990 Microsoft Office Excel 3 22.07.2013 15:15
Дублирование ячеек, диапазона ячеек на новом листе ukrman Microsoft Office Excel 2 03.02.2012 01:06
1. Сформировать на листе Excel столбец, состоящий из 30 элементов, случайных чисел ... rnboy Microsoft Office Excel 12 19.12.2010 15:21
Формирование квитанции на новом листе ddv.code Microsoft Office Excel 3 21.10.2010 09:29
ячейка на одном листе, в которую необходимо подставлять данные из столбца, находящегося на другом листе Ирина Водолагина Microsoft Office Excel 4 05.03.2009 00:38


21:06.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.