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

Question

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

我需要处理的格式如下。

library(dplyr)
myData %>% group_by(ID) %>% filter(n() > 2)

数据上下移动占用两行。

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

1   3   5   7   9    
2   4   6   8   10

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

我试图仅复制和粘贴或仅使用'='命令。 但是，我需要处理的数据量太大，无法手动进行。 请帮忙。

谢谢。

Answer 1

将其放在单元格中并向右拖动。

app:layout_behavior="@string/appbar_scrolling_view_behavior"

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