标题：垂直表和水平表的转换

1楼

jackyfashion 发表于：2024/1/1 11:57:00

老师:您好!

我搞个垂直表和水平表的转换,填充不了数据:

Data Tabl es("表2").Dele teFor("")

For Ea ch v As St ring In Da taTab les("表1").Get Values("颜色")

Dim dr1 As Da ta Row = Dat aTabl es("表2").Add New()

dr1("颜色") = v

For Each dr1 As Row In Tables("表1").Rows

For Eac h dr2 As Ro w In Tabl es("表2").Ro ws

If cx.Cap tion = dr1("尺码") And dr2("颜色") = dr2("颜色") Th en

dr2("颜色" ) = dr1("件数")

En d if

Ne xt

Ma inTa ble = Tables("表2")

请教下老师指教!!!

谢谢!!!

此主题相关图片如下：无标题.png

[此贴子已经被作者于2024/1/1 11:57:27编辑过]

2楼

jackyfashion 发表于：2024/1/1 12:04:00

老师: 您好!

我的表1是统计表临时表

我的表2是数据表

请老师指教,把表1的数据填充在表2

谢谢老师指教!谢谢!!!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:工作簿1.xlsx

3楼

有点蓝 发表于：2024/1/1 20:31:00

Data Tabl es("表2").Dele teFor("")

For Ea ch v As St ring In Da taTab les("表1").Get Values("颜色")

Dim dr1 As Da ta Row = Dat aTabl es("表2").Add New()

dr1("颜色") = v

ForEach dr As datarow In DataTables("表1").select("颜色='" & v & "'")

dr1(dr("尺码")) = dr("件数")

4楼

jackyfashion 发表于：2024/1/1 20:44:00

老师:新年快乐!

谢谢老师!!!

共4 条记录, 每页显示 10 条, 页签: [1]