excel - 无法将均匀分散的信息从一张纸排列到另一张纸上

Question

我正在尝试将一些均匀分散的信息从一个电子表格排列到另一个电子表格中。我感兴趣的信息位于 Sheet2 中，我希望以自定义方式将它们放置在 Sheet1 中。

我尝试过:

Sub ArrangeInformation()
    Dim ws As Worksheet, cel As Range

    Set ws = ThisWorkbook.Sheets("Sheet2")
    Set tws = ThisWorkbook.Sheets("Sheet1")

    For Each cel In ws.Range("A1:A" & ws.Cells(Rows.Count, 1).End(xlUp).row)
        tws.Range(cel(1, 1).Address) = cel
    Next cel
End Sub

上述脚本只是在 Sheet1 中复制与 Sheet2 中相同的信息。

Sheet2 中的数据:

我喜欢如何在 Sheet1 中排列它们:

How can I arrange those information in sheet1?

Answer 1

我们可以使用一些数学来获得正确的列和行:

Sub ArrangeInformation()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet2")

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

    Dim i As Long
    i = 0

    Dim j As Long
    j = 0

    Dim cel As Range
    For Each cel In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
        If cel <> "" Then
            tws.Cells(Int(i / 4) + 1, ((j) Mod 4) + 1) = cel
            i = i + 1
            j = j + 1
        End If

    Next cel
End Sub

在数学中，4 是每个模式中的项目数

INT每四轮增加1，MOD每4轮重复1,2,3,4。

<小时/>

只是因为:

这可以通过公式来完成:

=INDEX(Sheet2!$A:$A,INT(ROW(1:1)-1)/5+MOD((COLUMN(A:A)-1),5)+1)

其中 2 个 5 是模式，+1 是数据的起始行。

将其放入sheet1 A1并上下复制。