Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1874|回复: 0

跟着校长学VBA之第12集:特殊单元格定位

[复制链接]
发表于 2013-1-7 21:57 | 显示全部楼层 |阅读模式
本帖最后由 hwc2ycy 于 2013-1-8 23:20 编辑

1 已使用的单元格区域
UsedRange属性
  1.   Sub d1()
  2.     Sheets("sheet2").UsedRange.Select
  3.   End Sub
复制代码
2 某单元格所在的单元格区域
  1.    Sub d2()
  2.       Range("b8").CurrentRegion.Select
  3.    End Sub
复制代码
3 两个单元格区域共同的区域(交集)
  1.     Sub d3()
  2.           Intersect(Columns("b:c"), Rows("3:5")).Select
  3.     End Sub
复制代码
4 调用定位条件选取特殊单元格(平时用的定位功能)
  1.     Sub d4()
  2.   
  3.        Range("A1:A6").SpecialCells(xlCellTypeBlanks).Select
  4.       
  5.     End Sub
复制代码
5 端点单元格
  1.    Sub d5()
  2.    
  3.      Range("a65536").End(xlUp).Offset(1, 0) = 1000
  4.      
  5.    End Sub
复制代码
  1.    Sub d6()
  2.    
  3.      Range(Range("b6"), Range("b6").End(xlToRight)).Select
  4.      
  5.    End Sub
复制代码
注意:
1.用ROWS.COUNT(同样COLUMNS.COUNT)属性的童鞋有一点需要注意,在把10向03操作的时候,小心溢出。
2.用 SpecialCells定位单元格也如此,如果要对定位的单元格进行操作,要考虑到如果没有满足条件的情况,该做一些错误捕获和处理。

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-6-16 01:58 , Processed in 0.165794 second(s), 5 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表