2

我正在将表格数据上传到我的 SQL 数据库中。

以下是数据的原始外观。

在此处输入图像描述

我想在一列中获取每个温度(Y 轴),然后在下一列中获取每个重力(X 轴),然后是相交值。

像这样:

在此处输入图像描述

4

1 回答 1

2

我从 ExcelForum 的一个人那里得到了帮助。这是宏代码,它解决了我的问题。

       Option Explicit

    Sub transpose_data()
    Dim lrow As Long, lcol As Long, a As Long, i As Long, j As Long

    Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "Output"
    a = 1
    With Worksheets("Original")
        lrow = .Range("A" & .Rows.Count).End(xlUp).Row
        lcol = .Range("IV1").End(xlToLeft).Column
        For i = 2 To lrow
            For j = 2 To lcol
                Worksheets("Output").Cells(a, 1).Value = .Cells(i, 1).Value
                Worksheets("Output").Cells(a, 2).Value = .Cells(1, j).Value
                Worksheets("Output").Cells(a, 3).Value = .Cells(i, j).Value
                a = a + 1
            Next j
        Next i
    End With

Worksheets("Output").Columns("A:C").NumberFormat = "0.00"

End Sub

确保将工作表名称更改为“原始”以使此代码正常工作。

于 2012-05-17T03:35:59.443 回答