Excel VBA中特殊单元格的定位

Option Explicit


'1 已使用的单元格区域

  Sub RangesUsed()  'UsedRange属性

    Sheets("sheet1").UsedRange.Select


  End Sub


'2 某单元格所在的单元格区域

   Sub RangesLocation()    'CurrentRegion

      Range("b8").CurrentRegion.Select

   End Sub


'3 两个单元格区域共同的区域

    Sub 交集()               'Intersect表示两个区域取交集

    Intersect(Columns("b:c"), Rows("3:5")).Select

    End Sub

'4 调用定位条件选取特殊单元格

    Sub d4()

       Range("A1:A6").SpecialCells(xlCellTypeBlanks).Select

    End Sub

'5 端点单元格

   Sub d5()

     Range("a65536").End(xlUp).Offset(1, 0) = 1000

   End Sub

   Sub d6()

     Range(Range("b6"), Range("b6").End(xlToRight)).Select

   End Sub

例子：快速合并多表数据

Sub merge()
   Dim sht As Worksheet
   Dim xrow As Integer
   Dim rng As Range
   '新建工作表
           Worksheets.Add after:=Worksheets(Worksheets.Count)  '在最后的工作表后插入新建工作表
           ActiveSheet.Name = "汇总表"   '更改新建工作表的名称
           Worksheets(1).Range("A1:D1").Copy Worksheets("汇总表").Range("A1:D1") '把原表的第一行标题复制到所有新建表中

   '把数据汇总到新建工作表中

   For Each sht In Worksheets   '遍历所有工作表
     If sht.Name <> ActiveSheet.Name Then   '除去新建的表，其它都复制
         Set rng = Range("A65536").End(xlUp).Offset(1, 0)   '获得新建表的第一个非空单元格
         xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1  '获得各个工作表的记录条数
         sht.Range("A2").Resize(xrow, 7).Copy rng  '复制记录到新建表
    End If
   Next


End Sub