如何将表转换为多列

Question

我有大量的电子表格，它们的格式类似于第一个表(但具有更多的记录和不同数量的记录)。我需要让它接受所有正确的信息，但格式像导入到Access的第二个表。这可以做到吗？谢谢。

..........part 1第2部分第3部分第4部分

测试1..5

测试2...........x...5

测试3..2...x...x...x

测试4.......................x...x

测试5.x.............................2

测试1第1部分5

测试2第2部分x

测试2第3部分5

测试3第1部分2

测试3第2部分x

测试3第4部分x

测试4第3部分x

测试4第4部分x

测试5第1部分x

测试5第4部分2

Answer 1

这里有一种方法。您还可以使用For Each循环for the Ranges。

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