Excel将横排尺码数量变成竖排?
发布网友
发布时间：2022-04-23 00:48
共1个回答
热心网友
时间：2022-04-27 07:26
如果我遇到这样的需求，一般是使用VBA编程解决，代码如下：
Sub 宏1()
Dim arr, i&, j&, a$,b$,n&, arr2(1 to 1000,1 to 4)
arr = ActiveSheet.UsedRange
For i=2 To UBound(arr)
If arr(i,1)<>"" Then a=arr(i,1)
If arr(i,2)<>"" then b=arr(i,2)
For j=3 To UBound(arr,2)
Next j
If arr(i,j)<>"" Then
n = n + 1
arr2(n,1)=a
arr2(n,2)=b
arr2(n,3)=arr(1,j)
arr2(n,4)=arr(i,j)
End If
Next i
With WorkBooks.Add
.Sheets(1).Range("a1:d1") = Array("名称","颜色","尺码","数量")
.Sheets(1).Range("a2").Resize(n,4) = arr2
End With
End Sub
