如何使用动态标头转换来自excel的数据

Question

我最近收到了一些CSV文件，需要重新安排信息。

目前我有这个：

但我还有30多个CSV文件，每个文件都有> 130K行。

这个想法是为“操作系统名称”设置一个分隔符，以指示信息何时应该用于下一个单元格。 每个项目有56到80个标题，它们有时会有所不同，这对我来说很难。

这是我到目前为止的代码：

Sub testing() 
  Dim c As Range, Rng As Range, cDest As Range 
  Dim x As Long 
  Dim shOrig As Worksheet, shDest As Worksheet 

  Set shOrig = Sheets("Sheet2") 
  Set shDest = Sheets("Sheet3") 
  Set Rng = shOrig.Range("B1:B33100") 
  Set cDest = shDest.Range("A2") 
  x = 0 

  For Each c In Rng 
    If c.Value <> "" Then 
      cDest.Offset(x, 0).Value = c.Value 
      x = x + 1 
    End If 
  Next c 
End Sub