如何在Excel中转​​置/格式化数据

Question

大家好日子。我正在努力测试10年的历史债券价格。请注意this image以更好地理解我需要的格式。请注意，由于我正在处理的大量记录，我发现手动格式化/转置数据到所需的输出真的很乏味。

希望你能指导我采取什么方法。谢谢。

P.S。为了让所有人都透明，我还发布了这个问题here.

Answer 1

从以下数据开始：

运行此代码：

Sub ReMapper()
    Dim rw As Long, cl As Long, K As Long
    Dim s2 As Worksheet
    Set s2 = Sheets("Sheet2")

    K = 1
    For rw = 6 To 9 '         loop over rows
        For cl = 2 To 5 '     loop over columns
            s2.Cells(K, "A").Value = Cells(rw, "A").Value
            s2.Cells(K, "B").Value = Cells(5, cl).Value
            s2.Cells(K, "C").Value = Cells(rw, cl).Value
            s2.Cells(K, "D").Value = Cells(4, cl).Value
            K = K + 1
        Next cl
    Next rw
End Sub

将把它放在 Sheet2 ：

上

<强> 注：的

1. 代码从我已着色的单元格中收集数据
2. 循环遍历我格式化为粗体
的单元格
3. 代码中的数值常数如 {2,3,4,5,6,9} 取决于源数据的大小和位置。