Excel中宏使用小技巧

工作中遇到一个这样的问题，从数据库中导出来的数据在Excel中出现问题了，使用如下例子进行说明：

导出生成的Excel文档中，编码列数据错乱了，3、4行错乱了，正确展示应该是B，A、C，B，且身份证号往前移动一列。

 

这样的展示出错的数据有几万条，不可能手动的去修改，效率不高且容易出错。折腾了很久，最后使用Excel中的宏

几行代码就解决了这个问题。如下：

1、通过“查看代码”或者“开发工具-->Visual Basic”进入宏对话框

2、在project下插入一个模块

3、在模块中编写插入如下代码，然后执行：

Sub wind()
For i = 2 To 4
Dim a As String

a = Sheet1.Cells(i, 4).Value
b = Sheet1.Cells(i, 5).Value

If b = "A" Or b = "B" Then

Sheet1.Cells(i, 4).Value = a + "," + b
Sheet1.Cells(i, 5).Value = Sheet1.Cells(i, 6).Value
Sheet1.Cells(i, 6).Value = ""

End If

Next
End Sub

4、最后得到的效果如下：

 

几万条数据，通过写几行代码，一分钟就搞定。顿时感觉，Excel功能好强大啊。。

 

转载于:https://www.cnblogs.com/baobao-caicai/p/4708579.html