下面我们就来看看在Excel VBA的程序显示来自团队的列表中的所有可能的足球比赛的打印预览。

现状：

Possible Football Matches in Excel VBA

1.首先，我们声明一个范围对象和四个变量。我们呼吁Range对象RNG。一个字符串变量我们称之为matchname和三个整数变量我们称之为计数器，i和j。

Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer

CurrentRegion，因为我们不知道的范围内提前确切边界（我们希望这个计划，为3支球队也为12支球队的工作）。我们与值0计数器初始化

Set rng = Range("A1").CurrentRegion

counter = 0

3.我们写的所有列C.首先，我们空列C.可能的足球比赛

Worksheets(1).Columns(3) = ""

4.我们开始一个双循环。

For i = 1 To rng.Count

For j = i + 1 To rng.Count

5.我们写一个matchname给变量matchname。

matchname = rng.Cells(i).Value & " vs " & rng.Cells(j).Value

例如，对于i = 1和j = 2时，Excel VBA写入matchname踢球者VS射手。对于i = 1和j = 3时，Excel VBA写入matchname踢球者VS小巨人等

6.我们写matchname列C.

Cells(counter + 1, 3).Value = matchname

7.计数器跟踪由每次1写入到列C. Excel VBA中递增计数器matchnames的数量的其写入一个matchname柱C.为了实现这一点，添加以下代码行：

counter = counter + 1

8.不要忘记关闭两个循环。

Next j

Next i

9.我们展示了所有可能的足球比赛的打印预览。

ActiveSheet.Columns(3).PrintPreview

10.测试程序。

结果的一部分：

Possible Football Matches Result

注：C列手动中心得到这个结果。