求老师们帮帮忙

学生的方式的

问题描述在附件

学生的方式的

老师们能帮帮我吗，感觉这个不是很好解决

taller

参考代码

1. Sub demo()
   
2.     Dim res()
   
3.     wei = Array(7, 4, 3)
   
4.     Set cel = [a1].CurrentRegion
   
5.     arr = cel.Value
   
6.     lst = UBound(arr)
   
7.     n = 1
   
8.     For i = 2 To lst
   
9.         pac = Split(arr(i, 2), "-")
   
10.         pno = 1
    
11.         For j = 0 To 2
    
12.             For r = 1 To arr(i, 7 + j)
    
13.                 ReDim Preserve res(1 To 6, 1 To n)
    
14.                 For k = 1 To 5
    
15.                     If k = 2 Then
    
16.                         pac(UBound(pac)) = pno
    
17.                         pno = pno + 1
    
18.                         res(k, n) = Join(pac, "-")
    
19.                     Else
    
20.                         res(k, n) = arr(i, k)
    
21.                     End If
    
22.                 Next
    
23.                 res(6, n) = wei(j)
    
24.                 n = n + 1
    
25.             Next
    
26.         Next
    
27.     Next
    
28.     Range("K:AA").Clear
    
29.     [K1].Resize(1, 6).Value = Array("省份", "包号", "人", "电话", "辅助字符", "包号重量")
    
30.     [K2].Resize(n - 1, 6).Value = Application.Transpose(res)
    
31. End Sub
    

复制代码

taller

参考文件

中谷签收 (3).7z (29.08 KB, 下载次数: 4)

2019-3-26 18:19 上传

点击文件名下载附件

学生的方式的

taller 发表于 2019-3-26 18:19
参考文件

老师，你好，你发的是没修改过的

taller

学生的方式的 发表于 2019-3-26 19:27
老师，你好，你发的是没修改过的

代码已经给出

学生的方式的

taller 发表于 2019-3-26 20:14
代码已经给出

老师， 你的代码时安装7,4,3的顺序的，我想要3,4,7的顺序的话该修改哪里呢

taller

学生的方式的 发表于 2019-3-26 22:48
老师， 你的代码时安装7,4,3的顺序的，我想要3,4,7的顺序的话该修改哪里呢

修改这句

1. wei = Array(7, 4, 3)

复制代码