строка excel разделяется запятыми

У меня есть файл xls со значениями:

ID Value 1 value1 1 value2 1 value3 2 value1 2 value2 3 value1 3 value2 

и т.д

Я хотел бы преобразовать это (создать новый лист)

 ID Values 1 value1,value2,value3 2 value1,value2 3 value1,value2,value3 

В принципе, я хотел бы, чтобы все строки имели одинаковый идентификатор, чтобы объединить все значения, разделенные запятой.

Благодаря,

Попробуйте под кодом:

 Sub sample() Dim i As Integer, j As Integer Dim temp As String Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=Range("C1"), unique:=True Dim lastRow As Long lastRow = Range("C65000").End(xlUp).Row j = 1 For i = 2 To lastRow Do Until Cells(j, 2) = "" If Trim(Cells(j, 1)) = Trim(Cells(i, 3)) Then temp = temp & "," & Cells(j, 2) End If j = j + 1 Loop Cells(i, 4) = temp temp = "" j = 1 Next End Sub 

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

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

  • openpyxl создает сломанную книгу
  • читать поврежденный файл excell с помощью NPOI
  • Чтение значений флажков xlsx в Java
  • как получить данные ячейки со специальными символами из xlsx reader
  • Как скопировать данные из файла xlsx в текстовый файл
  • Узел xlsx модуль получает заголовки файла excel
  • Как сохранить фрейм данных R в файл Excel с определенными ячейками жирным шрифтом?
  • EXCEL xlsm сохранить как xlsx
  • SQL Server - Как удалить несколько строк столбцов без нарушения остальной части записи
  • Почему XSLX-файл загружается как XLS только в IE?
  • Форматирование столбцов от R до Excel (с пакетом = xlsx), когда вы заранее не знаете индексы столбцов (есть ли лучший способ)?
  • Interesting Posts

    VBA: как проверить, работает ли Outlook в автономном режиме, а если нет, то переведите его в автономный режим

    Столбец SSAS – извлечение из иерархии parent-child только листа и первого родителя, а не всех уровней

    выборочная проверка данных в Excel для значения alpha-numeric-alpha

    MS Excel – оператор if (несколько аргументов)

    Ключ Ошибка при попытке сохранить в openpyxl – Файл Excel Corrupts

    Добавление функции массива Trailing Twelve Months в код VBA

    Использование XLLoop для java

    Range.End () Confuzzlement

    Как применить условное форматирование к дате на основе текста в смежной и сегодняшней дате?

    добавление excel в .docx с использованием docx4j (или любого другого api)

    Копирование формулы Excel и контроль относительной ссылки

    excel vba ADODB открывает несколько наборов записей, дает ошибку времени выполнения '-2147217904 (80040e10) Ошибка автоматизации

    Проблема форматирования даты CFSpreadsheet

    VBA Условное сохранение как с датой Добавить

    Суммируйте значения нечетных ячеек, если четные ячейки не пусты

    Давайте будем гением компьютера.