excel - 如何从excel中的之字形数据制作一行

Question

我最近在Excel中建立数据结构时遇到了一个问题。

我需要处理的格式有以下表格。

1   3   5   7   9    
2   4   6   8   10

数据占用上下两行。

我想将这些数据重新排列成一行，如下所示。

1   2   3   4   5   6   7   8   9   10

我需要在 Excel 中使用什么功能？

我试图只复制和粘贴或“=”命令。但是，我需要处理的数据量太大而无法手动完成。请帮忙..

提前致谢。

Answer 1

把它放在一个单元格中并向右拖动。

=INDEX($A$1:$E$2, MOD(COLUMN(A:A)-1, 2)+1, (COLUMN(A:A)-1)/2+1)

Answer 2

我会使用 vba，因为这需要迭代。这仅在两个“之字形”行分别位于工作表行 (A) 和行 (B) 的第一行和第二行时才有效。

Sub combine()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Long
Dim j As Long
Dim k As Long
Dim LastCol As Long

Set wb = ActiveWorkbook
Set ws = wb.ActiveSheet
j = 4
k = 1
 LastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
 With ws


  For i = 1 To LastCol
     .Cells(j, k).Value = .Cells(1, i).Value
     k = k + 1
     .Cells(j, k).Value = .Cells(2, i).Value
     k = k + 1
  Next i

 End With
 End Sub