excel平衡校验公式.docxVIP

excel平衡校验公式 Excel平衡校验公式（VBA代码）：Function XORChecksum(byteArray As Variant) As Byte Dim i As Integer Dim checksum As Byte checksum = 0 For i = LBound(byteArray) To UBound(byteArray) checksum = checksum Xor byteArray(i) Next i XORChecksum = checksumEnd Function参考资料：1. Excel VBA教程-字节数组的平衡校验（XOR Checksum）/gainplan/p/6188112.html2. XOR Checksum in Excel VBA/questionsxor-checksum-in-excel-vba