excel中数字转换英文大写程序

第一篇：excel中数字转换英文大写程序

Function NumbToEnglish(ByVal MyNumber)

Dim Temp

Dim Inte, Dec

Dim DecimalPlace, Count

ReDim Place(9)As String

Place(2)= “ Thousand ”

Place(3)= “ Million ”

Place(4)= “ Billion ”

Place(5)= “ Trillion ”

' 将数字Mynumber转换成字符串格式，并去掉多余空格

MyNumber = Trim(Str(MyNumber))

' 查找小数点“.”位置

DecimalPlace = InStr(MyNumber, “.”)

' 如果找到小数点...If DecimalPlace > 0 Then

' 转换小数部分

Temp = Len(Mid(MyNumber, DecimalPlace + 1))

Count = 1

Dec = “"

Do While Count1))

End If

Count = 1

Do While MyNumber <> ”“

' 将最后的三位数字转换成英文数字

Temp = ConvertHundreds(Right(MyNumber, 3))

If Temp <> ”“ Then Inte = Temp & Place(Count)& Inte

If Len(MyNumber)> 3 Then

' 如果整数部分大于三位，再向前移动三位数字重复进行转换

MyNumber = Left(MyNumber, Len(MyNumber)19 之间?

If Val(Left(MyTens, 1))= 1 Then

Select Case Val(MyTens)

Case 10: Result = ”Ten“

Case 11: Result = ”Eleven“

Case 12: Result = ”Twelve“

Case 13: Result = ”Thirteen“

Case 14: Result = ”Fourteen“

Case 15: Result = ”Fifteen“

Case 16: Result = ”Sixteen“

Case 17: Result = ”Seventeen“

Case 18: Result = ”Eighteen“

Case 19: Result = ”Nineteen“

Case Else

End Select

Else

'..否则,它是介于 20-99 之间.Select Case Val(Left(MyTens, 1))

Case 2: Result = ”Twenty“

Case 3: Result = ”Thirty“

Case 4: Result = ”Forty“

Case 5: Result = ”Fifty“

Case 6: Result = ”Sixty“

Case 7: Result = ”Seventy“

Case 8: Result = ”Eighty“

Case 9: Result = ”Ninety“

Case Else

End Select

' 转换其中的个位数.If Val(Right(MyTens, 1))= 0 Then

Result = Result & ” “ & ConvertDigit(Right(MyTens, 1))

Else

Result = Result & ”-“ & ConvertDigit(Right(MyTens, 1))

End If

End If

ConvertTens = Result

End Function

' 定义子函数，转换个位数

Private Function ConvertDigit(ByVal MyDigit)

Select Case Val(MyDigit)

Case 1: ConvertDigit = ”One“

Case 2: ConvertDigit = ”Two“

Case 3: ConvertDigit = ”Three“

Case 4: ConvertDigit = ”Four“

Case 5: ConvertDigit = ”Five“

Case 6: ConvertDigit = ”Six“

Case 7: ConvertDigit = ”Seven“

Case 8: ConvertDigit = ”Eight“

Case 9: ConvertDigit = ”Nine“

Case Else: ConvertDigit = ”“

End Select

End Function

' 定义子函数，转换小数部分

Private Function ConvertDecimal(ByVal MyDecimal)

Select Case Val(MyDecimal)

Case 1: ConvertDecimal = ”One“

Case 2: ConvertDecimal = ”Two“

Case 3: ConvertDecimal = ”Three“

Case 4: ConvertDecimal = ”Four“

Case 5: ConvertDecimal = ”Five“

Case 6: ConvertDecimal = ”Six“

Case 7: ConvertDecimal = ”Seven“

Case 8: ConvertDecimal = ”Eight“

Case 9: ConvertDecimal = ”Nine“

Case Else: ConvertDecimal = ”Zero"

End Select

End Function

Sub bbb()MsgBox NumbToEnglish(123.31)End Sub

然后再按ALF+F11,切换回EXCEL窗口，假如100在A1单元格，你在B1单元格输入 =NUMBTOENGLISH(A1)最后下拉填充即可。

第二篇：数字大写

数字：零、壹、贰、叁、肆、伍、陆、柒、捌、玖 数量单位：拾、佰、仟、万、亿

金额单位：元(圆)、角、分、零、整（原则上角后不写“整”）

第三篇：英文书法【Copperplate】第二部分——大写、数字及标点

英文书法【Copperplate】第二部分——大写、数字及标点

整理：新浪微博@香菜不追爱

大写字母的一些基本笔画

The Basic Downstroke

这个笔画是两头细中间粗的，占上面和中间两格。先在右边作出很小的向左下的弧线，期间渐渐加大压力，弯到差不多55°时沿着55°线直向下，快到基础线时渐渐放松笔尖，完成另外一个小的弧型。第二个弧形需要接触基础线。

这个笔画通常有两种结束方式。

第一种是以点结束，在作第二个弧形时继续挑笔，然后向基础线转回去，笔尖稍稍按一下。

第二种选择是以顺时针的盘旋结束的。第二个弧形结束是向上作出弧形，超过腰线，然后转回来，并且开始施加压力，最后再向上转。确保是以细线结束并且盘旋部分仍旧整体55°倾斜。

以上是一些错误的例子

第一个开头没有弧形并且是方的 第二个最后转得太过了

第三个没有以细笔画结束

第四个盘旋的地方太小了 第五个没有整体55°倾斜

The Basic Upstroke

这个笔画样子和上一个差不多，但是它是一个向上的笔画。写第一笔是向上写的，因此没有压力，其余都一样。

The O-Form

这个参照小写的o-form就可以了，注意比例。

The(Nearly)Vertical Swelled Stroke

这个笔画名字里虽然有个“垂直”，但它并不是完全垂直的，这一笔仍旧有80°~70°左右的倾斜，至于写法与第一种一样。

大写字母的一些基本笔画2

The Spiral Lead-In Stroke

这个笔画是顺时针写的，先向上向右转，顺时针向下，向上···以接触到最上面的线的细线结束。

The Loop

这个环与上面的盘旋类似，从最上面的那行中间开始，作出细线的向上的弧线，向下时开始用力，接近腰线时向左转，作出一个环形。

The Pressure-And-Release Lead-In Stroke

这个参照小写时的The Pressure-And-Release Stroke就可以了，只是在最后结束时有一个向右的稍稍的弧线。

The Horizontal Lead-In Strokes

第一种是最上面那条线开始，向左拐，然后再向右，最后转回最上面的线。第二种和小写f的其中一笔，这个笔画需要接触最上面的线两次。

大写字母——由于大写字母的写法很多，所以只能详细介绍几种比较基础的。

ABCD

A

这种写法的A由一个Basic Upstroke，一个downstroke和一条细线组成。A的最上面是不碰到线的，并且带有一定弧度。

以上是一些错误的写法

第一个太窄

第二个顶上太方

第三个细线太高

一些其他写法

B

以上包括了三种写法。由Basic Downstroke 开始，结束方式随便选。第二笔由盘旋或环开始，穿过downstroke，做出两个弧。这两个弧由一个很小的环形分隔。环有时候会碰到downstroke。下面的弧形要比上面的宽。

以上是一些错误的写法

第一个中间的环过低了

第二个是下面的弧形太宽

第三个是中间的弧形太小且离第一笔太远

第四个上面环形的细线太粗且下面不够圆润

一些其他写法

C

C一笔完成。最后的盘旋要高出腰线一点点。

以上是一些错误的写法

第一个是环和盘旋太小了

第二个是没有依照O-Form而是沿着55°线写

第三个是最后一笔没有写出细线

一些其他写法

D

尽管D看起来像一笔写成的，但是它事实上是由两笔组成的。第一笔是一个由环结束的basic downstroke，第二笔由盘旋或者环开始，穿过downstroke完成一个弓形，接触基础线之后稍稍向上与第一笔相接。

以上是一些错误的写法

第一个两笔连接得不对

第二个上下不平衡

第三个基础线上的欢太大太圆

一些其他写法

EFGH

E

E由O-Form为基础，一笔完成。像写C一样开始，类似B，E也要有两的大的被一个小的环形分割的弧形。下面的弧形要比上面的大。

以上是一些错误的例子

第一个是引导的那笔太低了 第二个是盘旋什么的太小

第三个是E的左边两个大弧形在一条55°线上了 第四个是下面的弧形太大

其他写法

F

上面的F由三笔完成。先写出盘旋或环形的引导线。注意细线要与最上面接触两次。第二笔是basic downstroke，在第一笔下方开始，以点或者盘旋结束。中间的horizontal stroke既可以是弧线又可以是直线。

通过不同的组合，可以得到以上很多种F的造型

其他写法

G

G由两笔组成，G上半部分大约是一个弧形的引导线和一个O-Form。上半部分下面大约在中间那格的2/3处，第二笔没什么好说的。

其他写法

H

H由一笔完成，由Pressure-And-Release Lead-In Stroke或者Horizontal Lead-In Stroke开始，稍稍向下按，使downstroke有一个小的弧形，加大压力直到downstroke快到基础线，完成一个环形，向上，再作一个环形，以Pressure-And-Release Stroke结束。注意左右平衡。

以上是一些错误的例子 第一个开头部分太大了

第二个间距太小不起上面的环形太小 第三个右边那笔不直

其他写法

IJKL

I

I由两笔组成。第一笔是basic downstroke，点或者盘旋结束都可以。第二笔是新的样子，在第一笔开始的地方开始，向左作出小小的弧形，然后再作出盘旋

以上是一些错误的例子

第一个是第二笔的顶端太用力了

第二个是第二笔结束的时候太用力了，写那部分时是没有压力的。

其他写法

J

J的写法与I相似，就不多说了。

其他写法

K

K由两笔组成。主要讲一下第二笔，从最上面的线开始，用力，放松，用力。尖的地方大约在第一笔的中间

其他写法

L

L是一笔的字母，以一个弧形的引导的笔画开始，向左转，然后向下完成基础的线，接着完成一个像D一样的弧形，最后继续这一笔，没有压力地完成一条弧线。

以上是一些错误的例子

第一个是顶部的弧形环形太小 第二个是中间基本的线压力太大

其他写法

MNOP

M

M是两个向上的笔画和两个向下的笔画组成的。第一笔像A的第一笔，要比55°线稍微斜一些。第二笔是The(Nearly)Vertical Swelled Stroke，开头结尾的弧度不要太大，比80°要斜。第三笔就是第一笔的细线部分，第四笔注意顶部有一点小的弧度，并且是尖的。

以上是一些错误的例子

第一个是向下的笔画开头结尾太粗 第二个是两个向下的笔画不平行 第三个是向下的笔画不够斜

其他写法

N

N和M相似，尽管它笔画直接的角度要比M大。

以上是一些错误的例子 第一个是向下的笔画太斜 第二个是上下弧度太大

其他写法

O

O主要就是一个O-Form，就是结束时要以环结束。

以上是一些错误的例子 第一个是环太大 第二个太小

第三个是挑笔太直

其他写法

P

第一笔是Basic Downstroke。第二笔是盘旋或者环开始接触最上面的线之后向下转。

其他写法

QRST

Q

Q基本上就是一个大的盘旋。在上面那格的中间开始顺时针旋转，像L一样结束。

以上是一些错误的例子

第一个是下面的环太靠右

第二个是向下的笔画太僵硬

其他写法

R

R就是B和K的结合

其他写法

S

这种S一笔完成。先写出一个向上 的挑笔，略微有一些向上的弧度到顶之后向左转，沿着55°线向下，完成一个basic downstroke。

以上是一些错误的例子

第一个是起笔没有向上的弧度

第二个是向下的那边太斜

第二个是上面的环太大以及盘旋太小

其他写法

T

这个按着F写就可以了

其他写法

UVWX

U

U由两笔完成。第一笔由盘旋或者环开始，然后向下，以到达腰线的挑笔结束。第二笔是稍短一些的pressure-and-release stroke，大约是上面一行的1/3处开始。

以上是一些错误的例子

第一个是间距太小

第二个是第二笔起笔太高

其他写法

V

这个V弯很多，需要耐心写。从pressure-and-release lead-in stroke或者horizontal hairline开始，结束有一点向右的弧度。第二笔是稍稍有倾斜的向下的笔画，细线开头或结束。最后一笔是向上写的，稍稍向右倾斜之后再向左稍弯。

以上是一些错误的例子

第一个V第二笔要几乎垂直了

第二个V的第二笔依着55°写了，导致字母太斜

第三个是向上的笔画太弯了

第四个是最后一笔开始太直，最后又太弯

其他写法

W

W就像两个V。第一个挑笔要写直，其余和V差不多。

以上是一些错误的例子

第一个间距太大，主要是向下笔画太直造成的第二个没有轻重轻地写downstroke

第三个是第二个downstroke没有和第一个平行

其他写法

X

这个X是由一笔写成的，注意第一个downstroke是没有压力的细笔画

以上是一些错误的例子

第一个是第一个downstroke太直了

第二个是第一个downstroke应该没有压力的 第三个和第四个都是左右两个环大小不均衡

其他写法

YZ

Y

Y的第一笔与U类似，只是没有碰到基础线。第二笔与G类似。在上面那格2/3处向下，挑笔穿过基础线。

其他写法

Z

这种Z由三笔组成。第一笔和第三笔都类似horizontal lead-in stroke，就是弧度要稍大一些。第二笔注意是轻重轻的写法。

以上是一些错误的例子

第一个是中间那笔顶端和底部要比中间粗 第二个弧度不够

第三个是上下不平衡

其他写法

连笔——主要是给出详细写法的字母的连笔

这里主要给出一些例子

数字

数字的一些老式写法

Old-Style Numbers

1的高度和小写t差不多，向下的笔画是顶部细底端方的。

2的高度和1相同

3的高度与12大约相同，注意下面的弧是在55°线右边的。

第二笔注意和1的写法是一样的

第二笔注意后面有一个点的结尾

6的高度和小写d相同，第一笔像是写O，第二笔是从一个挑笔开始的。18世纪的exemplars第二笔开始不总是碰到第一笔的【第二个6】

7的长度与4相同。18世纪的exemplars中的7长度更长，downstroke也要比55°斜

8是有三笔组成的，它高度与6差不多，但有时也会写得和12350差不多高。8的右侧是沿着55°线的。

9的高度和7差不多。

0的写法与大写Q相似，高度与1235相同

数字的一些现代写法

Modern-Style Numbers

4的造型和老式的相同，但是大小是其3/4,。6,7,8,9也是这样

它与旧式的不同之处是第一笔开始时有压力的粗线，第三笔弧度更小。

这两个就是高度改变了

现代的8是一笔写成的，以上两种写法都可以

和4道理一样

标点

.，:

;

'

“ ”!

?

$

-~

&

第四篇：excel中中文转换英文

============== Excel中文转拼音（简称版）

============== 打开Excel->工具->宏->Viaual Basic编辑器

在弹出来的窗口中对着VBAproject点右键->插入->模块 下面会出现一个名为“模块1”，粘贴以下内容： Function getpychar(char)tmp = 65536 + Asc(char)If(tmp >= 45217 And tmp <= 45252)Then getpychar = “A” ElseIf(tmp >= 45253 And tmp <= 45760)Then getpychar = “B” ElseIf(tmp >= 45761 And tmp <= 46317)Then getpychar = “C” ElseIf(tmp >= 46318 And tmp <= 46825)Then getpychar = “D” ElseIf(tmp >= 46826 And tmp <= 47009)Then getpychar = “E” ElseIf(tmp >= 47010 And tmp <= 47296)Then getpychar = “F” ElseIf(tmp >= 47297 And tmp <= 47613)Then getpychar = “G” ElseIf(tmp >= 47614 And tmp <= 48118)Then getpychar = “H” ElseIf(tmp >= 48119 And tmp <= 49061)Then getpychar = “J” ElseIf(tmp >= 49062 And tmp <= 49323)Then getpychar = “K” ElseIf(tmp >= 49324 And tmp <= 49895)Then getpychar = “L” ElseIf(tmp >= 49896 And tmp <= 50370)Then getpychar = “M” ElseIf(tmp >= 50371 And tmp <= 50613)Then getpychar = “N” ElseIf(tmp >= 50614 And tmp <= 50621)Then getpychar = “O” ElseIf(tmp >= 50622 And tmp <= 50905)Then getpychar = “P” ElseIf(tmp >= 50906 And tmp <= 51386)Then getpychar = “Q” ElseIf(tmp >= 51387 And tmp <= 51445)Then getpychar = “R” ElseIf(tmp >= 51446 And tmp <= 52217)Then getpychar = “S” ElseIf(tmp >= 52218 And tmp <= 52697)Then getpychar = “T” ElseIf(tmp >= 52698 And tmp <= 52979)Then getpychar = “W” ElseIf(tmp >= 52980 And tmp <= 53640)Then getpychar = “X” ElseIf(tmp >= 53689 And tmp <= 54480)Then getpychar = “Y” ElseIf(tmp >= 54481 And tmp <= 62289)Then getpychar = “Z” Else '如果不是中文，则不处理 getpychar = char End If End Function Function getpy(str)For i = 1 To Len(str)getpy = getpy & getpychar(Mid(str, i, 1))Next i End Function

现在转换函数已编写完成!关掉此编缉的窗口。要在Excel中使用，方法如下： A1 A2 中国 =getpy(A1)

============== Excel中文转拼音（完整版）

============== 打开Excel->工具->宏->Viaual Basic编辑器

在弹出来的窗口中对着VBAproject点右键->插入->模块 下面会出现一个名为“模块2”，点击 在右边的空白栏中粘贴以下内容： Option Explicit Option Compare Text Public Function HZQP(expression As String, Optional delimiter As String = “ ”, Optional limit As Integer =-1)As String 'expression ' 必需的?包含要转换的字符串? 'delimiter ' 可选的。用于标识分隔拼音的字符串字符。如果忽略，则使用空格字符(“ ”)作为分隔符。如果

'delimiter是一个长度为零的字符串，则返回仅包含一个元素，即完整的 expression字符串。'limit ' 可选的。要返回拼音字符数，–1表示返回所有的拼音字符数，1表示返回拼音首字母。

Dim STR As String, arrWord(400)As String Dim i As Integer, j As Integer arrWord(1)= “吖a” arrWord(2)= “哎ai” arrWord(3)= “腤an” arrWord(4)= “肮ang” arrWord(5)= “凹ao” arrWord(6)= “八ba” arrWord(7)= “挀bai” arrWord(8)= “扳ban” arrWord(9)= “邦bang” arrWord(10)= “勹bao” arrWord(11)= “陂bei” arrWord(12)= “奔ben” arrWord(13)= “崩beng” arrWord(14)= “皀bi” arrWord(15)= “边bian” arrWord(16)= “杓biao” arrWord(17)= “憋bie” arrWord(18)= “邠bin” arrWord(19)= “仌bing” arrWord(20)= “拨bo” arrWord(21)= “峬bu” arrWord(22)= “嚓ca” arrWord(23)= “猜cai” arrWord(24)= “飡can” arrWord(25)= “仓cang” arrWord(26)= “撡cao” arrWord(27)= “冊ce” arrWord(28)= “嵾cen” arrWord(29)= “噌ceng” arrWord(30)= “*cha” arrWord(31)= “拆chai” arrWord(32)= “辿chan” arrWord(33)= “伥chang” arrWord(34)= “抄chao” arrWord(35)= “车che” arrWord(36)= “抻chen” arrWord(37)= “阷cheng” arrWord(38)= “吃chi” arrWord(39)= “充chong” arrWord(40)= “抽chou” arrWord(41)= “出chu” arrWord(42)= “搋chuai” arrWord(43)= “巛chuan” arrWord(44)= “刅chuang” arrWord(45)= “吹chui” arrWord(46)= “旾chun” arrWord(47)= “踔chuo” arrWord(48)= “呲ci” arrWord(49)= “从cong” arrWord(50)= “凑cou” arrWord(51)= “粗cu” arrWord(52)= “汆cuan” arrWord(53)= “崔cui” arrWord(54)= “邨cun” arrWord(55)= “搓cuo” arrWord(56)= “咑da” arrWord(57)= “呆dai” arrWord(58)= “丹dan” arrWord(59)= “当dang” arrWord(60)= “刀dao” arrWord(61)= “恴de” arrWord(62)= “灯deng” arrWord(63)= “仾di” arrWord(64)= “敁dian” arrWord(65)= “刁diao” arrWord(66)= “爹die” arrWord(67)= “丁ding” arrWord(68)= “丟diu” arrWord(69)= “东dong” arrWord(70)= “剅dou” arrWord(71)= “嘟du” arrWord(72)= “耑duan” arrWord(73)= “垖dui” arrWord(74)= “吨dun” arrWord(75)= “多duo” arrWord(76)= “妸e” arrWord(77)= “奀en” arrWord(78)= “儿er” arrWord(79)= “发fa” arrWord(80)= “帆fan” arrWord(81)= “方fang” arrWord(82)= “飞fei” arrWord(83)= “分fen” arrWord(84)= “丰feng” arrWord(85)= “仏fo” arrWord(86)= “紑fou” arrWord(87)= “夫fu” arrWord(88)= “旮ga” arrWord(89)= “该gai” arrWord(90)= “干gan” arrWord(91)= “冈gang” arrWord(92)= “皋gao” arrWord(93)= “戈ge” arrWord(94)= “给gei” arrWord(95)= “根gen” arrWord(96)= “更geng” arrWord(97)= “工gong” arrWord(98)= “勾gou” arrWord(99)= “估gu” arrWord(100)= “瓜gua” arrWord(101)= “乖guai” arrWord(102)= “关guan” arrWord(103)= “光guang” arrWord(104)= “归gui” arrWord(105)= “衮gun” arrWord(106)= “呙guo” arrWord(107)= “铪ha” arrWord(108)= “嗨hai” arrWord(109)= “佄han” arrWord(110)= “夯hang” arrWord(111)= “蒿hao” arrWord(112)= “诃he” arrWord(113)= “黒hei” arrWord(114)= “拫hen” arrWord(115)= “亨heng” arrWord(116)= “叿hong” arrWord(117)= “侯hou” arrWord(118)= “乎hu” arrWord(119)= “花hua” arrWord(120)= “怀huai” arrWord(121)= “欢huan” arrWord(122)= “巟huang” arrWord(123)= “灰hui” arrWord(124)= “昏hun” arrWord(125)= “吙huo” arrWord(126)= “丌ji” arrWord(127)= “加jia” arrWord(128)= “戋jian” arrWord(129)= “江jiang” arrWord(130)= “艽jiao” arrWord(131)= “阶jie” arrWord(132)= “巾jin” arrWord(133)= “坕jing” arrWord(134)= “冂jiong” arrWord(135)= “丩jiu” arrWord(136)= “凥ju” arrWord(137)= “姢juan” arrWord(138)= “噘jue” arrWord(139)= “军jun” arrWord(140)= “咔ka” arrWord(141)= “开kai” arrWord(142)= “刊kan” arrWord(143)= “忼kang” arrWord(144)= “*kao” arrWord(145)= “匼ke” arrWord(146)= “肎ken” arrWord(147)= “劥keng” arrWord(148)= “空kong” arrWord(149)= “抠kou” arrWord(150)= “郀ku” arrWord(151)= “夸kua” arrWord(152)= “蒯kuai” arrWord(153)= “宽kuan” arrWord(154)= “匡kuang” arrWord(155)= “亏kui” arrWord(156)= “坤kun” arrWord(157)= “扩kuo” arrWord(158)= “垃la” arrWord(159)= “来lai” arrWord(160)= “兰lan” arrWord(161)= “啷lang” arrWord(162)= “捞lao” arrWord(163)= “仂le” arrWord(164)= “雷lei” arrWord(165)= “塄leng” arrWord(166)= “唎li” arrWord(167)= “俩lia” arrWord(168)= “嫾lian” arrWord(169)= “簗liang” arrWord(170)= “蹽liao” arrWord(171)= “咧lie” arrWord(172)= “邻lin” arrWord(173)= “伶ling” arrWord(174)= “溜liu” arrWord(175)= “囖lo” arrWord(176)= “龙long” arrWord(177)= “娄lou” arrWord(178)= “露lu” arrWord(179)= “驴lv” arrWord(180)= “孪luan” arrWord(181)= “掠lue” arrWord(182)= “抡lun” arrWord(183)= “頱luo” arrWord(184)= “妈ma” arrWord(185)= “埋mai” arrWord(186)= “颟man” arrWord(187)= “牤mang” arrWord(188)= “猫mao” arrWord(189)= “庅me” arrWord(190)= “沒mei” arrWord(191)= “椚men” arrWord(192)= “掹meng” arrWord(193)= “咪mi” arrWord(194)= “芇mian” arrWord(195)= “喵miao” arrWord(196)= “乜mie” arrWord(197)= “民min” arrWord(198)= “名ming” arrWord(199)= “谬miu” arrWord(200)= “摸mo” arrWord(201)= “哞mou” arrWord(202)= “母mu” arrWord(203)= “拏na” arrWord(204)= “腉nai” arrWord(205)= “囡nan” arrWord(206)= “囔nang” arrWord(207)= “孬nao” arrWord(208)= “讷ne” arrWord(209)= “馁nei” arrWord(210)= “嫩nen” arrWord(211)= “能neng” arrWord(212)= “妮ni” arrWord(213)= “拈nian” arrWord(214)= “娘niang” arrWord(215)= “鸟niao” arrWord(216)= “捏nie” arrWord(217)= “脌nin” arrWord(218)= “宁ning” arrWord(219)= “妞niu” arrWord(220)= “农nong” arrWord(221)= “奴nu” arrWord(222)= “女nv” arrWord(223)= “疟nue” arrWord(224)= “奻nuan” arrWord(225)= “郍nuo” arrWord(226)= “噢o” arrWord(227)= “讴ou” arrWord(228)= “妑pa” arrWord(229)= “拍pai” arrWord(230)= “眅pan” arrWord(231)= “乓pang” arrWord(232)= “抛pao” arrWord(233)= “呸pei” arrWord(234)= “喷pen” arrWord(235)= “匉peng” arrWord(236)= “丕pi” arrWord(237)= “片pian” arrWord(238)= “剽piao” arrWord(239)= “氕pie” arrWord(240)= “姘pin” arrWord(241)= “娉ping” arrWord(242)= “钋po” arrWord(243)= “仆pu” arrWord(244)= “七qi” arrWord(245)= “掐qia” arrWord(246)= “千qian” arrWord(247)= “呛qiang” arrWord(248)= “悄qiao” arrWord(249)= “切qie” arrWord(250)= “亲qin” arrWord(251)= “靑qing” arrWord(252)= “宆qiong” arrWord(253)= “丘qiu” arrWord(254)= “区qu” arrWord(255)= “峑quan” arrWord(256)= “炔que” arrWord(257)= “夋qun” arrWord(258)= “呥ran” arrWord(259)= “穣rang” arrWord(260)= “荛rao” arrWord(261)= “惹re” arrWord(262)= “人ren” arrWord(263)= “扔reng” arrWord(264)= “日ri” arrWord(265)= “戎rong” arrWord(266)= “厹rou” arrWord(267)= “嶿ru” arrWord(268)= “堧ruan” arrWord(269)= “桵rui” arrWord(270)= “闰run” arrWord(271)= “叒ruo” arrWord(272)= “仨sa” arrWord(273)= “毢sai” arrWord(274)= “三san” arrWord(275)= “桒sang” arrWord(276)= “掻sao” arrWord(277)= “色se” arrWord(278)= “森sen” arrWord(279)= “僧seng” arrWord(280)= “杀sha” arrWord(281)= “筛shai” arrWord(282)= “山shan” arrWord(283)= “伤shang” arrWord(284)= “弰shao” arrWord(285)= “奢she” arrWord(286)= “申shen” arrWord(287)= “升sheng” arrWord(288)= “尸shi” arrWord(289)= “収shou” arrWord(290)= “书shu” arrWord(291)= “刷shua” arrWord(292)= “衰shuai” arrWord(293)= “闩shuan” arrWord(294)= “霜shuang” arrWord(295)= “谁shui” arrWord(296)= “吮shun” arrWord(297)= “说shuo” arrWord(298)= “厶si” arrWord(299)= “忪song” arrWord(300)= “凁sou” arrWord(301)= “苏su” arrWord(302)= “狻suan” arrWord(303)= “夊sui” arrWord(304)= “孙sun” arrWord(305)= “唆suo” arrWord(306)= “他ta” arrWord(307)= “囼tai” arrWord(308)= “坍tan” arrWord(309)= “汤tang” arrWord(310)= “仐tao” arrWord(311)= “忑te” arrWord(312)= “鼟teng” arrWord(313)= “剔ti” arrWord(314)= “天tian” arrWord(315)= “旫tiao” arrWord(316)= “贴tie” arrWord(317)= “厅ting” arrWord(318)= “囲tong” arrWord(319)= “偷tou” arrWord(320)= “凸tu” arrWord(321)= “湍tuan” arrWord(322)= “推tui” arrWord(323)= “吞tun” arrWord(324)= “乇tuo” arrWord(325)= “屲wa” arrWord(326)= “歪wai” arrWord(327)= “弯wan” arrWord(328)= “尩wang” arrWord(329)= “危wei” arrWord(330)= “昷wen” arrWord(331)= “翁weng” arrWord(332)= “挝wo” arrWord(333)= “乌wu” arrWord(334)= “夕xi” arrWord(335)= “呷xia” arrWord(336)= “仙xian” arrWord(337)= “乡xiang” arrWord(338)= “灱xiao” arrWord(339)= “些xie” arrWord(340)= “心xin” arrWord(341)= “兴xing” arrWord(342)= “凶xiong” arrWord(343)= “休xiu” arrWord(344)= “戌xu” arrWord(345)= “吅xuan” arrWord(346)= “疶xue” arrWord(347)= “坃xun” arrWord(348)= “丫ya” arrWord(349)= “咽yan” arrWord(350)= “殃yang” arrWord(351)= “邀yao” arrWord(352)= “椰ye” arrWord(353)= “一yi” arrWord(354)= “乚yin” arrWord(355)= “应ying” arrWord(356)= “哟yo” arrWord(357)= “佣yong” arrWord(358)= “优you” arrWord(359)= “扜yu” arrWord(360)= “囦yuan” arrWord(361)= “曰yue” arrWord(362)= “蒀yun” arrWord(363)= “帀za” arrWord(364)= “災zai” arrWord(365)= “兂zan” arrWord(366)= “牂zang” arrWord(367)= “傮zao” arrWord(368)= “啫ze” arrWord(369)= “贼zei” arrWord(370)= “怎zen” arrWord(371)= “曽zeng” arrWord(372)= “吒zha” arrWord(373)= “夈zhai” arrWord(374)= “沾zhan” arrWord(375)= “张zhang” arrWord(376)= “佋zhao” arrWord(377)= “蜇zhe” arrWord(378)= “贞zhen” arrWord(379)= “凧zheng” arrWord(380)= “之zhi” arrWord(381)= “中zhong” arrWord(382)= “州zhou” arrWord(383)= “朱zhu” arrWord(384)= “抓zhua” arrWord(385)= “拽zhuai” arrWord(386)= “专zhuan” arrWord(387)= “妆zhuang” arrWord(388)= “隹zhui” arrWord(389)= “宒zhun” arrWord(390)= “卓zhuo” arrWord(391)= “仔zi” arrWord(392)= “宗zong” arrWord(393)= “邹zou” arrWord(394)= “租zu” arrWord(395)= “劗zuan” arrWord(396)= “厜zui” arrWord(397)= “尊zun” arrWord(398)= “昨zuo” arrWord(399)= “咗zuo” For i = 1 To Len(expression)STR = Mid(expression, i, 1)If(Asc(STR)< 0)Then For j = 1 To 399 If Left(arrWord(j), 1)> STR Then If limit =-1 Then STR = Mid(arrWord(j1), 2, limit)& delimiter End If Exit For End If Next End If HZQP = HZQP + STR Next HZQP = Left(HZQP, Len(HZQP)-Len(delimiter))End Function

三种用法: =hzqp(A2,“",-1)=hzqp(A2,”-“,-1)=hzqp(A2,” ",-1)我们 women wo-men wo men

第五篇：英文1-33数字

春节 the Sprlng Festival（New

Yearls Day of the Chinese lunar calendar）农历正月初一元宵节（灯节)the Lantern Festival 农历正月十五清明节 the Qing Ming Festival 四月五日前后

