当前位置：首页>Excel>几行简单的VBA代码,终于摆脱了EXCEL表格中大量重复的操作.VBA入门级实例讲解

几行简单的VBA代码,终于摆脱了EXCEL表格中大量重复的操作.VBA入门级实例讲解

Sub N2Date()For i = 2 To 100    Range("A" & i) = CDate(Range("A" & i))NextEnd Sub

这一期，我们要用VBA代码来实现转换，同时也是回应上一篇文章留言想要用VBA实现操作的想法，顺便也为VBA初学者作个入门级示范及代码讲解。

第一次接触或使用VBA，如果使用的是WPS，可能需要安装VBA插件才能启用宏功能。详细安装说明可参考往期回顾：VBA插件安装及宏设置

按步骤跟着做，把代码放到表格中试运行，假设我们的文件只有一个工作表，且文本型的日期数据在A列，从第二行起到100行。

注意：新手请不要在原数据文件上测试，避免误操作删除数据且无法撤销操作。

打开VBE编辑器

快速打开代码编辑器的通用方式是按ALT+F11。

◆在EXCEL还可以通过开发工具-->Visual Basic打开

◆在WPS则通过工具-->开发工具-->VB编辑器打开。

打开后的VBE编辑器界面（以WPS为例）：

插入模块

贴入代码

为方便测试，将CDate(Range("A" & i)) 直接改为 i

运行代码

运行过程很快，瞬息间就完成了转换。当然，这个只是用于说明代码和手动操作之间的差距有多大。

代码解析：

这段代码只有5行，现在就逐行解析看看有什么作用

Sub N2Date()    .........      .........    .........End Sub

这里Sub N2Date()开头，到End Sub结束，是一个完整的过程闭环，执行代码都放这两句之间。相当于声明了地盘，这个地盘里面的代码都我的，执行时也只看这个区间的代码。

    For i = 2 To 100        .........    Next

For ..... Next 是一个执行相同动作的循环语句。i = 2 To 100 是指把2到100依次赋值给i，相当于共执行99次下方的代码。其实就是我们假设的数据从第2行开始，到100行结束。

Range("A" & i) = i

在VBA中引用单元格，我们一般用Range或者Cells，Range("A1")是指A1单元格，所以，用这个比较好理解Range("A" & i)，这里表示的就是A列的第i行的单元格。测试时Range("A" & i) = i 表示为每个经过的单元格赋值为i，也就是A列第i行的值=i

Range("A" & i) = CDate(Range("A" & i))

原代码中CDate是用于将其他类型的值转换为日期类型的函数，所以，CDate(Range("A" & i))就是把自己转换类型，然后再把这个值给回自己。

细心的你一定发现，在For ... Next之间，可以完成很多事情，而且都是自动的。

比如转换为数字：Val(Range("A" & i))，

比如增加固定的前缀："XS-"&Range("A" & i)

比如直接对数字运算：Range("A" & i)*100

比如只保留前两个字符：Left(Range("A" & i),2)

....等等

当然，还可以增加更复杂的操作，比如先判断，再进行拆分等等，这些重复对每个单元格做的事，都可以交给代码去完成。

严格来说这样的代码其实并不完善。所以最后贴出一段比较完善的代码，增加了一些变量以及防错机制，并为每一句加了注释，大家在测试时，可以根据注释修改对应的引用。

本文来自网友投稿或网络内容，如有侵犯您的权益请联系我们删除，联系邮箱：wyl860211@qq.com 。