VBA每日一练（7），如何用VBA 将1行转化为 多行多列的矩阵， 和反过来矩阵转化为1行

问题和数据源

1 数据源

• 左上角：a1
• 第1行：1行数据的原始数据源，生成了下面的矩阵
• 第2行：第2行，是用下面的矩阵生成的
• 第3行---第N行，这4列的矩阵

3401	1	4	a1	3412	1	4	b1	3411	1	4	a2	3421	1	4
3401	1	4	a1	3412	1	4	b1	3411	1	4	a2	3421	1	4
3401	1	4	a1
3412	1	4	b1
3411	1	4	a2
3421	1	4	b2
3410	1	4	a2
3407	1	5	b2
3408	1	5	a3
3409	1	5	b3
3414	1	5	a3
3415	1	5	b3
3416	1	5	a4
3315	1	7	b4
3304	1	19	a4
3317	1	19	b4
3316	1	19	a5
3318	1	19	b5

 

2 第一版代码（很挫，循环写的不好，最大行号，列号没自动取）

代码1-1 如何把1行转化为 N行多列的矩阵

Sub sep1row()

x1 = Sheets("sheet5").Cells(1, 1).End(xlToRight).Column
y1 = 0

Debug.Print "x1=" & x1

For k = 1 To x1 Step 4
For i = 1 To 4

   Sheets("sheet5").Cells(3 + y1, i) = Sheets("sheet5").Cells(1, k + i - 1)
   
Next i
y1 = y1 + 1

Next k

 

代码1-2 把4列N行的矩阵转化为1行

Sub sep3()
k = 1

For i = 3 To 80
For j = 1 To 4
   Sheets("sheet5").Cells(2, k) = Sheets("sheet5").Cells(i, j)
   k = k + 1
Next j
Next i


End Sub