摘要：
如何实现Excel表格中两个单元格区域间的数据交换呢？通常我们使用剪切粘贴的方法来完成，但这个方法比较繁琐，如果数据区域较大还容易出错。下面我们试着来编写一个可以实现该功能的“宏”吧。
打开“工具”菜单中的“宏”，选择“录制新宏”命令，在个人宏工作簿中(Personal.xls)创建一个名为Exchange 的宏，代码如下：
代码：用Excel建立数据库 用Excel建立数据库 日常工作中，我们常常需要建立一些有规律的数据库。例如我为了管理全乡的农业税，需建立一数据库，该数据库第一个字段名为村名，第二个字段名为 组别。我乡共19个村，每个村7～17个组不等，共计258个组。这个数据库用数据库软件（哪怕是Visual FoxPro 6.0或是Access97等高档次的）很不好建立——逐个儿输入吗，只有傻瓜才有这种想法。用Access宏或FoxPro编程来输入吧，这些数据似乎 还嫌不够规则（每个村对应的组数不一定相同），这个程序编写可就不那么简单了，除非你是编
'判断用户是否选择了两个单元格或单元格区域
If Selection.Areas.Count = 2 Then
Set XR = Selection.Areas（1）
Set YR = Selection.Areas（2）
'判断选区是否重叠
If Not Intersect（XR， YR） Is Nothing Then
Result = MsgBox（" 选择区域有重叠！交换后重叠区域的数据将有部份被覆盖！" & vbCrLf & " 是否继续？"， vbYesNo）
If Result = vbNo Then Exit Sub
End If
If XR.Rows.Count = YR.Rows.Count And XR.Columns.Count = YR.Columns.Count Then
'交换选区
SZ1 = XR.Formula
SZ2 = YR.Formula
XR = SZ2
YR = SZ1
Else
MsgBox "选择的两个数据区域大小不一样！请确认重新选择！"
End If
Else
MsgBox "请按住Ctrl键选择两个要交换的数据区域！" |
自定义一个工具栏按钮，并将创建的宏指定给该按钮即可(如图)。如果选中的两个单元格的区域大小(单元格个数)不同或选择的数据少于2个，系统将会给出相应的出错提示。
Excel显示值计算
Excel显示值计算 利用Round函数杜绝Excel的计算误差。其实，Excel之所以产生这种计算上的误差是因为我们在单元格中看到的显示值与实际值不同所造成的，图中 即显示了显示值与实际值的差异，当进行计算时Excel以实际值进行计算，而非显示值。知道了这些，我们只要设置Excel以显示值进行计算即可避免计算 误差的出现。设置方法如下： 1. 在“工具”菜单上，单击“选项”。 2. 单击“重新计算”选项卡，单击选中“以显示值为准”（Excel 97/2000/2002）或“以显示精度为准”（Excel
