VBA能实现反选数据不能啊？

foundking · 发表于 2013-1-12 11:22

本帖最后由 foundking 于 2013-1-12 11:25 编辑

想通过编程，实现把红框外的内容全部清除掉，只留红框中的内容。
我的思路是这样的，就是全选表格，然后反选一下A1：E10，然后Clear一下已选择部分，达到目的。VBA刚买了本《别怕，VBA》在看，水平很初级，希望高手能指导一下，附上图1表格案例。

图1

引申一些，像我下图2中的情况，要实现这样的效果（保留红框中的内容，其它的数据全部清除），一般老师们编程都是怎样的思路呢？

图2

附件：

test 4.5.4-180 X-如何清除其它.rar (7.07 KB, 下载次数: 7)

dsmch · 发表于 2013-1-12 11:43

本帖最后由 dsmch 于 2013-1-12 11:44 编辑

Dim rng As Range
For Each cel In ActiveSheet.UsedRange
If Application.Intersect([a1:e10], cel) Is Nothing Then
If rng Is Nothing Then Set rng = cel Else Set rng = Union(rng, cel)
End If
Next
rng.Clear

复制代码

		自动登录	找回密码
密码			免费注册