如何在Excel中均匀分配列A中的内容到列B，C和D.

假设我有一个数字列表

A栏1 2 3 4 5 6 7

我想把这些数字移到B，C，D

B列：1,2,3，C列：4,5，D列：6,7

数字列表总是变化。

Answer 1

 Sub Macro1（）
 “
 'Macro1macros
 “ 

“

k = 0 r = Range("A1").End(xlDown).Row For i = 1 To r j = 2 If k = 0 Then k = 1 End If If i <= (r / 3) Then Cells(k, j).Value = Cells(i, 1) k = k + 1 If (i + 1) > (r / 3) Then k = 0 End If End If j = 3 If i > r / 3 And i <= 2 * (r / 3) Then Cells(k, j).Value = Cells(i, 1) k = k + 1 If (i + 1) > 2 * (r / 3) Then k = 0 End If End If j = 4 If i > 2 * (r / 3) Then Cells(k, j).Value = Cells(i, 1) k = k + 1 End If Next i End Sub