如何用VBA完成下面的功能?

class11class

图一为原数据:




图二为:

重点是:目标结果里第三列这个目的是如何实现的?请教下大神,帮忙解答下,谢谢

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("原数据")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a1:b" & r)
   
7.     End With
   
8.     ReDim brr(1 To Application.Sum(Application.Index(arr, 0, 2)), 1 To 3)
   
9.     m = 0
   
10.     For i = 1 To UBound(arr)
    
11.         For j = 1 To arr(i, 2)
    
12.             m = m + 1
    
13.             brr(m, 1) = arr(i, 1)
    
14.             brr(m, 2) = arr(i, 2)
    
15.             brr(m, 3) = "a" & Chr(97 + i) & Format(j, "00")
    
16.         Next
    
17.     Next
    
18.     With Worksheets("目标结果")
    
19.         .Range("d1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
20.     End With
    
21. End Sub
    

复制代码

chxw68

详见附件。

zpy2

https://b23.tv/vW2sfFj
在线工具

class11class

zpy2 发表于 2023-9-7 22:02
https://b23.tv/vW2sfFj
在线工具

看不懂,我还是看VBA吧

zpy2

class11class 发表于 2023-9-8 20:15
看不懂,我还是看VBA吧

嗯，vba 也不难

如果vba不方便用，可以打开视频下方的链接，在线sql复制粘贴完成

zpy2

class11class 发表于 2023-9-8 20:15
看不懂,我还是看VBA吧

嗯，vba 也不难

如果vba不方便用，可以打开  图片里 下方的链接，在线sql复制粘贴完成