Excel自动化脚本需求：跨工作表读取值并批量粘贴列值

完全可以通过自动化脚本实现你的需求，以下提供两种适配SharePoint环境的方案：

方案1：Office Scripts（在线Excel原生支持） #

Office Scripts是微软为在线Excel设计的自动化工具，无需本地软件，直接在SharePoint网页端操作：

function main(workbook: ExcelScript.Workbook) {
    // 读取Sheet1的A1目标日期
    const targetDate = workbook.getWorksheet("Sheet1").getRange("A1").getValue() as Date;
    
    // 遍历Sheet2至Sheet38
    for (let i = 1; i <= 37; i++) {
        const currentSheet = workbook.getWorksheets()[i];
        if (!currentSheet) continue;
        
        // 获取第1行表头数据
        const headerValues = currentSheet.getRange("1:1").getValues()[0];
        
        // 匹配目标日期（忽略时间部分避免精度问题）
        const targetColIndex = headerValues.findIndex(cell => {
            return cell instanceof Date && cell.toDateString() === targetDate.toDateString();
        });
        
        if (targetColIndex === -1) {
            console.log(`${currentSheet.getName()}未找到目标日期`);
            continue;
        }
        
        // 获取对应列的已使用范围并转成值
        const targetColumn = currentSheet.getRangeByIndexes(0, targetColIndex, currentSheet.getUsedRange().getRowCount(), 1);
        targetColumn.setValue(targetColumn.getValues());
    }
}

使用步骤： #

• 打开SharePoint上的Excel文件，点击顶部「自动化」>「新建脚本」
• 粘贴上述代码，命名后保存并运行

方案2：VBA脚本（桌面端打开SharePoint文件） #

若习惯使用VBA，可通过桌面版Excel打开SharePoint文件后运行：

Sub ConvertFormulaToStaticValues()
    Dim targetDate As Date
    Dim ws As Worksheet
    Dim foundCell As Range
    Dim targetColumn As Range
    
    ' 获取Sheet1的A1日期
    targetDate = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    ' 遍历指定工作表
    For Each ws In ThisWorkbook.Worksheets
        If ws.Index >= 2 And ws.Index <= 38 Then
            ' 在第1行查找目标日期
            Set foundCell = ws.Rows(1).Find(What:=targetDate, LookIn:=xlValues, LookAt:=xlWhole)
            
            If Not foundCell Is Nothing Then
                ' 定位对应列的已使用区域
                Set targetColumn = ws.Range(foundCell, ws.Cells(ws.Rows.Count, foundCell.Column).End(xlUp))
                ' 公式转值
                targetColumn.Value = targetColumn.Value
            Else
                Debug.Print ws.Name & "未匹配到目标日期"
            End If
        End If
    Next ws
End Sub

使用步骤： #

• 用桌面版Excel打开SharePoint上的文件，按Alt+F11打开VBA编辑器
• 插入新模块，粘贴代码后运行宏

关键注意事项： #

• 日期匹配时需忽略时间戳的差异，避免因格式或精度问题导致查找失败
• 操作前建议备份文件，防止意外数据覆盖
• Office Scripts需确保账号拥有文件编辑权限，且文件已保存至SharePoint站点

内容的提问来源于stack exchange，提问作者Matthew Welch