lzspain 发表于 2025-7-30 15:17
搞定了，只需要输入总页数和重复次数，其余的自动生成
页码显示奇偶两列，会不会更好
小小小事情 发表于 2025-7-30 16:32
页码显示奇偶两列，会不会更好
没必要了，只要有一列用来辅助排序就行
小小小事情 发表于 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版本
小小小事情 发表于 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 ...
:lol用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