万行细化分解，工作量巨大，VB处理怎么搞？已有部分代码

糖↗小冷

ABC列是之前代码，根据【整合长段】工作表里的分段拆分的，以前是1进位，

现在要求按照JKL列的示例进行分段，

更细化成0.1拆分，

请老师帮忙看看代码

chxw68

1. Sub test2()
   
2.     Dim r&, i&
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("整合成长段")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("a2:f" & r)
   
9.     End With
   
10.     ReDim brr(1 To UBound(arr) * 100, 1 To 3)
    
11.     m = 0
    
12.     For i = 1 To UBound(arr)
    
13.         For j = arr(i, 3) To arr(i, 4) Step 0.1
    
14.             m = m + 1
    
15.             brr(m, 1) = arr(i, 2)
    
16.             brr(m, 2) = j
    
17.             brr(m, 3) = j + 0.1
    
18.         Next
    
19.         brr(m, 3) = arr(i, 4)
    
20.     Next
    
21.     With Worksheets("细化分解长段")
    
22.         .UsedRange.Offset(1, 0).Clear
    
23.         .Range("a2").Resize(m, UBound(brr, 2)) = brr
    
24.     End With
    
25.     MsgBox "数据处理成功，继续下一步操作！"
    
26. End Sub
    
27. 
    
28. 
    

复制代码

chxw68

详见附件。

陆离Lowry

...............

糖↗小冷

陆离Lowry 发表于 2023-2-10 10:20
...............

感谢老师的耐心解答，帮助解决了大问题

糖↗小冷

chxw68 发表于 2023-2-10 09:54
详见附件。

感谢老师的耐心解答，帮助解决了大问题，十分感谢您能拿出宝贵的时间帮忙