Use Excel Macro

'根据列号获取列字母
Function 根据列号获取列字母(sz)
tozm = Replace(Cells(1, sz).Address, “$”, “”)
根据列号获取列字母 = Replace(tozm, “1”, “”)
'tozm = LCase(tozm) 转换成小写
End Function

'复制并粘贴成数字格式
Function 复制并粘贴成数字格式(CopyPaste_SZ)
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Function