如何在有效性中删除多余的空行

如何在有效性中删除空行呢？如下表中，注意，不是最后几行为空行，而是中间有几个空行.如下表，A列中有几个是空行，但是在C列中已经将空行删除了。

本例子是用VBA来实现的。

步骤1：ALT+F11,到编程窗口。

步骤2：双击左侧SHEET1(SHEET1),在右边编写代码。

代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Column = 1 Then

       Range("A：A").Copy Destination:=Worksheets("Sheet1").Range("F1")

       Dim RS As Long

       RS = Range("F1048576").End(xlUp).Row

       Range("F2:F" & RS).Select

       Selection.SpecialCells(xlCellTypeBlanks).Select

       Selection.Delete Shift:=xlUp

       

        K = Range("F1048576").End(xlUp).Row

        ActiveWorkbook.Names.Add Name:="LIST", RefersTo:=Range("F2:F" & K)

     

       Range("C2").Clear

       Range("C2").Select

       With Selection.Validation

           .Delete

           .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

           xlBetween, Formula1:="=LIST"            

       End With

   End If

End Sub

本内容需要需要一定VBA基础。