如何在Excel中计算单元格区域哈希值以对比行内容？

由于Excel无内置哈希函数，可通过以下三种方式实现MD5、SHA系列算法的哈希计算：

方法1：VBA自定义函数（桌面版Excel） #

通过编写VBA宏实现自定义哈希计算函数，支持MD5、SHA1、SHA256、SHA512等算法。

步骤： #

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿→插入→模块。
2. 粘贴以下代码：

Function GetHash(rng As Range, Optional algorithm As String = "MD5") As String
    Dim cell As Range
    Dim combinedText As String
    Dim cryptoProvider As Object
    Dim hashBytes() As Byte
    Dim i As Integer
    Dim hashHex As String
    
    ' 用唯一分隔符拼接区域内容，避免误判
    combinedText = ""
    For Each cell In rng
        combinedText = combinedText & cell.Value & "|"
    Next cell
    combinedText = Left(combinedText, Len(combinedText) - 1)
    
    ' 创建加密对象（支持MD5/SHA1/SHA256/SHA512）
    Set cryptoProvider = CreateObject("System.Security.Cryptography." & algorithm & "Managed")
    hashBytes = cryptoProvider.ComputeHash(StrConv(combinedText, vbFromUnicode))
    
    ' 转换为十六进制哈希字符串
    hashHex = ""
    For i = LBound(hashBytes) To UBound(hashBytes)
        hashHex = hashHex & Hex(hashBytes(i))
    Next i
    
    GetHash = LCase(hashHex)
End Function

3. 保存工作簿为.xlsm（启用宏格式）。

使用方式： #

计算A1:C1区域的MD5哈希：=GetHash(A1:C1, "MD5")
计算A2:C2区域的SHA256哈希：=GetHash(A2:C2, "SHA256")
对比两行一致性：=IF(GetHash(A1:C1)=GetHash(A2:C2), "内容一致", "内容不同")

方法2：Power Query（桌面/在线版通用） #

利用Power Query的内置哈希函数实现无宏计算。

步骤： #

1. 选中目标数据区域，点击数据→从表格/区域（导入Power Query编辑器）。
2. 添加拼接列：点击添加列→自定义列，输入公式（替换列名为实际列名）：

= Text.Combine({[列1], [列2], [列3]}, "|")

3. 添加哈希列：再次点击自定义列，选择对应算法：

• MD5：= Hash.MD5([自定义列])
• SHA256：= Hash.SHA256([自定义列])

4. 点击关闭并上载，将结果导回Excel，直接对比相邻行哈希值即可判断一致性。

方法3：Office Scripts（在线版Excel） #

通过TypeScript脚本实现哈希计算，适合Excel网页版用户。

步骤： #

1. 打开在线Excel，点击自动化→新建脚本。
2. 粘贴以下代码（修改区域地址为实际值）：

function main(workbook: ExcelScript.Workbook) {
    const targetRanges = ["A1:C1", "A2:C2"]; // 要计算的单元格区域
    const outputCells = ["D1", "D2"]; // 哈希值输出位置
    const separator = "|"; // 内容分隔符

    targetRanges.forEach((rangeAddr, index) => {
        const range = workbook.getActiveWorksheet().getRange(rangeAddr);
        const values = range.getValues();
        let combinedText = "";

        // 拼接区域内容
        values.forEach(row => {
            row.forEach(cell => combinedText += cell + separator);
        });
        combinedText = combinedText.slice(0, -1);

        // 计算SHA256哈希（可替换为MD5）
        const hash = Utilities.Crypto.hash(combinedText, ExcelScript.CryptoAlgorithm.SHA256);
        workbook.getActiveWorksheet().getRange(outputCells[index]).setValue(hash);
    });
}

3. 点击运行，哈希值会自动写入指定单元格，后续直接对比即可。

注意事项： #

• 分隔符需选用不会出现在单元格内容中的字符（如|、^），避免误判。
• 若需忽略大小写，可在拼接前将所有内容转为小写/大写（如VBA中用LCase(cell.Value)）。
• VBA方法需启用宏，Power Query和Office Scripts无需宏权限。

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