如何通过保持某些单元格不变来在Excel中转​​置单元格？

Question

我想知道在Excel中转​​置数据，同时保持某些单元格不变。附图将给出详细的想法。图1-原始数据。 Image 2- Way我需要获得输出。（每5个单元格需要不变）。Raw data & Desired output

Answer 1

你需要2个FOR循环，一个用于行（i），一个用于列（j）。这也会计算数据的行数（rCount），并在整个范围结束时运行循环。最后，您需要一个指针来跟踪您在原始数据（rPoint）中的位置。

假设：

• 每个数据集5行
• 数据应放在ColD-H。

代码：

Dim i As Integer
Dim j As Integer
Dim rCount As Integer
Dim rPoint As Integer

With ActiveSheet
    rCount = .Cells(.Rows.Count, "A").End(xlUp).Row / 5
End With

For i = 1 To rCount
    For j = 1 To 5
        rPoint = j + (i - 1) * 5
        Cells(i, j + 3) = Cells(rPoint, 1).Value
    Next j
Next i