我有一个超过10,000,000行和3列的文本/ CSV文件 列名称:ClientName,CLientMobile,ClientData
ClientData采用十六进制格式。
目前我在做:
将文件拆分为每个900,000行的多个部分
打开每个文件 - 说文件1
将下面描述的函数粘贴为宏(Hex2Text的宏)
Public Function HexToText(Text As Range) As String
Dim i As Integer
Dim DummyStr As String
For i = 1 To Len(Text) Step 2
DummyStr = DummyStr & Chr(Val("&H" & (Mid(Text, i, 2))))
DoEvents
Next i
HexToText = DummyStr
End Function
转换列上的每个十六进制值" ClientData"使用上述函数"Hex2Text"
保存工作表。
面临的问题:
解决方案所需:
欢迎任何简单的解决方案/想法。