EXCEL数据有效性里面怎样实现批量打印？如何一键完成打印第一页跟第二页？

Posted 2023-04-13

假设用于显示第一页与第二页的数据有效性单元格位于C2单元格，应当是数据显示区域（考核内容与考核项目等）通过公式（或宏）以C2格显示的内容来更新，所以只要用一段宏，改变C2格的内容并打印当前页就可以了，试试下面代码：

Sub 自动打印()

Range("c2") = "第一页"

ActiveSheet.PrintOut '打印

Range("c2") = "第二页"

ActiveSheet.PrintOut '打印

End Sub

在表格中添加一个按钮，指定宏名“自动打印”就行了。 参考技术A Sub 批量提取数据有效性下拉列表项目并打印()
Dim rCell As Range
Dim Arr, m
On Error Resume Next
Set rCell = Worksheets("Sheet1").Range("C1")
'将单元格中的数据有效性序列提取到数组
With rCell.Validation
If .Type = 3 Then
If Range(.Formula1) Is Nothing Then
'当数据有效性序列的来源不是单元格区域时
Arr = Split(.Formula1, ",")
Else
Arr = Range(.Formula1).Value
End If
'批量打印
If IsArray(Arr) Then
For Each m In Arr
If m <> "" Then
rCell.Value = m
Worksheets("Sheet1").PrintOut
End If
Next
Else
rCell.Value = Arr
Worksheets("Sheet1").PrintOut
End If
End If
End With
End Sub
运行后即可将每个员工的资料页依次打印出来。

Excel怎样实现一对多匹配？请教

例如 姓名 爱好
张三 吃
李四 喝
张三 玩
王五 乐
怎样匹配 张三 吃 玩
李四 喝

建立辅助列用=COUNTIF($B$2:B2,B2)&B2标记出查找值的出现次数&查找值，辅助行标记1~查找值出现最大次数

通过=IFERROR(VLOOKUP(G$1&$F2,$A:$C,3,0),"")

参考技术A

需要排序才能用

先将A列排序

E2公式

=MID(SUBSTITUTE(PHONETIC(OFFSET(A$1:B$1,MATCH(D2,A:A,)-1,,COUNTIF(A:A,D2))),D2,","),2,99)

下拉

参考技术B

=INDEX($B$1:$B$5,SMALL(IF($A$1:$A$5=$D2,ROW($1:$5),4^8),COLUMN(A1)))

右拉到出错，或者再增加判断条件，规避出现#REF

参考技术C 可以使用数据透析， 非常简单
步奏：
设置-数据透析--选中EXCEL表 ---生成透析表--右侧框内选中要筛选内容追问

可以详细点吗 我要做成张三在一个单元格 吃喝玩乐在一个单元格。 数据透视都是汇总啊，我的数据都是字符串，要把字符直接排列在单元格里，怎么做呢？谢谢
张三 吃 喝 玩 乐
李四 吃 喝 玩