Вопрос : Клетка и разделение Unmerge в рядки

Hi дорогие специалисты,

I искали на некоторое время но не smogли положить мой перст на готовые данные по прикрепленного листа answer.
In организованы в рядок, несколько клеток data.
работать с тем данные те значения должны быть unmerged и spllit в колонку rows.
The уместную будет B. Оно имеет шкентель в данных по колонки слитых G. в других клетках можно unmerged слишком если то упростило бы вещи упование, то bit.
I, котор пример делает вещи ясным, и также то это будет possible.
Thanks. class= " lastRow
>Attachments " имени " class= class= " значение "
>
class= " fileInfo "
title= " " filename class= " tobeunmerged.xls (23 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
Слияние к unmerge example
class=
>
class=

Ответ : Клетка и разделение Unmerge в рядки

Если допустить, что вы имейте рубрики в рядке 1 для всех колонок вы автомобиль около, это кажет, что работать.  Оно «unmerges» все клетки.  (Клетки поистине не слиты в чувстве Эксел, конечно…)

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:

Sub RedoList ()
    
    Тусклое LastR как длиной, LastC как длиной
    Тусклое arr как вариант
    Тусклый r как длиной, c как длиной
    Тусклое CellContents как вариант
    Тусклое MaxRows как длиной
    Тусклое DestR как длиной
    
    С ActiveSheet
        LastR =. Клетки (. Rows.Count, 1).End (xlUp). Рядок
        LastC =. Клетки (1. Columns.Count). Конец (xlToLeft). Колонка
        arr =. Ряд (. Клетки (1, 1). Клетки (LastR, LastC)). Значение
    Конец с
    
    Worksheets.Add
    DestR = 1
    
    Для r = 1 к UBound (arr, 1)
        MaxRows = 0
        Для c = 1 к UBound (arr, 2)
            Если "" arr (r, c <> ) после этого
                CellContents = разделило (arr (r, c), Chr (10))
                Клетки (DestR, c). Измените размеры (UBound (CellContents) + 1, 1) = Application.Transpose (CellContents)
                Если (UBound (CellContents) + 1) > MaxRows после этого MaxRows =, то (UBound (CellContents) + 1)
            Закончитесь если
        Затем
        DestR = DestR + MaxRows
    Затем
    
    «Сделанное» MsgBox
    
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us