步骤：按ALT+F11，打开VB编辑器，“插入”--“模块”，然后贴入下方代码：Function HTOD(CELL As Range) Dim i As Long Dim RltArr() As Variant For i = 1 To Len(CELL.Value) Step 4 ReDim Preserve RltArr(Int(i / 4)) RltArr(Int(i / 4)) = Application.Hex2Dec...