手工操作。先将A列复制到B、C、D、E列，再手工删除多余的数据。
A列 2000行以后的自行删除Sub jk()Dim i, j, kFor i = 1 To 4 For j = 1 To 2000 [B1].Offset(j - 1, i - 1) = Cells(2000 * i + j, 1) Next NextEnd Sub
分的列数不多，还是直接剪切，粘贴最方便
