打印自动分页并按每页30行的格式自动填充空白行

blickcom · 发表于 2024-3-12 16:07

小書生 · 发表于 2024-3-12 16:39

vba可以轻松做到，

blickcom · 发表于 2024-3-12 17:13

小書生发表于 2024-3-12 16:39
vba可以轻松做到，

求专门教程和代码。

blickcom · 发表于 2024-3-12 17:28

小書生发表于 2024-3-12 16:39
vba可以轻松做到，

小书生插件可以实现需求吗？

3190496160 · 发表于 2024-3-12 21:15

适合vba初学者练练手

橒♂蝣 · 发表于 2024-3-12 21:56

=REDUCE(原数据!A1:H1,UNIQUE(原数据!A2:A109),LAMBDA(x,y,VSTACK(x,LET(
i,FILTER(原数据!$A$2:$H$109,原数据!A2:A109=y,""),
IF(ROWS(i)<30,VSTACK(i,EXPAND(" ",30-ROWS(i),8," ")),i)
))))

blickcom · 发表于 2024-3-13 00:05

本帖最后由 blickcom 于 2024-3-13 10:50 编辑

橒♂蝣发表于 2024-3-12 21:56
=REDUCE(原数据!A1:H1,UNIQUE(原数据!A2:A109),LAMBDA(x,y,VSTACK(x,LET(
i,FILTER(原数据!$A$2:$H$109,原 ...

请问公式怎么用？复制公式报错了在这个位置VSTACK(x,LET(。

小書生 · 发表于 2024-3-13 10:19

blickcom 发表于 2024-3-12 17:28
小书生插件可以实现需求吗？

我的插件没写类似的功能，不过，vba可以给你写一下

blickcom · 发表于 2024-3-13 10:40

小書生发表于 2024-3-13 10:19
我的插件没写类似的功能，不过，vba可以给你写一下

谢谢帮忙。

小書生 · 发表于 2024-3-13 12:20

blickcom 发表于 2024-3-13 10:40
谢谢帮忙。

你也真不客气，
放模块中，点运行，

Sub 书() '书生答题专用
ar = [a1].CurrentRegion
Dim br
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(ar)
d(ar(i, 1)) = d(ar(i, 1)) & "-" & i
Next
ReDim br(665536, UBound(ar, 2) - 1)
dd = d.items
k = 0
For Each r In d.keys
aaa = Split(Mid(d(r), 2), "-")
If n > 0 Then k = k + (30 - n)
n = 30
For i = 0 To UBound(aaa)
If n = 30 Then
For ij = 1 To 8
br(k, ij - 1) = ar(1, ij)
Next
n = 0: k = k + 1
End If
For ij = 1 To 8
br(k, ij - 1) = ar(aaa(i), ij)
Next
n = n + 1
k = k + 1
Next
Next
Sheets(2).[n1].Resize(k, 8) = br
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 打印自动分页并按每页30行的格式自动填充空白行

评分