Слияние нескольких строк из одного столбца, разделенных нечетными данными строки в другом столбце

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

При этом я открыт для использования Excel, Access или SQL (SSMS), если любой из них способен выполнить следующую задачу.

Пожалуйста, предоставьте подробное руководство, если ваше решение использует Excel, Access или VBA.

Row Unique ID Text __________________________________________________________________ 1 555 The Quick Brown 2 Fox Jumped 3 Over The Lazy Dog 4 321 Doe Re Me 5 Fa So La 6 Ti Doe 

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

 Row Unique ID Text __________________________________________________________________ 1 555 The Quick Brown Fox Jumped Over The Lazy Dog 2 321 Doe Re Me Fa So La Ti Doe 

Я по существу желаю, чтобы строки текста были объединены для уникального идентификатора, а затем, когда он распознает новый уникальный идентификатор, он объединит соответствующие текстовые ячейки и так далее.

Возможно, это будет более легкое решение, но это то, что я мог бы придумать,

Шаг 1: Выберите столбец A и с помощью перейдите к специальному выбору всех пустых ячеек и напишите в строке формул = A2, которая должна заполнить все пустые ячейки идентификаторами.

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

Шаг 2: В ячейке C2 напишите эту формулу = IF (A2 <> A1, B2, C1 & CHAR (10) & B2) и перетащите по мере необходимости.

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

Шаг 3: Запишите эту формулу в ячейку D2 = IF (A2 <> A3,1, "") и перетащите, как требуется. введите описание изображения здесь

Шаг 4: Отфильтруйте значения с 1 в столбце D и примените текст обложки.

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

Создайте простой отчет в Access.

Для элемента управления (TextBox), удерживающего строку, выберите «Свойства» и установите « Скрыть дубликаты» : Да.

Вы можете использовать код VBA для слияния ячеек на основе значений в текстовом столбце

1.) Добавьте новый столбец и примените формулу = A1 и перетащите ее до строки # 6

2.) В VBEditor используйте приведенный ниже код в цикле

 if Range("C" & i).Value = "0" Then Range("A" & i - 1, "A" & i).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Application.DisplayAlerts = False Selection.Merge Application.DisplayAlerts = True end if 

Нажмите здесь для получения изображения excel. @Mitchell задает столбец D формулой: = B1, = B2, = B3 … = B6 и использует приведенный ниже код в редакторе vbe.

 Sub check() Dim sht As Worksheet Dim j As Integer Set sht = ThisWorkbook.Worksheets("Sheet1") Sheets("Sheet1").Select j = 0 For i = 1 To 6 If Range("D" & i).Value = "0" Then Range("A" & i - 1, "A" & i).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("B" & i - 1, "B" & i).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Application.DisplayAlerts = False Selection.Merge Application.DisplayAlerts = True Else j = j + 1 Range("A" & i).Select ActiveCell.FormulaR1C1 = j End If Next i MsgBox "Done" End Sub 
  • Таблица Excel для доступа к запросу, слишком мало параметров. ожидаемый 1
  • Как конвертировать дату Excel, хранящуюся как nvarchar в SQL?
  • Что случилось с моей операцией SQL?
  • Как создать лист сопоставления содержимого огромного количества данных, хранящихся на локальном сервере?
  • Анализ синтаксического листа в C #, вставка новых значений в базу данных
  • SQL Query Excel - возвращает «0», если значение не найдено
  • SqlBulkCopy не импортирует данные из Excel
  • Таблица Excel в SQL
  • Как запустить SQL-запрос в Powerbuilder и показать результаты в Excel?
  • Сортировка по дате в Excel при импорте из служб Reporting Services
  • почему ADODB вставляет значения NULL при обновлении?
  • Interesting Posts
    Давайте будем гением компьютера.