EXCEL VBA 实现翻译(简单对照)

'ab列为词典，其中a列为中文，b列为对应翻译。现在d列有需要翻译的中文，请在e列填入其对应的翻译

Sub Trans()Dim di As IntegerDim rng As RangeFor di = 1 To Range("d65536 ").End(xlUp).Row     '遍历到d列有信息的最后一列If Range("d" & di) = Empty Then  '如果中间有空的列则跳过ElseSet rng = Range("a1:a" & Range("a65536 ").End(xlUp).Row).Find(what:=Range("d" & di).Value) '在a列查找d列di行的内容并将查找到的range返回给rng。If rng Is Nothing Then '如果rng为空ElseIf rng.Offset(0, 1).Value = "" Then '如果rng后面一格为空Elserng.Offset(0, 1).Copy Range("d" & di).Offset(0, 1) '如果rng后面一格不为空则将值复制给"d"&di格后面一格End IfEnd IfEnd IfNextEnd Sub

EXCEL VBA 实现翻译(简单对照)相关推荐

Excel VBA实现的简单电子病历管理
Excel VBA实现的简单电子病历管理界面示例主界面只放了两个button,用Excel自带的筛选功能进行检索新建病例 Sub 新建病例() ' ' ' Dim i As Integer Di ...
pywin32\win32com 运行 Word、Excel VBA宏最简单的方法
简单粗暴:doc.Application.Run('批处理VBA') 高手应该看懂了,看不懂的,看下面代码: from win32com.client import Dispatch# 打开Word软 ...
2, excel vba 来一个简单好玩的
曾经有一个名人叫做点点didi的说过,万事开头难,所以我们应该要降低开头的难度.防止你们从入门到放弃接下来我们来让excel弹出一个框框,并让它显示出: i am not happy,beca se ...
[别怕，Excel.VBA其实很简单].Excel.Home.扫描版
对于初学者一本很好的手册转载于:https://blog.51cto.com/zhuzi86/1330287
VBA和Python双语对照，Excel编程学习更简单
Excel VBA和Python双语对照学习目录第1章 Excel编程与Python编程概述 1 1．1 关于Excel脚本编程 1 1．1．1 为什么要进行Excel脚本编程 1 1．1．2 选 ...
【Excel VBA和Python对照学习】创建字典
Excel VBA和Python双语对照学习我们从小学习语文,都用过字典.查字典时可以从第一页开始,一页一页地往下找,直到找到为止.这样做明显效率低下,特别是字的位置比较靠后的时候.所以查字典时不这 ...
小白学习Excel VBA （一）
在工作和学习工程中,慢慢接触到大量的数据采集.分析和可视化等内容,作为非计算机专业小白,曾经尝试学习过Python.Java等编程语言,但都是无功而返,为了能够更加高效的学习和工作,经过自己摸索和尝试 ...
从零开始学Excel VBA
下载地址:https://webboy.pipipan.com/fs/19405313-362891940 内容简介对于大部分没有编程基础的职场人士来说,在学习VBA时往往会有很大的畏难情绪.本书正 ...
编程隐藏child指定列_简单的Excel VBA编程问题解答——完美Excel第183周小结
学习Excel技术,关注微信公众号: excelperfect 下面是2020年11月12日发布的一些简单的ExcelVBA问题的答案,是不是和你想的一样. 1.表达式11mod 3的计算结果是什么? ...

EXCEL VBA 实现翻译(简单对照)

EXCEL VBA 实现翻译(简单对照)相关推荐

最新文章

热门文章