端午节 the Dragon-Boat Festiva 农历五月初五

中秋节 the MidAutumn Festival

（the Moon Festival）农历八月十五

重阳节 the Double Ninth Festival 农历九月初九

元旦(1月1日)NewYear'sDay

春节(农历一月一日)theSpringFestival

元宵节(农历一月十五日)theLanternFestival

国际劳动妇女节(3月8日)InternationalWorkingWomen'sDay植树节(3月12日)ArborDay

邮政节(3月20日)PostalDay

世界气象节(3月23日)WorldMeteorologyDay

清明节(4月5日)ChingMingFestival;Tomb-sweepingFestival国际劳动节(5月1日)InternationalLabourDay

中国青年节(5月4日)ChineseYouthDay

护士节(5月12日)Nurses'Festival

端午节(农历五月初五)theDragonBoatFestival

国际儿童节(6月1日)InternationalChildren'sDay

中国共产党成立纪念日(7月1日)theParty'sBirthday建军节(8月1日)theArmy'sDay

中秋节(农历八月十五)Mid-autumn(Moon)Festival

教师节(9月10日)Teachers'Day

重阳节(农历九月九日)Double-ninthDay

国庆节(10月1日)NationalDay

除夕(农历十二月三十日)NewYear'sEve

阳历节日

