/** * 提取表头 Macro */ function 提取表头() { } 请补全上述代码实现在wps使用宏将excel表的所有表头字段以英文逗号连接，并填充在最后一个空白列的第一个单元格内

Function 提取表头() As String
    Dim ws As Worksheet ' 工作表对象
    Dim headersRange As Range ' 表头范围
    Dim headerList As String ' 存储表头的字符串列表
    Dim lastColumn As Long ' 最后一列的索引
    
    ' 设置工作表为当前活动的工作表
    Set ws = ActiveSheet
    
    ' 假设表头在第一行
    Set headersRange = ws.Range("1:1") ' 范围从A1到A1(如果只有一个表头)
    
    ' 如果表头跨越了多行，可以用For Each循环遍历每一行
    ' For Each header In headersRange.Rows(1).Cells ' 例如这里假设是这样
    '     headerList = headerList & header.Value & ", "
    ' Next header
    
    ' 获取最后一列的索引
    lastColumn = ws.Cells(ws.Rows.Count, "A").End(xlUp).Column ' 这里查找的是A列的最后一行

    ' 将所有表头合并成一个字符串，去掉最后的逗号
    headerList = Join(headersRange, ", ")
    headerList = Left(headerList, Len(headerList) - 2) ' 去掉最后一个逗号
    
    ' 将结果填入最后一列的第一个单元格
    ws.Cells(lastColumn, 1).Value = headerList
    
    ' 函数返回结果，但在WPS Office中，直接赋值给变量即可，不需要额外return
    ' 提取表头 = headerList ' WPS Office中无需此行
End Function