macros重新安排数据

我一直在试图编写一个macros来重新排列我所希望的输出的股票表的行和列中的单元格。 幸运的是，股票表通常每次都是相同的（不同的名称和价值），而期望的结果是相同的格式。

这里是一些示例数据。

A 

1名称
2说明
3说明
4描述
5说明
6 ID＃：56284
7库存数量：34
8放大和configuration

  B 

1名称
2说明
3说明
4描述
5说明
6 ID＃：56284
7库存数量：50
8放大和configuration

我想输出进入这样的事情（如果可能的话sheet2开始单元格B2）：

 BCE 

B是行1 C是行2 3 4和5组合E是行7股票价值IE 50

在一个电子表格上将有4列，我将不得不重新排列8行。总共32。

这将是很好的自动化，所以任何帮助将不胜感激。

Answer 1

让我澄清我的理解。 对于每一列你想要以下的数据格式：

  AA 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 

如果是这种情况，你可以使用下面的代码。 它假定您的数据在Sheet 1的A1到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