有没有办法合并分布在多行的Excel数据？ 有没有更好的方法来表示这些数据？

给了我一个类似于下面的数据集。 我不是像这样pipe理数据集的专家。

Col1 Col2 Col3 Col4 ID_ONE data1 data data data2 data3 ID_TWO data data data data data data ID_THREE data data data 

数据是在Excel表格中提供的，理想的情况是所有的数据都在一行中。 但他们提供的方式，有额外的行他们需要额外的数据（每行一个项目）。 为了分析和删除不必要的数据，我需要它们在一行中。 我已经看到了在Excel上连接数据的一些方法，但是效率不高，因为它们都有不同的行数。 我想额外的行只在一个单元格内，但有一个换行符，如下所示：

 data1 data2 data3 

并不是

 data1 data2 data3 

是否有一个Web应用程序或其他方式可以看到表示数据，以便于分析？ 我试图将其导入到Access，但它只是使每一行都成为一个新的条目。

谢谢。

Answer 1

这显示了从多行到一行数据收集和分发的基础知识。

 Sub collect() Dim rw As Long, cl As Long, vDATAs As Variant With Worksheets("Sheet1") With .Cells(1, 1).CurrentRegion ReDim vDATAs(.Columns.Count - 1) For rw = .Rows.Count To 2 Step -1 If IsEmpty(.Cells(rw, 1)) Then For cl = 2 To .Columns.Count If Not IsEmpty(.Cells(rw, cl)) Then _ vDATAs(cl - 2) = .Cells(rw, cl) & _ IIf(Len(vDATAs(cl - 2)), Chr(10) & vDATAs(cl - 2), vbNullString) Next cl .Rows(rw).EntireRow.Delete Else For cl = 2 To .Columns.Count If Not IsEmpty(.Cells(rw, cl)) Then _ .Cells(rw, cl) = .Cells(rw, cl) & _ IIf(Len(vDATAs(cl - 2)), Chr(10) & vDATAs(cl - 2), vbNullString) vDATAs(cl - 2) = vbNullString Next cl End If Next rw End With End With End Sub 

^{Sub收集前的 采样数据Sub collect（）后的采样数据}

我不确定这种方法是否是保留数据的最佳方法，但是我不太了解它的用途以及当前的检索方法以提供build议。