vba 指定列后插入列_利用VBA代码删除空白行，如何删除重复数据

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，NO.136-NO.138，内容是：插入多行表格的方法、如何删除工作表中的空白行、删除重复数据行等内容。

VBA过程代码136：如何在工作表中一次插入多行表格的方法3

Sub mynz()

Sheets("22").Rows(3).Resize(3).Insert

End Sub

代码的解析说明：上述过程使用Insert方法在第2行和第3行之间插入三行空行。

VBA过程代码137：EXCEL中，如何删除工作表中的空白行

Sub mynz()

Dim rRow As Long

Dim LRow As Long

Dim i As Long

rRow = Sheets("23").UsedRange.Row

LRow = rRow + Sheets("23").UsedRange.Rows.Count - 1

For i = LRow To rRow Step -1

If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then

Rows(i).Delete

End If

Next

End Sub

代码的解析说明：上述过程过程删除工作表中已使用的区域的所有空行。其中使用UsedRange属性返回工作表中已使用的区域。使用工作表CountA函数判断当前行已使用单元格的数量，如果为零说明此行是空行则使用Delete删除。 UsedRange属性应用于Worksheet对象，返回指定工作表中已使用区域的Range对象，即返回工作表中已使用的单元格区域。 UsedRange.Row表示已用单元格第一行的序数； UsedRange.Rows.Count表示已用单元格总的行数；WorksheetFunction.CountA 方法 用于计算非空单元格及参数列表中值的个数。Application.WorksheetFunction.CountA(Rows(i)) 表示选中Rows(i)行的非空单元格的个数。

VBA过程代码138：EXCEL中，如何删除重复数据行

Sub mynz()

Dim R As Integer

Dim i As Integer

With Sheets("24")

R = .[A65536].End(xlUp).Row

For i = R To 1 Step -1

If WorksheetFunction.CountIf(.Columns(1), .Cells(i, 1)) > 1 Then

.Rows(i).Delete

End If

Next

End With

End Sub

代码的解析说明：上述过程过程删除工作表A列重复单元格所在的整行内容，只保留一行。

使用工作表CountIf函数判断单元格内容是否重复，如果重复则删除该单元格所在的行。

下面是我根据自己20多年的VBA实际利用经验，编写的四部教程，这些是较大块的“积木”，可以独立的完成某些或者某类系统的过程，欢迎有需要的朋友联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。这些教程供有志于提高自己能力的朋友分享。

1. 第一套“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备。
2. 第二套“VBA数据库解决方案”PDF教程。数据库是数据处理的利器，对于中级人员应该掌握这个内容了。
3. 第三套“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。
4. 第四套“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第二册的84讲，第二级阶段的优惠期即将结束。