Excel 将奇数行的单元格范围B-F移动到偶数行的单元格范围G-K

我想将一系列单元格向上移动1行，向右移动5个单元格。以下是我所拥有的：

以下是我想要的：

我意识到目前为止我还没有任何代码/尝试，但我甚至不知道从哪里开始

如果有一个函数我可以在一个单元格中使用，然后把它拖到我想应用它的所有行上，那就太好了

解A2/A3中的单元格不是答案的一部分，我可以单独做

编辑：

目前，我有横跨两行的name1。第2行和第3行中的所有数据都属于“名称1”。我想将数据从单元格B3-F3移动到单元格G2-K2。我已经取消了name1 A2-A3范围的合并，因此name1完全在A2中

---

像这样的行有800多行，我在上面段落中描述的内容将应用于“name2”、“name3”等的每一组其他行。最后，我希望有400行，A-K列。

将下面的代码粘贴到一个模块中，并对其进行测试。您需要将“我的代码”中的“Sheet1”更改为工作表名称，数据位于第4行（

Set WS=Thisworkbook.Sheets（“此处为您的工作表”）

这将不会触及您的列标题

1.确定最后一行
2.复制目标范围（5宽度）
3.偏移量（-1,5）
4.删除目标范围行
5.循环直到LRow

Option Explicit

Sub MoveMe()

Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets("Sheet1")

Dim LRow As Long
LRow = WS.Range("B" & WS.Rows.Count).End(xlUp).Row

Dim TargetRange as Range
Dim i As Long

For i = 2 To LRow
    Set TargetRange = WS.Range(Cells(i + 1, 2), Cells(i + 1, 6))
    TargetRange.Copy
    WS.Cells(i, 7).PasteSpecial
    TargetRange.EntireRow.Delete
Next i

End Sub

如果有一个函数我可以在一个单元格中使用，然后把它拖到我想应用它的所有行上，那就太好了

在G2中，复制到K2，然后复制到G2:K2以适应：

=OFFSET(A2,1,1)  

---

要进行整理，请选择整个工作表，复制、粘贴特殊值，然后在顶部，当您取消合并后，过滤并删除ColumnA中的空白行。拖动F1以适应需要。

@Urderboy共有800行。这就是为什么我说我希望将其应用于一行并向下拖动，公式会自动应用它到所有其他行。我意识到目前为止我没有任何代码/尝试，但我甚至不确定从何处开始。-开始录制一个包含您想要执行的操作的宏。@Vityata这只适用于一行。@Michael-嗯，这是某种开始…@Urderboy不一定。如果能够这样做会更好在excel的前端有hings，但如果没有其他功能，VBA也可以工作。