Arhn - архитектура программирования

Как дублировать строки на основе содержимого ячейки (ячейка содержит данные, разделенные точкой с запятой)

Как дублировать строки на основе содержимого столбца B. Мне нужна отдельная строка для каждого «Человека» в ячейке?

Это моя исходная таблица (я не могу извлечь данные каким-либо другим способом):

введите здесь описание изображения

Это моя цель:

введите здесь описание изображения

Спасибо за вашу помощь!

excel excel-formula vba extra
24.06.2017

  • Вы можете сделать это просто с помощью Power Query или Get and Transform, доступных начиная с Excel 2010. Вы просто используете инструмент, чтобы разделить столбец «Контакты» на точку с запятой; затем разверните эти столбцы. Возможно, вам придется удалить лишний столбец и переименовать некоторые из них. Если вам нужно решение VBA, просто запишите макрос, пока вы это делаете. 24.06.2017

Ответы:


1

Вы можете реализовать цикл, который будет проходить через каждую из строк под заголовком. Находясь в каждой строке, проверьте содержимое в столбце B и выполните следующую функцию, которая разделит содержимое на основе символа «;».

Split(Cells(row,"B"),";")

Это вернет массив значений. Например [Person A, Person B, Person C] Теперь, если этот массив имеет более 1 значения, перейдите к вставке новой строки для каждого значения в массиве после 1-го значения.

Rows(row)EntireRow.Insert

Удачи!

24.06.2017

2

Вы не предоставили никакого кода, поэтому вот некоторая начальная концепция:

Используйте цикл do until .cells(i,2).value = ""

Используйте newArray = Split(Cells(i,2).Value, ";"), чтобы получить массив с каждым именем человека в нем.

Используйте for x = lbound(newArray) to ubound(newArray), чтобы вырезать начальную строку, а затем вставьте x раз и выполните cells(i+x,2).value = newArray(x).value

наконец, не забудьте добавить значение ubound(newarray) к i, иначе вы застрянете в бесконечном цикле поиска одного человека и добавления строки.

24.06.2017

3

Предполагая, что ваши данные находятся в Sheet1, а желаемый результат должен отображаться в Sheet2, следующий код должен помочь:

Sub SplitCell()
    Dim cArray As Variant
    Dim cValue As String
    Dim rowIndex As Integer, strIndex As Integer, destRow As Integer
    Dim targetColumn As Integer
    Dim lastRow As Long, lastCol As Long
    Dim srcSheet As Worksheet, destSheet As Worksheet

    targetColumn = 2 'column with semi-colon separated data

    Set srcSheet = ThisWorkbook.Worksheets("Sheet1") 'sheet with data
    Set destSheet = ThisWorkbook.Worksheets("Sheet2") 'sheet where result will be displayed

    destRow = 0
    With srcSheet
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        For rowIndex = 1 To lastRow
            cValue = .Cells(rowIndex, targetColumn).Value 'getting the cell with semi-colon separated data
            cArray = Split(cValue, ";") 'splitting semi-colon separated data in an array
            For strIndex = 0 To UBound(cArray)
                destRow = destRow + 1
                destSheet.Cells(destRow, 1) = .Cells(rowIndex, 1)
                destSheet.Cells(destRow, 2) = Trim(cArray(strIndex))
                destSheet.Cells(destRow, 3) = .Cells(rowIndex, 3)
            Next strIndex
        Next rowIndex
    End With
End Sub
24.06.2017
Новые материалы
Коллекции публикаций по глубокому обучению
Последние пару месяцев я создавал коллекции последних академических публикаций по различным подполям глубокого обучения в моем блоге https://amundtveit.com - эта публикация дает обзор 25..
Представляем: Pepita
Фреймворк JavaScript с открытым исходным кодом Я знаю, что недостатка в фреймворках JavaScript нет. Но я просто не мог остановиться. Я хотел написать что-то сам, со своими собственными..
Советы по коду Laravel #2
1-) Найти // You can specify the columns you need // in when you use the find method on a model User::find(‘id’, [‘email’,’name’]); // You can increment or decrement // a field in..
Работа с временными рядами спутниковых изображений, часть 3 (аналитика данных)
Анализ временных рядов спутниковых изображений для данных наблюдений за большой Землей (arXiv) Автор: Рольф Симоэс , Жильберто Камара , Жильберто Кейрос , Фелипе Соуза , Педро Р. Андраде ,..
3 способа решить квадратное уравнение (3-й мой любимый) -
1. Методом факторизации — 2. Используя квадратичную формулу — 3. Заполнив квадрат — Давайте поймем это, решив это простое уравнение: Мы пытаемся сделать LHS,..
Создание VR-миров с A-Frame
Виртуальная реальность (и дополненная реальность) стали главными модными терминами в образовательных технологиях. С недорогими VR-гарнитурами, такими как Google Cardboard , и использованием..
Демистификация рекурсии
КОДЕКС Демистификация рекурсии Упрощенная концепция ошеломляющей О чем весь этот шум? Рекурсия, кажется, единственная тема, от которой у каждого начинающего студента-информатика..