问题和数据源
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