1月1日元旦（New Year's Day)

2月2日世界湿地日(World Wetlands Day)

2月14日情人节(Valentine's Day)

3月3日全国爱耳日

3月5日青年志愿者服务日

3月8日国际妇女节(International Women' Day)

3月9日保护母亲河日

3月12日中国植树节(China Arbor Day)

3月14日白色情人节(White Day)

3月14日国际警察日(International Policemen' Day)

3月15日世界消费者权益日(World Consumer Right Day）3月21日世界森林日（World Forest Day)

3月21日世界睡眠日(World Sleep Day)

3月22日世界水日(World Water Day)

3月23日世界气象日(World Meteorological Day)

3月24日世界防治结核病日(World Tuberculosis Day)

4月1日愚人节(April Fools' Day)

4月5日清明节（Tomb-sweeping Day)

4月7日世界卫生日(World Health Day）

4月22日世界地球日(World Earth Day)

4月26日世界知识产权日(World Intellectual Property Day)

5月1日国际劳动节(International Labour Day)

5月3日世界哮喘日(World Asthma Day)

5月4日中国青年节（Chinese Youth Day)

5月8日世界红十字日(World Red-Cross Day)

5月12日国际护士节(International Nurse Day)

5月15日国际家庭日(International Family Day)

5月17日世界电信日(World Telecommunications Day)

5月20日全国学生营养日

5月23日国际牛奶日(International Milk Day)

5月31日 世界无烟日(World No-Smoking Day)

6月1日 国际儿童节(International Children's Day)

6月5日世界环境日(International Environment Day)

6月6日全国爱眼日

6月17日世界防治荒漠化和干旱日(World Day to combat desertification)6月23日国际奥林匹克日(International Olympic Day)

6月25日全国土地日

6月26日国际禁毒日(International Day Against Drug Abuse and Illicit Trafficking)

7月1日中国共产党诞生日(Anniversary of the Founding of the Chinese Communist Party)

7月1日国际建筑日（International Architecture Day)

7月7日中国人民抗日战争纪念日

7月11日世界人口日(World Population Day)

8月1日中国人民解放军建军节(Army Day)

8月12日国际青年节(International Youth Day)

9月8日国际扫盲日(International Anti-illiteracy Day)

9月10日中国教师节(Teacher's Day)

9月16日中国脑健康日

9月16日国际臭氧层保护日(International Day for the Preservation of the Ozone Layer)

9月20日全国爱牙日

9月21日世界停火日(World Cease-fire Day)

9月27日世界旅游日(World Tourism Day)

10月1日中华人民共和国国庆节(National Day)

10月1日国际音乐日(International Music Day)

10月1日国际老年人日(International Day of Older Persons)

10月4日世界动物日(World Animal Day)

10月5日世界教师日(World Teachers' Day)（联合国教科文组织确立）10月8日全国高血压日

10月9日世界邮政日(World Post Day)

10月10日世界精神卫生日(World Mental Health Day)

10月14日世界标准日(World Standards Day)

10月15日国际盲人节(International Day of the Blind)

10月15日世界农村妇女日(World Rural Women's Day)

10月16日世界粮食日(World Food Day)

10月17日国际消除贫困日(International Day for the Eradication of Poverty)10月24日联合国日(United Nations Day)

10月24日世界发展新闻日(World Development Information Day)

10月28日中国男性健康日

10月29日国际生物多样性日(International Biodiversity Day)

10月31日万圣节(Halloween)

11月8日中国记者节

11月9日消防宣传日

11月14日世界糖尿病日(World Diabetes Day)

11月17日国际大学生节

11月25日国际消除对妇女的暴力日(International Day For the elimination of Violence against Women)

12月1日世界爱滋病日(World AIDS Day)

12月3日世界残疾人日(World Disabled Day）

12月4日全国法制宣传日

12月9日世界足球日（World Football Day)

12月25日圣诞节(Christmas Day)

12月29日国际生物多样性日(International Biological Diversity Day)1月最后一个星期日国际麻风节

3月最后一个完整周的星期一中小学生安全教育日

春分月圆后的第一个星期日复活节(Easter Monday)(有可能是3月22-4月25日间的任一天)

5月第二个星期日母亲节(Mother's Day)

5月第三个星期日全国助残日

6月第三个星期日父亲节(Father's Day)

9月第三个星期二国际和平日(International Peace Day)

9月第三个星期六全国国防教育日

9月第四个星期日国际聋人节(International Day of the Deaf)

10月的第一个星期一世界住房日(World Habitat Day)

10月的第二个星斯一加拿大感恩节(Thanksgiving Day)

10月第二个星期三国际减轻自然灾害日(International Day for Natural Disaster Reduction)

10月第二个星期四世界爱眼日(World Sight Day)

11月最后一个星期四美国感恩节(Thanksgiving Day)

农历节日

农历正月初一春节(the Spring Festival)

农历正月十五元宵节(Lantern Festival)

农历五月初五端午节(the Dragon-Boat Festival)

农历七月初七乞巧节(中国情人节）(Double-Seventh Day)农历八月十五中秋节(the Mid-Autumn Festival)

农历九月初九重阳节(the Double Ninth Festival)

农历腊月初八腊八节(the laba Rice Porridge Festival)农历腊月二十四传统扫房日

1-one23-twenty-three 2-two24-twenty-four 3-three25-twenty-five 4-four26-twenty-six 5-five27-twenty-sever 6-six28-twenty-eight 7-seven29-twenty-nine 8-eight30-thirty 9-nine31-thirty-one 10-ten32-thirty-two 11-eleven33thirty-three12-twelve

13-thirteen

14-fourteen

15-fifteen

16-sixteen

17-seventeen

18-eighteen

19-nineteen

20-twenty

21-twenty-one

春节Springfestival

中秋节Mid-Autmnfestival

万圣节Halloween

元旦Newyear'sday

端午节Dragonboatfestival 复活节Easter

圣诞节Christmas

儿童节Children'sday

国庆节Nationalday

父亲节Father’s Day,父亲节：每年6月的第三个星期日 母亲节Mother's Day母亲节：每年5月的第二个星期日 五一国际劳动节：（the International Labor Day）

May Day