二维转一维

550975855

名称	类型1	类型2	类型3	类型4
熊猫	20		30	5
海尔		15	10	20

这样的表要做成
名称 类型 数量
熊猫 类型1 20
熊猫 类型3 30
熊猫 类型4 5
海尔 类型2 15
海尔 类型3 10
海尔 类型4 20
。。。。。。
VBA怎么写
中间有空数据就直接跳过

liulang0808

上附件，结合附件举例说明

lenghonghai601

1. Sub 按钮1_Click()
   
2. Dim arr, brr(), m%, i%, j%
   
3. arr = Range("a1").CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.     For j = 2 To UBound(arr, 2)
   
6.         If Cells(i, j) <> "" Then
   
7.             m = m + 1
   
8.             ReDim Preserve brr(1 To 3, 1 To m)
   
9.             brr(1, m) = arr(i, 1): brr(2, m) = arr(1, j): brr(3, m) = arr(i, j)
   
10.         End If
    
11.     Next j
    
12. Next i
    
13. Range("g1").Resize(m, 3) = WorksheetFunction.Transpose(brr)
    
14. End Sub

复制代码

lenghonghai601

这是附件，请测试。

550975855

确实牛啊，如果中间IF后面加foreach 要怎么写，

550975855

lenghonghai601 发表于 2018-6-20 16:02
这是附件，请测试。

这个是我的原是附件，里面有模仿别人写的

lenghonghai601

550975855 发表于 2018-6-20 16:08
这个是我的原是附件，里面有模仿别人写的

没有附件。没有上传成功，必须先压缩才能上传。

jiangxiaoyun

powerquery逆透视即可

550975855

看看有没有附件了，第一次搞不太会

550975855

附件这是一个附件