根据数字展开相对内容（C列）VBA

jylai

用颜色区分样品的数量
任何帮助都将不胜感激！

明天会更好zj

哈哈

明天会更好zj

哈哈

无关岁月

副本book8.7z (16.42 KB, 下载次数: 5)

2024-1-27 08:57 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a2:c" & r)
   
7.         zs = Application.Sum(.Range("c2:c" & r))
   
8.         ReDim brr(1 To zs, 1 To 2)
   
9.         m = 0
   
10.         For i = 1 To UBound(arr)
    
11.             For j = 1 To arr(i, 3)
    
12.                 m = m + 1
    
13.                 brr(m, 1) = arr(i, 1)
    
14.                 brr(m, 2) = arr(i, 2)
    
15.             Next
    
16.         Next
    
17.         .Range("g2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
18.     End With
    
19. End Sub
    

复制代码

chxw68

参与一下。

jylai

感谢明天会更好zj,无关岁月,chxw68老师

liulang0808

book8.zip (16.18 KB, 下载次数: 12)

2024-1-27 09:04 上传

点击文件名下载附件

jylai

感谢4位老师              ！