我怎样才能 Transpose/Format 在 Excel 中得到这样的数据

Question

大家好。我正在努力测试 10 年期每日历史债券价格。请参阅 this image 以更好地理解我需要的格式。请注意，由于我正在处理大量记录，我发现手动 format/transpose 数据到所需输出真的很繁琐。

希望您能指导我采取何种方法。谢谢你。

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:

注意：

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

我怎样才能 Transpose/Format 在 Excel 中得到这样的数据

How Can I Transpose/Format Data Like This in Excel

excel

transpose