Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Цикл расчетов в таблице https://www.cyberforum.ru/vba/thread1746947.html
Имеется файл, где во второй таблице (правее) производятся расчеты с делением (в колонках AE, AH, AK, AN и далее) через формулы. Т.к. данные все время подгружаются в файл, формулы прописаны на...
Поиск значения и переход к ячейке, VBA VBA
Доброго времени суток Я задолбалась не могу никак осуществить поиск по книге Excel такой, что первая ячейка с нужным значением активировалась бы. Задача: книга, в книге листы с названиями...
Скопировать только отчество из другого листа в другой где в одной ячейке находится ФИО VBA
Имеется цикл, который разбивает ФИО кот. находится в одной ячейке, нужно чтобы в другой лист копировались только отчество For i = 4 To 65536 Sheets(2).Cells(i - 1, 1).Resize(, 3) =...
VBA Где ошибка? Вот задание: 1. Mult передается массив и количество элементов, для которых нужно найти произведение. Составить программу вычисления значения функции z=произведение X(1 to 12) + произведение Y(1 to... https://www.cyberforum.ru/vba/thread1746881.html
VBA Как быстро удалять лишние строки? https://www.cyberforum.ru/vba/thread1746854.html
На листе есть структурированные данные: столбцов 40-250 (иногда больше), строк вообще 100 000-140 000 (и очень часто может быть больше). Я нарисовал функцию, которая выбирает уникальные строки,...
Скопировать столбец ФИО из одного листа на другой лист с разбивкой на 3 ячейки VBA
Необходимо копировать столбец ФИО из одного листа на другой лист с разбивкой на 3 ячейки Здесь копируется и разбиваются только две ячейки Sheets(2)..Resize(, 3) =...
Формы VBA . (TextBox и "точка") VBA
Всем привет )) У меня на форме есть четыре TextBox и несколько кнопок , включая кнопку "точка". Мне надо сделать так , что при нажатии на кнопку и на TextBox , точка добавлялась только в один...
VBA Как зафиксировать размер изображения в пикселях Установил изображение на рабочий лист excell, на изображении присутствую части этого изображения ,которые используются как кнопки, на листе они подогнаны так,что кажется будто это 1 картинка.Проблема... https://www.cyberforum.ru/vba/thread1746714.html
VBA Как сделать макрос распределения? https://www.cyberforum.ru/vba/thread1746508.html
Неплохо разбираюсь в VBA, но вот столкнулся с задачей. Есть таблица: яичница омлет блины овсянка сырники стейк из курицы стейк из свинины стейк из телятины продукт вес вес вес вес вес вес вес вес...
VBA 1 кнопкой на двух листах Собственно вычисляются значения в таблицах но на 1 листе, как сделать чтобы кнопками с 1 листа подсчитывались и очищались значения сразу на 2 листах. Прилагаю excel документ, в нем уже все... https://www.cyberforum.ru/vba/thread1746505.html
Alex77755
11001 / 3455 / 594
Регистрация: 13.02.2009
Сообщений: 10,272
28.05.2016, 17:57 0

Разделить данные в нескольких ячейках на строки

28.05.2016, 17:57. Просмотров 939. Ответов 7
Метки (Все метки)

Лучший ответ Сообщение было отмечено mfamgn как решение

Решение

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
Option Explicit
 
Sub qwert()
Dim r!, c!, m(), lr!, lc!, rn!, c1!, c2!, rz(), ri!, u1, u2, ii
c1 = 7 '
c2 = 8 '
With Лист1
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    lc = .Cells(1, .Columns.Count).End(xlToLeft).Column
    m = .[a1].Resize(lr, lc).Value
    For r = 1 To UBound(m): lr = lr + UBound(Split(m(r, c1), ";")): Next
    ReDim rz(1 To lr, 1 To lr)
    For r = 1 To UBound(m)
        If InStr(1, m(r, c1), ";") > 0 Then
            u1 = Split(m(r, c1), ";")
            u2 = Split(m(r, c2), ";")
            If UBound(u1) <> UBound(u2) Then MsgBox "В строке " & r & " несоответсвие", vbCritical, ""
            For ii = 0 To UBound(u1)
                If Len(u1(ii)) > 0 Then
                    ri = ri + 1
                    For c = 1 To lc
                        rz(ri, c) = m(r, c)
                    Next c
                    rz(ri, c1) = u1(ii)
                    rz(ri, c2) = u2(ii)
                End If
            Next ii
        Else
            ri = ri + 1
            For c = 1 To lc
                rz(ri, c) = m(r, c)
            Next c
        End If
    Next r
    .[a1].Resize(lr, lc) = rz
End With
End Sub


Вернуться к обсуждению:
Разделить данные в нескольких ячейках на строки
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2016, 17:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вывод информации при проверке идентичности значений в нескольких ячейках/столбцах
Здравствуйте, Подскажите как правильно написать формулу по сабжу. На 2 листе есть база с...

Автозапуск макроса(одного из нескольких) при определённых значениях в двух ячейках
Здравствуйте!Необходим макрос,описание задачи в файле.

Одинаковые данные в 2-3 ячейках
Помогите ну совсем чайнику в Excel. Необходимо что бы в двух, трёх ячейка отображались одинаковые...

Сопоставить данные в ячейках
Привет. Приложил файлик. Столбец А разные фразы, столбец B числовое значение. В столбце D те...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.