下面我们将在Excel VBA中查看一个程序，该程序显示球队列表中所有可能的足球比赛的打印预览。
情况：
1.首先，我们声明一个Range对象和四个变量。我们将Range对象称为rng。我们将一个String变量称为Matchname，将三个Integer变量称为counter，i和j。
昏暗的 RNG 作为范围，matchname 作为 字符串，计数器作为 整数，我作为 整数，J 为 整数
2.我们使用团队名称初始化rng。之所以使用CurrentRegion，是因为我们事先不知道范围的确切边界（我们希望该程序可用于3个团队，但也可用于12个团队）。我们将计数器初始化为0。
设置 rng = Range（“ A1”）。CurrentRegion
计数器= 0
计数器= 0
3.我们将所有可能的足球比赛都写入C列。首先，我们清空C列。
工作表（1）。列（3）=“”
4.我们开始一个双循环。
对于 i = 1 到 rng.Count
对于 j = i +1 到 rng.Count
对于 j = i +1 到 rng.Count
5.我们将匹配名称写入变量matchname。
matchname = rng.Cells（i）.Value＆“ vs”＆rng.Cells（j）.Value
例如，对于i = 1和j = 2，Excel VBA将匹配名称写为“ Kickers vs Shooters”。对于i = 1和j = 3，Excel VBA将匹配名称写为Kickers vs Little Giants等。
6.我们将匹配名称写入C列。
单元格（计数器+ 1，3）。值=匹配名称
7.计数器跟踪写入C列的匹配名称的数量。每次将Vmatch名称写入C列时，Excel VBA都会使计数器增加1。要实现这一点，请添加以下代码行：
计数器=计数器+ 1
8.不要忘记关闭两个循环。
下一步 Ĵ
接下来我
接下来我
9.我们显示所有可能的足球比赛的打印预览。
ActiveSheet.Columns（3）.PrintPreview
10.测试程序。
结果的一部分：
注意：将C列手动居中以获取此结果。