作者：乔山办公网日期：
返回目录：excel表格制作
可以调用Excel中的函数，代码如下：
application.WorksheetFunction.Dec2hex（字符串）
StrConv 函数
语法StrConv(string, conversion, LCID)
StrConv 函数的语法有下面的命名参数：
部分 说明
string 必要参数。要转换的字符串表达式。
conversion 必要参数。Integer。其值的和决定转e68a84e8a2ade799bee5baa6330换的类型。
LCID 可选的。如果与系统LocaleID不同，则为LocaleID（系统LocaleID为缺省值。）
conversion 参数的设置值为：
常数 值 说明
vbUpperCase 1 将字符串文字转成大写。
vbLowerCase 2 将字符串文字转成小写。
vbProperCase 3 将字符串中每个字的开头字母转成大写。
vbWide* 4* 将字符串中单字节字符转成双字节字符。
vbNarrow* 8* 将字符串中双字节字符转成单字节字符。
vbKatakana** 16** 将字符串中平假名字符转成片假名字符。
vbHiragana** 32** 将字符串中片假名字符转成平假名字符。
vbUnicode 64 根据系统的缺省码页将字符串转成 Unicode。
vbFromUnicode 128 将字符串由 Unicode 转成系统的缺省码页。
说明：在把 ANSI 格式的 Byte 数组转换为字符串时，您应该使用 StrConv
函数。当您转换 Unicode 格式的这种数组时，使用赋值语句。
非要的话zhidao也不是不行
dim a,b,c as int
c =2
for a = 2 to range(a100).end(xlup)
for b = 1 to range(b2)
表2.cells(c,1) = cells(b,1)
next b
next a
是这么版一个意思，如果你一点都不懂的话，权那还是没用。
第一个问题,楼上已经解答了,
a=-20318
b=chr(a)即可得到zhidao阿
第二个问题:
首先VBA中不支持Chrw(1606)这个版阿拉伯字母,VBA始终将其显示为"?"
而ASC("?")是一直等于63的.所以权只要是VBA不认识的字符都将以?代替