在数据对齐1.1+数据对齐2.2

基于数据对齐1.1的结果，把数据对齐2.2的程序修改下，得到规整的14个通道的数据

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


Debug.Print i & "__" & j


End If
Next
Next


End Sub