不规范表格转换成一维表格

mm4675151

怎么转换成一维表格

jy03342543

Sub Test()
Dim Arr
Dim Conn As Object, Rst As Object
Dim strConn As String, SQL As String
Dim I As Integer, PathStr As String
Set Conn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
PathStr = ThisWorkbook.FullName
Select Case Application.Version * 1
Case Is < 12
strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
Case Is >= 12
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=1';Data Source=" & PathStr
End Select
Sheet1.Select
Conn.Open strConn
    SQL = "SELECT 项目号,订单编号,图号,物料名称,规格型号,单位,采购承诺交期,日期,数量,单价,金额,未送货数量 FROM[Sheet1$]"
Set Rst = Conn.Execute(SQL)
Sheet2.Select
  With Sheet2
      For I = 0 To Rst.Fields.Count - 1
        .Cells(1, I + 1) = Rst.Fields(I).Name
      Next I
    Range("A2").CopyFromRecordset Rst
  End With
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
Conn.Close
Set Conn = Nothing
End Sub

jy03342543

VBA法请查看附件。

高个子

你这个power query应该可以做

mm4675151

jy03342543 发表于 2023-12-20 14:03
VBA法请查看附件。

日期要送货日期

mm4675151

高个子 发表于 2023-12-20 15:13
你这个power query应该可以做

怎么做？不会power query

jy03342543

已修改送货日期

mm4675151

jy03342543 发表于 2023-12-20 15:48
已修改送货日期

每天的已送货数量，第二次送货，第三次送货，第四次送货  

mm4675151

jy03342543 发表于 2023-12-20 15:48
已修改送货日期

前面的数量是订单的数量

jy03342543

mm4675151 发表于 2023-12-20 15:56
每天的已送货数量，第二次送货，第三次送货，第四次送货

到开发工具模块里根据实际需求自己修改一下我这里只是模拟你模拟出来的结果。
把你要的字段在这句里面做修改即可
SQL = "SELECT 项目号,订单编号,图号,物料名称,规格型号,单位,采购承诺交期,日期,数量,单价,金额,未送货数量 FROM[Sheet1$]"