Excel：重新定位excel中的数据

Question

我有一个客户列表的编辑，我想将其格式化为Excel表格格式。如上图所示，是否有办法从客户列表中提取数据并将其插入表中？ 我无法手动完成，因为客户太多。

有没有可以做到的附加功能或公式？

Answer 1

既然你是完全新的VBA我给你一条腿，这一次，但通常你需要出示你有什么先做自己获得任何援助。

快速介绍VBA;按Alt + F11调出VBE（Visual Basic编辑器），进入插入并点击模块。粘贴下面的代码，然后修改它，添加剩余的数据点并计算出行/列偏移量。您可以按F5运行代码。

Sub RePosition() 

Dim rng As Range, c As Range, dest As Range 

' Set the range to look in for "CustomerNo:" 
Set rng = ActiveSheet.Range("A:A") 
' Set the cell where you want to start putting you re-positioned data 
Set dest = Range("I2") 

' Loop through each cell in you range 
For Each c In rng 
    ' If the cell = "CustomerNo:" we know it is a new set 
    ' of data 
    If c.Value = "CustomerNo:" Then 
     ' Based from the cell containing "CustomerNo:" we can 
     ' pick up each data point by offsetting row and column 
     ' and place it in our destination cell (offsetting dest 
     ' as well) 
     c.Offset(0, 1).Copy dest 
     c.Offset(1, 1).Copy dest.Offset(0, 1) 
     c.Offset(2, 1).Copy dest.Offset(0, 2) 
     c.Offset(2, 3).Copy dest.Offset(0, 3) 
     ' etc for each of the data points 


     ' Set the dest to the row below 
     Set dest = dest.Offset(1, 0) 
    End If 
Next c 

End Sub 

这应该让你开始，给你如何对待它，如果你运行它是你应该得到的客户，公司，名称和地址渡过难关，你应该能够推测的一个想法自己休息一下。