如何将一维转换成二维表

xiyi0519 · 发表于 2014-6-6 22:03

这里只是简单的举例，实际工作中的数据特别大，还请高手指点，如何在ACCESS里快速实现！必有重谢
一.jpg

附件：：：

多条件查询.rar (9.41 KB, 下载次数: 20)

该贴已经同步到 xiyi0519的微博

dajiahaoxinku12 · 发表于 2014-6-6 22:39

数据透视表

xiyi0519 · 发表于 2014-6-6 23:09

dajiahaoxinku12 发表于 2014-6-6 22:39
数据透视表

要是这样的怎么处理?

dajiahaoxinku12 · 发表于 2014-6-6 23:15

你这个得用VBA处理，你这种不叫一维转二维。你做个辅助列，把等于铁丝或者塑料的行做标记，然后筛选，复制到旁边相应的单元格内

zhaogang1960 · 发表于 2014-6-6 23:16

创建一个Access文件，再按照要求创建一个数据表？如果是：

Sub Macro1()
'引用Microsoft AD0 Ext 2.x for DDL and Security
'引用Microsoft ActiveX Data Objects 2.x Library
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Cat As New ADOX.Catalog
Dim MyPath As String
Dim myTable As String
Dim SQL As String
Dim ok As Boolean
MyPath = ThisWorkbook.Path & "\多条件查询.accdb"
If Dir(MyPath) = "" Then
Cat.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & MyPath
Set Cat = Nothing
ok = True
End If
myTable = "结果"
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & MyPath
If Not ok Then
Set rs = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, myTable, Empty))
If Not rs.EOF Then
SQL = "DROP TABLE " & myTable
cnn.Execute SQL
End If
End If
SQL = "select 姓名,sum(iif(科目='数学',成绩)) as 数学,sum(iif(科目='英语',成绩)) as 英语,sum(iif(科目='语文',成绩)) as 语文 from [Excel 12.0;Database=" _
& ThisWorkbook.FullName & ";].[基础数据$] group by 姓名"
SQL = "select * into " & myTable & " from (" & SQL & ")"
cnn.Execute SQL
MsgBox "已经将查询数据生成新数据表。", vbInformation, "生成新数据表"
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2014-6-6 23:18

请测试附件

多条件查询.rar (19.63 KB, 下载次数: 32)

zhaogang1960 · 发表于 2014-6-6 23:28

如果“基础数据”本来就是一个Access文件的数据表，直接在Access文件中创建查询即可：

SELECT 姓名, sum(iif(科目="数学",成绩)) AS 数学, sum(iif(科目="英语",成绩)) AS 英语, sum(iif(科目="语文",成绩)) AS 语文
FROM 基础数据
GROUP BY 姓名;

复制代码

Access.rar (19.24 KB, 下载次数: 31)

		自动登录	找回密码
密码			免费注册

[求助] 如何将一维转换成二维表