摘要： 有时候，我们需要将两个单元格区域中的数据对换，也就是说，第一个区域的数据放置到第二个区域，而第二个区域的数据放置到第一个区域。
通常，我们可以先将第一个区域的数据复制到另一个地方，然后将第二个区域的数据复制到第一个区域，最后将先前复制到另一个地方的数据复制到第二个区域。
然而，使用VBA代码可以帮助我们快速完成任务，如下图1所示。
图1
代码如下：
‘交换所选择的两个单元格区域
Sub SwapTwoRanges()
Dim rng As Range
Dim rngTemp As Variant
‘要交换的区域
Set rng = Selection
‘判断是否是两个区域且它们大小相同
If rng.Areas.Count <> 2 Or _
Excel数据批量写入Word
之前有两篇文章过Excel和Word数据交互的基础知识，这里说个实际遇到的综合案例，基本上将之前的知识点结合起来了。 一、实际案例引入 这次遇到的案例需求：将Excel数据批量写入Word。需要写入的内容如下图所示，红色框里的内容是需要写入word的。 我这里有很多个excel文件，每一个都需要打开把数据写入
rng.Areas(1).Cells.Count <> _
rng.Areas(2).Cells.Cells.Count Then
MsgBox “请选择两个大小相同的区域”
Exit Sub
End If
‘临时存储第一个区域的数据
rngTemp = rng.Areas(1).Cells.Formula
‘将第二个区域的数据输入到第一个区域
rng.Areas(1).Cells.Formula = rng.Areas(2).Cells.Formula
‘将第一个区域的数据填到第二个区域
rng.Areas(2).Cells.Formula = rngTemp
End Sub
注意，运行代码前需要先选择两个相同大小的区域，也就是要交换数据的区域。
代码的图片版如下：
excel图表根据选择高亮显示图表系列数据点
本文分享一个动态图表示例，效果如下图1所示。当按下工作表中不同的按钮时，图表会自动更新，高亮显示相应数据系列的数据点。 图1 制作图表的数据如下图2所示。 图2 步骤1：绘制图表。选择数据单元格区域A2:D6，单击功能区选项卡“插入—图表—带数据标记的折线图”，结果如下图3所示。 图3 步骤2：
