创建excel宏以格式化XLS文件中的数据

我正在创建一个宏来清理一些软件输出到XLS中的原始数据，使其更具可读性和可过滤性等

数据的格式如下（约有25k行的格式与此相同：

我希望它看起来像

我希望stackoverflow的巫师能帮助我

---

谢谢。

假设您的数据在第一张表中，创建第二张表，然后执行以下操作：

Option Explicit

Sub cleanUpData()
  Dim sht2 As Worksheet: Set sht2 = Sheets(2)

  Dim r As Integer, r2 As Integer: r2 = 2
  With Sheets(1):
    sht2.Range("A1:J1").Value = .Range("A1:J1").Value
    For r = 2 To .Cells(.Rows.Count, "A").End(xlUp).row Step 5:
      sht2.Range("A" & r2 & ":J" & r2).Value = .Range("A" & r & ":J" & r).Value
      sht2.Cells(r2, "J").Value = .Cells(r + 1, "A").Value & " " & .Cells(r + 1, "B").Value
      r2 = r2 + 1
    Next
  End With

  sht2.Columns("A:J").EntireColumn.AutoFit

End Sub

---

欢迎来到StackOverflow。请注意，这不是一个免费的代码编写服务。然而，我们渴望帮助其他程序员（和有志者）编写自己的代码。请阅读上的帮助主题。您可能还希望在这样做的同时获得一个徽章。之后，请使用您迄今为止编写的VBA代码更新您的问题，以完成您希望完成的任务。我们将在这里等您。准备好帮助您完成代码。