[已解决]如何用VBA批量转换为16进制

浪子神剑 · 发表于 2010-9-30 17:10

MECbWScU.rar (5.36 KB, 下载次数: 21)

蓝桥玄霜 · 发表于 2010-9-30 17:52

是要把“百”转换成“%B0%D9”？

浪子神剑 · 发表于 2010-9-30 18:12

就是要写个程序按照要求把它们改成相应的十六进制（这里就举出了四个例子）：

无机物热力学数据手册

GB/T 8364-2008 热双金属热弯曲试验方法

GB/T 7732-2008 金属材料表面裂纹拉伸试样断裂韧度试验方法

API STD 622-2006 炼油阀门防泄漏结构的型式试验

……

爱疯 · 发表于 2010-9-30 18:29

规则3，%在前面；B列，%在后面

[em09]

爱疯 · 发表于 2010-9-30 18:42

除了百分号，对汉字的转换结果也不一样。例如：按规则的话是不是：

Sub tt()
MsgBox VBA.Hex(Asc("无")) 'CEDE
End Sub
而B1第1个汉字转换后是，"E697"

是不是哪儿还没说？

浪子神剑 · 发表于 2010-9-30 19:09

把规则三去掉了。规则三不对。呵呵，是我的错

爱疯 · 发表于 2010-9-30 19:33

Sub 按钮3_Click()
    Dim arr, i&

    With Sheets(1)
        arr = .Range("A1:B" & .Range("A65536").End(xlUp).Row)

        For i = 1 To UBound(arr)
            arr(i, 2) = Replace(arr(i, 1), "/", "")    '规则1
            arr(i, 2) = Replace(arr(i, 1), " ", "%20")    '规则2
        Next i

        Columns(2).ClearContents
        .Range("A1").Resize(UBound(arr), 2) = arr
    End With
End Sub

mMop237J.rar (11.9 KB, 下载次数: 8)

浪子神剑 · 发表于 2010-9-30 21:56

试了下，好像是不对，汉字没变汉字是 utf-8编码

[此贴子已经被作者于2010-9-30 22:02:29编辑过]

爱疯 · 发表于 2010-10-1 12:51

LOiVf8jr.rar (12.48 KB, 下载次数: 65)

浪子神剑 · 发表于 2010-10-1 21:41

非常感谢！节日快乐！

		自动登录	找回密码
密码			注册