在Excel中转​​换数据

我有格式的数据：

NAME_1 : "NAME" FIELD_1 : BOOL FIELD_3 FIELD_3 ... FIELD_40 NAME_2 FIELD_1 ... FIELD_40 ... NAME_276 FIELD_1 ... FIELD_40 

我想用基于FIELD_i值的列将其转换为基于NAME_j数据的行。 我已经尝试使用下面的macros，但它不完全按照我想要的。 （原始数据在Sheet1 ）

 Public Sub toTable() Dim rowCountR As Variant rowCountR = Worksheets("Sheet1").Range("A1").Rows.Count For r = 2 To rowCountR Step 1 If StrComp(Worksheets("Sheet1").Cells(r, 2).Value, "NAME") = 0 Then Worksheets("Sheet2").Cells(Worksheets("Sheet2").Range("A1").Rows.Count, 1).Value = Worksheets("Sheet1").Cells(r, 1).Value Else For n = 2 To 41 Step 1 Worksheets("Sheet2").Cells(r, n).Value = Worksheets("Sheet1").Cells(r, 2) Next End If Next End Sub 

我将如何处理？ 我打开使用python或其他languges来解决这个问题，任何想法是受欢迎的。

Answer 1

这是一种暴力，但我认为它应该在VBA中工作。

 Sub foo() Dim dataRange As Range Dim r As Range Dim i As Long Dim myNames As Object Dim nm As Variant Set myNames = CreateObject("Scripting.Dictionary") Set dataRange = Range("A1:B1", Range("A1").End(xlDown)) ' Collect the key/value pairs, organized by the "Name" field, in to a dict. For Each r In dataRange.Rows If r.Cells(1).Value Like "Name_*" Then ' Add a new entry to our myNames dict Set myNames(r.Cells(1).Value) = CreateObject("Scripting.Dictionary") nm = r.Cells(1).Offset(0, 1).Value myNames(r.Cells(1).Value)("Name") = nm ' Put the Field1-Field40 values in the dict as well: myNames(r.Cells(1).Value)("FieldValues") = Application.Transpose(r.Cells(1).Offset(1, 1).Resize(40, 1).Value) End If Next ' Write the table header to the sheet dataRange.Clear Range("A1").Value = "Name" For i = 1 To 40 Range("A1").Offset(0, i).Value = "Field_" & CStr(i) Next ' Write the original data in to the new table: For i = 0 To UBound(myNames.Keys()) nm = myNames.Keys()(i) Range("A2").Offset(i).Value = myNames(nm)("Name") Range("A2").Offset(i, 1).Resize(1, 40).Value = myNames(nm)("FieldValues") Next End Sub