Макрос для сложного транспонирования

@maxdddca · Регистрация: 02.04.2021

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Нужно цифры через запятую в ячейке преобразовать в столбик по одной. Разделитель запятая. Результат надо записать в те же самые ячейки. Пример по вложении.
Помогите пожалуйста макросом.

@Catstail · 05.09.2021, 19:28

Как я понял, из одной ячейки, содержащей, к примеру "5,6,7", должно получиться три ячейки в текущем столбце, содержащие "5", "6" и "7"? т.е. после преобразования количество строк должно возрасти?

@Narimanych · 05.09.2021, 19:34

Сообщение от Catstail

преобразования количество строк должно возрасти

Нет.там идет блок ячеек в котором "5,6,7 "повторяется в 3 раза ....

@maxdddca · 05.09.2021, 19:35 **[ТС]**

Narimanych, Ура, все верно, то что надо. Спасибо вам и всем остальным за помощь.

@Narimanych · 05.09.2021, 19:36

maxdddca,

@maxdddca · 05.09.2021, 19:37 **[ТС]**

Сообщение от Catstail

Как я понял, из одной ячейки, содержащей, к примеру "5,6,7", должно получиться три ячейки в текущем столбце, содержащие "5", "6" и "7"? т.е. после преобразования количество строк должно возрасти?

Вообще изначально да. Но перед этим я запускаю 2 макроса, первый считает количество чисел между запятыми, а второй делает столько же копий строк, поэтому количество строк уже 'готовое'. Теперь надо подумать, как объединить эти макросы в 1 ))) Но это уже дело отдельной темы, если сам не смогу

@Catstail · 05.09.2021, 20:57

Как вариант (без вставки строк):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub parse(rg As Range)
Dim coll As New Collection
 
    col& = rg.Column
    Row& = rg.Row
    Set sh = rg.Parent
    
    For Each a In rg
        
        txt$ = a.Value + ","
        
        tmp$ = ""
        
        For i% = 1 To Len(txt$)
            s$ = Mid$(txt$, i%, 1)
            If s$ = "," Then
               If Len(tmp$) > 0 Then coll.Add tmp$
               tmp$ = ""
            Else
               tmp$ = tmp$ + s$
            End If
        Next i%
        
    Next
    
    For Each a In coll
        sh.Cells(Row&, col&).Value = a
        Row& = Row& + 1
    Next
    
    MsgBox "OK"
    
End Sub
 
 
Sub test()
 
    parse Range("C3:C6")
 
End Sub

@maxdddca · 05.09.2021, 22:16 **[ТС]**

Catstail, большое спасибо вам тоже

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Catstail Супер-модератор 38226 / 21158 / 4314 Регистрация: 12.02.2012 Сообщений: 34,773 Записей в блоге: 14
	05.09.2021, 19:28
	Как я понял, из одной ячейки, содержащей, к примеру "5,6,7", должно получиться три ячейки в текущем столбце, содержащие "5", "6" и "7"? т.е. после преобразования количество строк должно возрасти? 0

@maxdddca 1 / 1 / 0 Регистрация: 02.04.2021 Сообщений: 43
	05.09.2021, 19:35 [ТС]
	Narimanych, Ура, все верно, то что надо. Спасибо вам и всем остальным за помощь. 0

@Narimanych 2752 / 1726 / 779 Регистрация: 23.03.2015 Сообщений: 5,452
	05.09.2021, 19:36
	maxdddca, 1

@maxdddca 1 / 1 / 0 Регистрация: 02.04.2021 Сообщений: 43
	05.09.2021, 22:16 [ТС]
	Catstail, большое спасибо вам тоже 1