大家好，我的中文名字是张子一我想起个英文名字相信很多的网友都不是很明白，包括张子一 姓名测算也是一样，不过没有关系，接下来就来为大家分享关于我的中文名字是张子一我想起个英文名字和张子一 姓名测算的一些知识点，大家可以关注收藏，免得下次来找不到哦，下面我们开始吧！

本文目录

方法/步骤

我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：

用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

Sub合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating= False

MyPath= ActiveWorkbook.Path

MyName= Dir(MyPath&"\"&"*.xls")

AWbName= ActiveWorkbook.Name

Num= 0

Do While MyName<>""

If MyName<> AWbName Then

Set Wb= Workbooks.Open(MyPath&"\"& MyName)

Num= Num+ 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row+ 2, 1)= Left(MyName, Len(MyName)- 4)

For G= 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row+ 1, 1)

Next

WbN= WbN& Chr(13)& Wb.Name

Wb.Close False

End With

End If

MyName= Dir

Loop

Range("B1").Select

Application.ScreenUpdating= True

MsgBox"共合并了"& Num&"个工作薄下的全部工作表。如下："& Chr(13)& WbN, vbInformation,"提示"

End Sub

4

运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

Derrick Derrick戴里克德国，民族的统治者。

Devin，得文，爱尔兰指诗人或学者。

Dick，狄克，德国，勇猛的，大胆的。

Dominic多明尼克，拉丁，属於上帝的。

Don，唐，塞尔特世界领袖。

Donahue唐纳修爱尔兰红褐色的战士。

Donald，唐纳德塞尔特世界领袖；酋长。

Douglas道格拉斯，盖尔，来自黑海的人；深灰色。

Drew，杜鲁，威尔斯聪慧与诚实的人。

Duke，杜克，拉丁，公爵；领导者。

Duncan，邓肯，盖尔，褐色的战士；晒得黑黑的战士。

Dunn，唐恩，英国，指黑色皮肤的人。

Dwight，德维特条顿，白种人或金发碧眼的人。

Dylan，狄伦，威尔斯海洋；波浪之神。

Earl，额尔，英国，有敏锐智慧的高贵领导者。

Ed，艾德，英国，一位有钱的监护人。

Eden，伊登，希伯来伊甸园，光芒与快乐。

Edgar，爱德格英国，快乐的战士。

Edmund，艾德蒙英国，有钱的保护者。

Edison，爱迪生英国，以照顾他人而丰富自己的人。

Edward，爱德华英国，一位很有钱的财产监护人。

Edwiin，爱德温英国，有钱的朋友；财产的获得者。

Egbert，爱格伯特，条顿，非常有才能的，显赫的。

Eli，伊莱，希伯来伟大，杰出。

Elijah，易莱哲希伯来耶和华就是上帝。

Elliot，伊里亚德，法国，希伯来，虔诚信仰上帝的人。

Ellis，艾理斯希伯来上帝是救世主。

Elmer，爱尔玛英国，高贵的或有名的。

Elroy，爱罗伊拉丁，王室的，国王。

Elton，爱尔顿英国，老农场的。

Elvis，艾维斯条顿，高贵的；朋友。

Emmanuel，爱曼纽希伯来上帝与我们同在。

Enoch，伊诺克希腊，希伯来，追随者；虔诚的。

Eric，艾利克斯堪的那维亚，领导者。

Ernest，欧尼斯特，德国，热心、真实或诚挚的人。

Eugene，尤金，希腊、拉丁，有高贵血统的。

Evan，尔文，塞尔特出身名门的人。

Everley伊夫力英国，指野猪打斗的场地。

Fabian富宾恩罗马种豆之人。

Felix费利克斯拉丁幸福的或幸运的。

Ferdinand费迪南德条顿旅行，爱冒险的；谋和

Fitch费奇英国金发之人。

Fitzgerald费兹捷勒英国技术高明的造箭家。

Ford福特英国河的渡口。

Francis弗朗西斯拉丁自由之人，无拘无束的人。

Frank法兰克法国自由之人。

Franklin法兰克林拉丁或德国自由之人。

Frederic弗雷得力克德国以和平领导的统治者；强大有力的，富有的。

Gabriel加布力尔希伯来上帝的男仆；上帝的力量是很力的。

Gale加尔爱尔兰唱歌；陌生人。

Gary盖理条顿带枪矛的人；猎犬。

Gavin盖文爱尔兰战争之鹰，胜利之鹰。

Gene吉恩希腊，拉丁有高贵血统的。

Geoffrey杰佛理法国神圣的和平。

Geoff杰夫法国神圣的和平。

George乔治希腊农夫。

Gerald杰拉尔德条顿勇敢的战士。

Gilbert吉尔伯特条顿闪耀的誓言；人质。

Giles贾艾斯希腊持盾之人。

Glenn葛兰塞尔特狭窄山谷的。

Goddard哥达德国稳固，不可动摇的定律。

Godfery高德佛里法国和平之神。

Gordon戈登英国三角峰的山区；英雄；强壮的人。

Greg格雷格希腊警觉之人。

Gregary格雷戈里希腊警觉之人。

Griffith葛里菲兹韦尔斯保护家园有力之人；红润的。

Grover格罗佛英国住在小树林中的人。

Gustave古斯塔夫德国或瑞典战争。

Guy盖英国引导者；明智的；木头；年老的战士。

Hale霍尔英国英雄般的荣耀。

Haley哈利爱尔兰科学的；有发明天份的。

Hamiltion汉米敦法国或诺曼底山上的小村；光秃的山丘。

Hardy哈帝德国勇敢，人格高尚之人。

Harlan哈伦条顿来自寒冷的国度。

Harley哈利英国到处是野兔的草原或小树林。

Harold哈罗德英国领导者；作战勇猛。

选择自己喜欢或与自己类似的。别忘啦点个赞呦~

如果你还想了解更多这方面的信息，记得收藏关注本站。