макрос для перестановки данных

Question

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

Вот некоторые примеры данных.

      A                        

1 Наименование
2 описание
3 описание
4 описание
5 описание
6 ID #: 56284
7 Количество на складе: 34
8 Увеличение и настройка

      B

1 Имя
2 описания
3 описания
4 описания
5 описания
6 Номер ID: 56284
7 Количествона складе: 50
8 Увеличение и настройка

И мне хотелось бы, чтобы на выходе было что-то вроде этого (если возможно, на sheet2, начиная с ячейки B2):

B    C    E

B - строка 1 C - строка 2 3 4 и 5 - объединенная E - ТОЛЬКО строка 7 Стоимость акций IE 50

В одной электронной таблице было бы 4 столбца и 8 строк, которые мне пришлось бы переставить.Делая 32 всего.

Было бы здорово автоматизировать это, поэтому любая помощь будет принята с благодарностью.

Answer 1

Позвольте мне прояснить мое понимание.Для каждого столбца требуется следующий формат данных:

    A                                              A
1   Name                                       1   Name
2   Desc1                                      2   Desc1; Desc2; Desc3; Desc4
3   Desc2                      On sheet 2      3   50
4   Desc3                   --------------->
5   Desc4
6   Id#: 56284
7   Quantity in Stock: 50
8   Zoom in and configure

В этом случае вы можете использовать следующий код.Предполагается, что ваши данные в листах от А1 до D8.

Sub FormatData()
    Dim col As Integer

    For col = 1 To 4
        With Worksheets(2)
           .Cells(1, col) = Cells(1, col) //Get name
           .Cells(2, col) = Cells(2, col) & "; " & Cells(3, col) & "; " & Cells(4, col) & "; " & Cells(5, col) //Concatenate descriptions into single string
           .Cells(3, col) = Cells(7, col) //Get quantity in stock
        End With
    Next col
End Sub