如何将表转换为多列

我有大量的电子表格格式化，像这样的第一张表（但有更多的logging和不同数量的logging）。 我需要使所有正确的信息，但格式化它像导入到Access的第二个表。 可以这样做吗？ 谢谢。

……….第1部分第2部分第3部分第4部分
testing1..5
testing2 …………. x ……… 5
testing3..2 ……… x ……………… x
testing4 ………………….. x ……… x
testing5..x ………………………… 2

testing1第1部分5
testing2第2部分x
testing2第3部分5
testing3部分1 2
testing3第2部分x
testing3第4部分
testing4第3部分
testing4第4部分
testing5第1部分
testing5第4部分2

Answer 1

这是一个办法。 您也可以使用范围的每个循环。

Dim workingRange1 As Range, workingRange2 As Range Set workingRange1 = Sheets("Sheet1").UsedRange Set workingRange2 = Range("PutStuffHere") For i = 0 to workingRange1.Rows.Count - 2 For j = 0 to workingRange1.Columns.Count - 2 If Not IsEmpty(workingRange1.Cells(i+1, j+1)) workingRange2.Offset(0, 0) = workingRange1.Cells(i+1, 1) workingRange2.Offset(0, 1) = workingRange1.Cells(1, j+1) workingRange2.Offset(0, 2) = workingRange1.Cells(i+1, j+1) End If Set workingRange2 = workingRange2.Offset(1,0) Next j Next i