2016/01/15 VBA 学习10

1. 用countif判示例代码如下：

   COUNTIF(参数一，参数二)，其中参数一为需要计算其中满足条件的单元格数目的单元格区域，参数二是用于定义将对哪些单元格进行计数的数字、表达式、单元格引用或文本字符串。

   样例：首先在当前活动的sheet页的A列插入若干数值，拖入一个表单控件，指定宏，宏代码如下：

   Sub 判断重复()
    Dim reCount, totalCount As Integer
    reCount = 0
    totalCount = 0
    For Each searchNum In Range("A2", Cells(Rows.Count, "A").End(xlUp)).Cells
       Dim X As Integer
       X = Application.WorksheetFunction.CountIf(Columns("A"), searchNum)
       If X >= 2 Then
      searchNum.Interior.ColorIndex = 3

       reCount = reCount + 1
       End If
       totalCount = totalCount + 1
    Next searchNum
    If reCount = 0 Then
    MsgBox "无重复id"
    End If
    MsgBox totalCount
   End Sub

   效果：会将A列中所有重复的单元格的背景色设置为红色，比较简单我就不传图了。

2. CurrentRegion

   直接用例子演示，最直观，如下图黄色背景单元格的CurrentRegion是哪块区域呢

   

   为“当前区域”按钮指定宏，代码如下：

   Sub 当前区域()
       Range("D11").CurrentRegion.Select
   End Sub

   点击“当前区域”按钮，效果如下，一目了然了吧