不同份数的排序 软件Word + QI 排序

独享一个世界

录一个常见的视频
比如6P的文件
1要3份
2要6份
3要2份
4要8份
5要3份
6要4份

软件Word + QI 排序
打开WOrd
打开VB编辑器

教程 不同份数的排序.rar (3.84 MB)

2022-8-6 08:42 上传

点击文件名下载附件

hanlin

用表格，更快一些

独享一个世界

hanlin 发表于 2022-8-6 08:52
用表格，更快一些

可以录下表格的教程

170443340

这个教程好像以前有人发过的,

zoukool

这个代码去哪里复制？

独享一个世界

Sub 单面重复不同份数1()
Dim arr() As String, arr1()
Dim a%, b, n, i, s1, n1, b1, s2, i1, e%
b = InputBox("请输入页数")
   
    For i = 1 To b
    a = InputBox("请输入第" & i & "页份数")
    e = e + a
   
    ReDim arr(1 To a)
        For n = 1 To a
        arr(n) = i
        ReDim Preserve arr1(1 To e)
        i1 = i1 + 1
        arr1(i1) = arr(n)
        Next n
    Next i
   
        s1 = Join(arr1)
    Open "C:\Users\Administrator\Desktop\新建文件夹 (3)\33.txt" For Output As #4
Print #4, RTrim(s1)
Close #4
'    s1 = Join(arr, " ")
'    Open "C:\Users\Administrator\Desktop\单面向下1.txt" For Output As #4
''    For i1 = 1 To b
''        For n1 = 1 To a
''        s1 = arr(i1, n1)
''        s2 = Join(s1)
''        Print #4, arr(i1, n1)
''        Next n1
''    Next i1
'
' Close #4
End Sub

baizes

请问这个只能word使用吗？

至诚创意图文

这个有时候是会用得到