发布网友 发布时间:2022-04-22 23:28
共2个回答
热心网友 时间:2023-07-18 12:58
目标:需要将下图中的苹果、西瓜、香蕉 换成拼音缩写
2
如果用ctrl+h 替换需要操作三次,如果水果有几十种,恐怕要花不少时间在数据整理上。
这时候就要用宏了。
ALT+F11
打开宏
双击 this workbook
将下列代码粘贴到右边白框内:
Sub 水果名称修改() Cells.Select Selection.Replace What:="苹果", Replacement:="PG", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="香蕉", Replacement:="XJ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="西瓜", Replacement:="XG", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub
点击 保存按钮
由于是一般的excel文档会弹出对话框,点击确定
插入-形状-长方形
画一个按钮
给按钮添加宏
右边右键点击蓝色按钮,选择 指定宏
选择 水果名称修改
点击按钮,可以看到 A列商品 名称变为了拼音缩写
保存excel ,ctrl + s
热心网友 时间:2023-07-18 12:58
=LEFT(A1,FIND("/",A1))&VLOOKUP(--MID(A1,FIND("/",A1)+1,10),$B$1:$C$5,2,FALSE)