主题：谁能帮忙把附件中明细转成格式的样式，谢谢

用下面的代码得到结果，然后手工检查一下那些数据漏掉了：

DataTables("格式").DataRows.Clear()
For Each r As DataRow In DataTables("第1页").dataRows
    For Each c As DataCol In DataTables("第1页").dataCols
        Select Case c.name
            Case "功能","规格/型号","屏幕"
            Case Else
                Dim dr As DataRow = DataTables("格式").AddNew
                dr("分公司") = c.Name
                dr("产品型号") =  r("规格/型号")
                dr("销量") = r(c.Name)
                dr("月份") = Date.Today.month
        End Select
    Next
Next
MainTable = Tables("格式")

然后我们帮你分析一下，为啥这些数据会漏掉。

使用这个数据不掉了