MSEXCEL将数据转换为数据库格式

我正在上传一个表格数据到我的SQL数据库。

以下是数据的原始外观。

我想把每一个温度（Y轴）在一列，然后在每一个重力（X轴）在下一列，其次是交叉的价值。

喜欢这个：

Answer 1

我从ExcelForum的家伙得到了帮助。 这是macros代码，解决了我的问题。

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 

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