QI排序，这里有没有变量符

小小小事情

lzspain 发表于 2025-7-30 15:17
搞定了，只需要输入总页数和重复次数，其余的自动生成

页码显示奇偶两列，会不会更好

lzspain

小小小事情 发表于 2025-7-30 16:32
页码显示奇偶两列，会不会更好

没必要了，只要有一列用来辅助排序就行

boriswen

小小小事情 发表于 2024-10-6 13:52
手搓一个，如图，凑字数凑字数。

能帮忙看一下，这种的PDF文档如何批量快速拼版的，谢谢！

小小小事情

boriswen 发表于 2025-8-3 17:51
能帮忙看一下，这种的PDF文档如何批量快速拼版的，谢谢！

通过网盘分享的文件：PDF单面复制页面示范.mp4
链接: https://pan.baidu.com/s/15wYfnii6Eh1BxIs9keBsGQ?pwd=matd 提取码: matd

需要用最新版wps或者office365版本

boriswen

小小小事情 发表于 2025-8-3 22:12
通过网盘分享的文件：PDF单面复制页面示范.mp4
链接: https://pan.baidu.com/s/15wYfnii6Eh1BxIs9keBsGQ? ...

非常感谢，先学习一下，不明白再来请教您。

风云

小小小事情 发表于 2025-7-28 09:54
通过网盘分享的文件：QI单面页面复制.mp4
链接: https://pan.baidu.com/s/1ywOhrkxjF-48-I31Thqjrg?pwd=v ...

  用vba代码实现：改变A2值，则自动填写B列页码
代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
    '判断是否更改的是A2单元格
        If Not Intersect(Target, Me.Range("A2")) Is Nothing Then
        Call 修改内容    '调用【修改内容】查模块
    End If
End Sub
Sub 修改内容()
   
    Dim rng As Range, i
    Set rng = Sheets("Sheet1").Range("B1").End(xlDown)
    '清除B列已有内容
    If rng > 1 Then
        Sheets("Sheet1").Range("B2:B" & rng + 1).Clear
    End If
   
    num = Sheets("Sheet1").Range("A2").Value
    '根据A2值，修改B列内容
    For i = num To 1 Step -1
        Sheets("Sheet1").Range("B" & i + 1) = i
    Next i
End Sub

小小小事情

风云 发表于 2025-9-10 16:56
用vba代码实现：改变A2值，则自动填写B列页码
代码如下：
Private Sub Worksheet_Change(ByVal Tar ...

预填了1000页，超出需要手动填充。不过复制前1000页，大部分情况够用了。
这个VBA需要手动运行吗？还是做成宏表可以自动更新？