【WPS JSA】提取当前工作表中的所有公式-夜雨聆风

【WPS JSA】提取当前工作表中的所有公式

在WPS表格处理中，经常需要设置、查看、检查工作表中的各计算公式，手动一个个点击查看检查密密麻麻的公式让人眼花缭乱，还容易遗漏！

想快速知道哪些单元格有公式，公式内容是什么？今天教大家一个WPS JSA宏，一键提取当前工作表中所有公式，并自动生成公式清单，工作效率直接拉满！

【WPS JSA】代码：

function 提取当前工作表中的所有公式() {    // 获取当前活动工作表    let sheet = Application.ActiveSheet;    // 获取已使用区域    let usedRange = sheet.UsedRange;    // 创建结果数组    let result = [];    // 遍历所有单元格    for (let row = 1; row <= usedRange.Rows.Count; row++) {        for (let col = 1; col <= usedRange.Columns.Count; col++) {            let cell = usedRange.Cells.Item(row, col);            // 检查单元格是否有公式            if (cell.HasFormula) {                result.push({                    "地址": cell.Address(false,false),  // 单元格地址                    "公式": "'"+cell.Formula,         // 公式内容                    "值": cell.Value2             // 公式计算结果                });            }        }    }    // 创建新工作表并命名let newSheet = Worksheets.Add();let timestamp = getTimestamp();// 将结果写入新工作表	newSheet.Name = `提取的公式列表_${timestamp}`;    // 写入标题行    newSheet.Range("A1:C1").Value2 = [["单元格地址", "公式内容", "计算结果"]];    // 写入数据    if (result.length > 0) {        for (let i = 0; i < result.length; i++) {            newSheet.Range(`A${i+2}`).Value2 = result[i]["地址"];            newSheet.Range(`B${i+2}`).Value2 = result[i]["公式"];            newSheet.Range(`C${i+2}`).Value2 = result[i]["值"];        }    }    // 自动调整列宽    newSheet.Columns("A:C").AutoFit();    return "公式提取完成，共提取 " + result.length + " 个公式";}//时间戳，给新建工作表加后缀，避免重名function getTimestamp() {    let now = new Date();    let year = now.getFullYear();    let month = String(now.getMonth() + 1).padStart(2, '0');   // 月份从0开始    let day = String(now.getDate()).padStart(2, '0');    let hour = String(now.getHours()).padStart(2, '0');    let minute = String(now.getMinutes()).padStart(2, '0');    let second = String(now.getSeconds()).padStart(2, '0');    return `${year}${month}${day}_${hour}${minute}${second}`;}