我想在EXCEL中将一组姓名转换成拼音,并且姓和名要隔开的,可我不会VBA.怎么办????急
如果只有单姓,在D1输入公式
=LEFT(A1,1)
如果全是复姓,改公式
=LEFT(A1,2)
如果既有单姓,又有复姓,公式略复杂一点,需要借助条件来判断是否为复姓。
选中整张表格,在开始那里有个查找和选择,点击进去有个替换,对话框有个查找内容,输入那个人名,在再替换那里输入拼音的
在EXECL中 ,按ALT+F11,插入---模块 复制下列代码 :Function hztopy(hzpy As String) As String
Dim hzstring As String, pystring As String
Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer
hzstring = Trim(hzpy)
hzpysum = Len(Trim(hzstring))
pystring = ""
For hzi = 1 To hzpysum
hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))
Select Case hzpyhex
Case &HB0A1 To &HB0C4: pystring = pystring + "A"
Case &HB0C5 To &HB2C0: pystring = pystring + "B"
Case &HB2C1 To &HB4ED: pystring = pystring + "C"
Case &HB4EE To &HB6E9: pystring = pystring + "D"
Case &HB6EA To &HB7A1: pystring = pystring + "E"
Case &HB7A2 To &HB8C0: pystring = pystring + "F"
Case &HB8C1 To &HB9FD: pystring = pystring + "G"
Case &HB9FE To &HBBF6: pystring = pystring + "H"
Case &HBBF7 To &HBFA5: pystring = pystring + "J"
Case &HBFA6 To &HC0AB: pystring = pystring + "K"
Case &HC0AC To &HC2E7: pystring = pystring + "L"
Case &HC2E8 To &HC4C2: pystring = pystring + "M"
Case &HC4C3 To &HC5B5: pystring = pystring + "N"
Case &HC5B6 To &HC5BD: pystring = pystring + "O"
Case &HC5BE To &HC6D9: pystring = pystring + "P"
Case &HC6DA To &HC8BA: pystring = pystring + "Q"
Case &HC8BB To &HC8F5: pystring = pystring + "R"
Case &HC8F6 To &HCBF9: pystring = pystring + "S"
Case &HCBFA To &HCDD9: pystring = pystring + "T"
Case &HEDC5: pystring = pystring + "T"
Case &HCDDA To &HCEF3: pystring = pystring + "W"
Case &HCEF4 To &HD1B8: pystring = pystring + "X"
Case &HD1B9 To &HD4D0: pystring = pystring + "Y"
Case &HD4D1 To &HD7F9: pystring = pystring + "Z"
Case Else
pystring = pystring + Mid(hzstring, hzi, 1)
End Select
Next
hztopy = pystring
End Function
比如在A1输入 中文 则在其他空白单元格输入 =hztopy(A1) 回车执行即可.
比如在A1输入 中文 则在其他空白单元格输入 =hztopy(A1) 回车执行即可.
如何在Excel中将表格排成A3大小?
在 Excel 表格中将 A4 的纸张编辑和排列成 A3 纸张大小,可以使用缩放调节工具来实现这个目标。请按照以下步骤进行操作:1. 选中 Excel 表格要打印的区域。2. 在 Excel 界面顶部点击 "页面布局" 选项卡。3. 在 "页面布局" 选项卡中找到 "缩放" 选项,单击缩放。4. 在弹出的对话框中,在 "拼合"...
怎么在Excel 365中将数据进行高级分类汇总
电脑版Excel 365软件被很多人使用,用来处理数据等, 为了使数据看起来更加清晰简洁,因此想要将数据进行高级分类汇总,但是却不知道如何操作,那么小编就来为大家介绍一下吧。具体如下:1. 第一步,双击或者右击打开Excel 365软件,接着新建一张工作表。2. 第二步,来到下图所示的新建的工作表页面后,...
怎样在Excel中将表格整体缩小怎样在excel中将表格整体缩小打印_百度...
1. 选中整个表格。2. 在“布局”选项卡中,找到“单元格大小”组,并点击“自适应”下拉菜单。3. 选择“缩小到适合内容”,Word将根据表格内容的大小自动调整表格大小,同时不影响表格本身的比例。如果您觉得整个表格缩小后过于小,可以通过手动调整表格大小或缩放比例来调整表格大小。
怎么在Excel中将开发工具添加
有的小伙伴在使用Excel软件处理数据时,为了快速使用某些工具,所以想要添加开发工具,但是却不知道如何添加,那么小编就来为大家介绍一下吧。具体如下:1.第一步,双击或者右击打开excel表格,接着点击左上角的文件选项。2.第二步,来到下图所示的文件页面后,点击页面左侧的选项。3.第三步,在下图所示...
excel中如何将表格区域变为空白
在Excel中将表格区域变为完全空白,且不显示任何形式的表格和图片,可以按照以下步骤操作:1. **打开Excel文件**:首先,在电脑上打开包含目标表格区域的Excel文件。2. **选中表格区域**:使用鼠标拖动或键盘快捷键(如Shift+方向键)选中你想要变为空白的表格区域。3. **设置背景颜色**:右击选中的...
怎样在Excel中将错误符号清空?
2、那么我们先复制错误符号,复制之后单击菜单栏里的开始按钮,在最右侧我们可以看到有一个查找和选择选项,单击该按钮会下拉选项,在下拉的选项里我们单击替换。3、单击替换按钮之后会弹出如图对话框,这时我们在查找内容后面的输入框里面黏贴错误符号#N\/A,如果你是想把错误符号改成空白的话,那么就直接...
如何在Excel中将数据移到其他位置?
工具\/材料:Microsoft Office Excel2016版,Excel表格。1、首先选中Excel表格,双击打开。2、然后在该界面中,选中要制作柱状图的数据源单元格。3、其次在该界面中,点击工具栏中“插入”里“柱状图”按钮。4、然后在该界面中,生成二维柱状图。5、其次在该界面中,选中要移动的柱的数据,右键点击“剪切”...
excel数字怎么设置统一格式excel怎么让数字格式一样
如果您想在Excel中将数字统一设置为相同的格式,可以按照以下步骤进行操作:1. 选中需要设置格式的单元格、行或列。2. 右键单击选中的单元格、行或列,选择“格式单元格”选项。3. 在弹出的“格式单元格”对话框中,选择“数字”选项卡。4. 在“数字”选项卡中,选择您需要的数字格式,例如货币、...
如何在excel表格中将两列数据相除???
在 Excel 中将两列数据相除是一项非常简单的操作。以下是详细的步骤指导,帮助您正确计算两列数据的商:方法一:使用公式 打开 Excel:启动 Excel 并打开您要编辑的工作簿。选择单元格:找到您希望显示结果的单元格(例如,假设您要在 C1 中显示 A1 除以 B1 的结果)。输入公式:在目标单元格中输入...
怎么在Excel2010表格中将超过5000元的销售金额标示出来
材料\/工具:excel2010 1、打开excel2010表格,如下图要求将B列中的“实际销售金额”超过5000元的金额标示出来。2、拖动鼠标左键,选中D列数据单元格,依次点击【开始】-【条件格式】,弹出的下拉菜单中选择【新建规则】选项。3、弹出【新建格式规则】对话框。4、选择“只为包含以下内容的单元格设置格式...
梁哀至圣: 在EXECL中 ,按ALT+F11,插入---模块 复制下列代码 : Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(...
静乐县15660128144: 如何将excel表格中的姓名转换到word - ?
梁哀至圣: 1、把excel中需要复制的部分把边框都取消,鼠标左键选定所需要的表格区域-----设置单元格格式---边框---无2、复制需要的内容3、粘贴进word我刚试过,可以搞定.
静乐县15660128144: excel相关问题 大神们来帮忙 有什么方法可以直接把excel 中的姓名一列 转换成 姓的全称 +名的首字母?
梁哀至圣: 在EXECL中 ,按ALT+F11,插入---模块 复制下列代码 : Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(...
静乐县15660128144: Excel 求助,怎么样能将名字转换成ID - ?
梁哀至圣: 一是用查找替换功能,二是用vlookup函数,由于你问题太过于简短,没办法给你确切的答案.
静乐县15660128144: 我用的是word2003,输入了一组人的名字,大约有200多个,是按姓的拼音顺序排列的,我想按姓氏笔画来排列, - ?
梁哀至圣: 可以这样试一下:选中全部名单,执行“表格→转换→文本转换成表格”命令,打开“将文字转换成表格”对话框,把“列数”改为“1”,再选中“文本分隔位置”下面的“其他字符”选项,并在后面的方框中输入顿号(、),然后按下“确...
静乐县15660128144: 在Excel中如何将姓名转换成拼音?
梁哀至圣: Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum hzpyhex = ...
静乐县15660128144: word文档中的人名单想怎么转换到excel表格中,怎么转? - ?
梁哀至圣: 1、在Word中打名单的时候,尽量带一个符号. 2、然后Ctrl+H进入替换页面,查找内容中输入、号,替换为中输入^p,然后点击全部替换. 3、点击全部替换后,就每一行一个名单,Ctrl+A全选. 4、全选后,点击鼠标右键复制. 5、打开Excel,点击鼠标右键粘贴. 6、就可以转换了.
静乐县15660128144: 如图,excel中,如何将A单元格中的姓名根据E,F单元格间的对应关系,进行批量替换 - ?
梁哀至圣: 建议使用代码的字典功能.E、F列构建字典.然后对A列数据分列处理,根据字典替换.
静乐县15660128144: excel 家庭成员全部名单 转换成户主和 人数 - ?
梁哀至圣: 将数据文件另存一份. C2公式:=COUNTIF(A:A,A2) 向下填充公式. 选定C列,复制,原位置右击鼠标,选“选择性粘贴”,再选“数值”,确定. 执行数据——筛选——自动筛选,筛选关系列的“户主”. 将筛选结果选中,复制到新工作表中.
静乐县15660128144: 您好: 我想在excel中将中文名转化成拼音名,如姚贝娜, 转化成YAO Beina的格式,张杰,转化成ZHANG Jie,这种格式的名字,希望转化的格式中也有大小写,谢谢 - ?
梁哀至圣: EXO吗?是m还是k