我们可以使用以下代码来构建列的范围，并使用变量来引用这些范围。代码示例如下：

Sub BuildRanges()
    Dim rngA As Range, rngB As Range, rngC As Range
    Dim iFirstCol As Integer, iLastCol As Integer
    
    iFirstCol = 1 '第一个列的索引
    iLastCol = 3 '最后一个列的索引
    
    Set rngA = Range(Cells(1, iFirstCol), Cells(5, iFirstCol)) '列A的范围
    Set rngB = Range(Cells(1, iFirstCol + 1), Cells(5, iFirstCol + 1)) '列B的范围
    Set rngC = Range(Cells(1, iFirstCol + 2), Cells(5, iFirstCol + 2)) '列C的范围
    
    '现在可以使用这些范围进行进一步处理
End Sub

在上面的代码中，我们首先定义需要构建的列的索引范围（iFirstCol和iLastCol）。然后，我们使用Range和Cells函数来构建三个不同列的范围（rngA、rngB和rngC）。最后，我们可以使用这些范围进行其他操作，例如对它们进行格式化或执行计算。