数据拆分

hnjz6700

1、将R2：S7区域按数量进行拆分（如数量为7时，拆分7次），按规格进行升序排列

2、拆分后的数据规格H5向下放置，数量G5向下放置，规格与数量最后一个值不放入
3、序号D5从大到小放置

sunya_0529

WPS里的JSA练习一下——

wang-way

这个就是重复行数啊 弄一个大数组  装进去 输出完事

LIUZHU

需要为什么是从2开始，不是从1开始

grf1973

这种类型用jsa确实比VBA要方便很多。

LIUZHU

只是疑惑这个序号为什么是2-14，不是1-13，还是参与下，给了什么样稿，就实现什么

LIUZHU

JS代码，供参考

LIUZHU

附件，供参考，WPS测试

usedrange

参与学习

1. Sub t()
   
2.     Dim arr, brr, m%, i%, r%, j%, n%
   
3.     m = [r1].End(4).Row
   
4.     n = WorksheetFunction.Sum(Range("s2:s" & m - 1))
   
5.     arr = Range("s2:t" & m)
   
6.     r = 1: ReDim brr(1 To n, 1 To 2)
   
7.     For i = UBound(arr) - 1 To 2 Step -1
   
8.         If arr(i, 1) <> "" Then
   
9.             For j = 1 To arr(i, 1)
   
10.                 brr(r, 1) = 1
    
11.                 brr(r, 2) = arr(i, 2) / arr(i, 1)
    
12.                 r = r + 1
    
13.             Next j
    
14.         End If
    
15.     Next i
    
16.     [k5].Resize(UBound(brr), 2) = brr
    
17. End Sub

复制代码