求助！！！求助！！内附文件，这个怎么完成

zhuzhuailong

怎样由工作表“数据源”，快速得到“新表”中的“数量”列。

abc123281

论坛真的会碰到些古怪的要求和问题  可以实现  明天再看吧  很晚了

changhong8

公式法：G1=INDEX(数据源!$E$2:$P$85,MATCH(新表!C2&新表!D2&新表!E2,数据源!$B$2:$B$85&数据源!$C$2:$C$85&数据源!$D$2:$D$85,0),MATCH(新表!F2,数据源!$E$1:$P$1,0)),三键输入，下拉

changhong8

实际就是二维转一维的逆透视

鄂龙蒙

1. Sub 转换()
   
2.     Dim ar, br(), m, i, j, x
   
3.     Rows("2:1048576").ClearContents
   
4.     ar = Sheet1.Range("A1").CurrentRegion
   
5.     For i = 2 To UBound(ar)
   
6.          For j = 5 To 16
   
7.             m = m + 1
   
8.             ReDim Preserve br(1 To 7, 1 To m)
   
9.             br(1, m) = m
   
10.             For x = 1 To 4
    
11.                br(x + 1, m) = ar(i, x)
    
12.             Next
    
13.             br(6, m) = ar(1, j)
    
14.             br(7, m) = ar(i, j)
    
15.         Next
    
16.     Next
    
17.     [A2].Resize(m, 7) = Application.Transpose(br)
    
18. End Sub

复制代码

鄂龙蒙

转换.rar (97.04 KB, 下载次数: 7)

2019-6-21 07:36 上传

点击文件名下载附件

zhuzhuailong

changhong8 发表于 2019-6-21 07:14
实际就是二维转一维的逆透视

非常感谢！

zhuzhuailong

鄂龙蒙 发表于 2019-6-21 07:36

非常感谢！

zhuzhuailong

changhong8 发表于 2019-6-21 07:14
实际就是二维转一维的逆透视

新新的新人，弱弱地问一句，在哪里可以送小花花，找了半天，也没找到

changhong8

回帖楼层有个小手的图标，就是评价的