这是在vbaexpress.com上看到的一个示例，相对较简单，但是运用了数组及一些VBA语句，初学者可以参考。

Q：我有一个工作簿，包含有多个工作表，我想在这些工作表的同一位置都添加一个按钮，并对这些按钮指定相同的宏过程，如何实现？

要求按组拆分每行的文字，再对组内各行求交集，用逗号合并结果，填入每组的第1行里。如下D列：

现在要进列转行：每行的每 2 列内容填成一行，即扩展成 3 行；第 1 列 ID 保留；新增第 2 列 No 是扩展出来的行号：

Q：我在工作表中放置有一些形状，例如圆形、矩形等，我想当我在工作表中使用鼠标单击这些形状时能够根据单击的形状有不同的操作，该如何实现？我想在一个过程中实现，而不是每个形状关联不同的过程。...

为了使用VBA处理批注，需要使用Comment对象。允许删除批注、更改批注文本或查找批注作者或批注所在的单元格等操作。

现在要算出1-12对应的一列数据，计算规则：在片区3中依次查找1-12，找到后在片区1对应位置取数，如果是0则取片区2同位置的数，如果是1则取F+当前查找数。结果如下图G、H列所示：...

这是在www.wimgielis.com中看到的一段代码，可以在工作表中自动添加一个矩形，用户可以指定矩形的大小和填充的颜色，以及指定相关联的宏。辑录于此，供参考。...

想要阻止用户删除工作表，但是又想要允许插入工作表并重命名工作表，因此不能设置保护工作表，那么该如何实现呢？

假设工作表中包含三列，即列A中是水果名，列B中是颜色，列C中是产地，现在查找同时包含“apple”、“red”和“Hungary”的行，可以使用下面的代码：