VBA 单元格基本操作 - 值的相关操作

今天还是讲讲单元格操作

 

一、删除空行

如果是上面的表格要删除空行的话，我们想到的是先删掉第1行，再第2行，再第3行……但是对于程序来说，删完第1行后，第2行就变成了第1行后面就会出错，所以我们先从后面24行开始删除，然后是20行、15行，这样删除后原来的行数仍然不会受到影响。

Sub DeleteEmptyRow()
    
    Dim totalRow As Long
    Dim beginRow As Long
    Dim endRow As Long
    Dim i As Long
    
    endRow = ActiveSheet.UsedRange.Rows.Count
    beginRow = ActiveSheet.UsedRange.Rows(1).Row
    totalRow = beginRow + endRow - 1
    
    
    '从最后一行往前删除
    For i = totalRow To 1 Step -1
        If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
            Rows(i).Delete
        End If
    Next
    
    MsgBox "删除成功!"
End Sub

 

二、确定单元格区域是否包含在另一个单元格区域

思路是将单元格区域1和区域2进行合并，如果合并后区域是和区域2一样，说明区域1就被包含在区域2内。判断是否一样需要用到Range的Address属性，这里用Function好操作一点。

Function InRange(rng1 As Range, rng2 As Range) As Boolean
    '判断Rng1是否在Rng2里面
    If Union(rng1, rng2).Address = rng2.Address Then
        InRange = True
    End If
End Fu