Excel基于单元格值自动生成文本行：员工休假文本生成需求

以下是几种实用的实现方案，按需选择即可：

方法一：Excel函数公式法 #

适合基础用户操作，无需编程。假设表格结构为：A列是员工姓名，B列及以后是日期列（如B1为"10/1"、C1为"10/2"），休假用"√"或"休假"标记。

• 新增辅助列（比如Z列），在Z2单元格输入数组公式：

=IF(COUNTA(B2:Y2)>0, A2&" 休假日期："&TEXTJOIN("、",TRUE,IF(B2:Y2<>"",B$1,"")),"")

• 输入完成后按Ctrl+Shift+Enter确认（Excel 365/2021版本直接回车即可）
• 下拉填充公式后，筛选Z列非空内容，复制出来就是目标文本行。

方法二：Power Query批量处理法 #

适合数据量较大的场景，支持一键刷新更新结果：

1. 选中表格数据区域，点击「数据」选项卡 → 「从表格/区域」，将数据导入Power Query编辑器
2. 选中所有日期列（B到Y列），点击「转换」选项卡 → 「逆透视其他列」
3. 筛选「值」列，仅保留非空的行（即有休假标记的记录）
4. 按「员工姓名」列分组，将「属性」（对应日期列标题）合并为用「、」分隔的文本，自定义列名设为"休假日期"
5. 添加自定义列，输入公式：[员工姓名] & " 休假日期：" & [休假日期]
6. 点击「关闭并上载」，结果会加载回Excel，仅包含有休假员工的文本行。

方法三：VBA脚本自动化生成 #

适合需要频繁重复操作的场景，可直接生成结果到指定位置：

1. 按Alt+F11打开VBA编辑器，插入新模块
2. 粘贴以下代码（注意替换工作表名和结果列）：

Sub GenerateLeaveText()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim leaveDates As String
    Dim resultRow As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换成你的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    resultRow = 2 ' 结果起始行，可按需修改
    
    For i = 2 To lastRow
        leaveDates = ""
        For j = 2 To lastCol
            If ws.Cells(i, j).Value <> "" Then
                If leaveDates = "" Then
                    leaveDates = ws.Cells(1, j).Value
                Else
                    leaveDates = leaveDates & "、" & ws.Cells(1, j).Value
                End If
            End If
        Next j
        If leaveDates <> "" Then
            ws.Cells(resultRow, "Z").Value = ws.Cells(i, "A").Value & " 休假日期：" & leaveDates ' Z列为结果列，可修改
            resultRow = resultRow + 1
        End If
    Next i
End Sub

3. 运行脚本，指定列会自动生成符合要求的文本行。

内容的提问来源于stack exchange，提问作者Paul Stewart