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

foundking

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

图1

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

图2

附件：

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

2013-1-12 11:24 上传

点击文件名下载附件

dsmch

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

复制代码