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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.07.2019, 20:50   #11
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

замените на это:
Код:
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
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 11.07.2019, 21:01   #12
Dan99
 
Регистрация: 11.07.2019
Сообщений: 8
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
замените на это:
Попробую, но вроде решение найдено в прошлом посте, или есть разница?
Dan99 вне форума Ответить с цитированием
Старый 11.07.2019, 21:12   #13
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

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

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

Всем большое спасибо за столь быстрый отклик, задача решена.
Dan99 вне форума Ответить с цитированием
Старый 12.07.2019, 01:14   #15
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

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


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа на одном листе с данными из 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 14:21
Формирование квитанции на новом листе ddv.code Microsoft Office Excel 3 21.10.2010 09:29
ячейка на одном листе, в которую необходимо подставлять данные из столбца, находящегося на другом листе Ирина Водолагина Microsoft Office Excel 4 04.03.2009 23:38