求助，应该是数组转置的典型

张起灵1

如图，将数据源1的数据，转置为表3的效果图

代码可以不用管，到时候一个VLOOKUP
会有工序为空但是单价不为空  或者工序不为空但是单价是空的情况，这种直接跳过


后面可能会有工序11 12 13和对应的单价，但是格式固定

希望有时间的大佬路过瞅一眼，有在学VBA，但是只是基础部分，只会抄作业

micch

数组的转置是transpose？？

张起灵1

代码指的是表里面的工序代码

张起灵1

micch 发表于 2024-10-22 20:50
数组的转置是transpose？？

不知道代码怎么写

飞天篮球猪

换个工具,仅供参考...

micch

代码就自己VLOOKUP吧

张起灵1

飞天篮球猪 发表于 2024-10-22 21:02
换个工具,仅供参考...

感谢帮助                          

张起灵1

micch 发表于 2024-10-22 21:03
代码就自己VLOOKUP吧

太感谢了                       

micch

micch 发表于 2024-10-22 21:03
代码就自己VLOOKUP吧

1. Sub Main()
   
2.     Dim d As New Dictionary
   
3.     '字典d实现工序名称和单价的VLOOKUP
   
4.     ar = Sheet1.UsedRange.Value
   
5.     ReDim br(1 To UBound(ar) * 10, 1 To 4)
   
6.     For i = 2 To UBound(ar)
   
7.         pinhao = ar(i, 1)
   
8.         For k = 2 To UBound(ar, 2) Step 2
   
9.             gongxu = ar(i, k)
   
10.             danjia = ar(i, k + 1)
    
11.             If Len(gongxu) > 0 And Len(danjia) > 0 Then
    
12.                 j = j + 1
    
13.                 br(j, 1) = pinhao
    
14.                 br(j, 2) = gongxu
    
15.                 br(j, 3) = d(gongxu) '代码
    
16.                 br(j, 4) = danjia
    
17.             End If
    
18.         Next
    
19.     Next
    
20.     With Sheet2
    
21.         .UsedRange.Offset(1).ClearContents
    
22.         .Range("A2").Resize(j, 4).Value = br
    
23.     End With
    
24. End Sub

复制代码

lizhipei78