数据对齐2.1

对于前面4个id，11列数据，采样率一致，而且数据本身的数量也一样，基于这样的规律，直接把数据的空格去掉就好了

 

Sub 对齐()


n = Cells(Rows.Count, 2).End(xlUp).Row

j = 2

For i = 2 To n
If Cells(i, 2) <> "" Then
Cells(j, 16) = Cells(i, 1): Cells(j, 17) = Cells(i, 2):
j = j + 1
End If
Next

For m = 3 To 12
j = 2
   For i = 2 To n
If Cells(i, m) <> "" Then
Cells(j, m + 15) = Cells(i, m):
j = j + 1
End If
Next
Next


End Sub