excel vba 如何从列号中获取整个列范围？

Question

我想不出更简单的方法来做到这一点

当前将列号转换为字母：

col_letter = Split(Cells(1, X).Address, "$")(1)

然后我像这样定义整个列范围：

.Range(col_letter & ":" & col_letter)

有没有更简单的方法？

背景：

我正在尝试在 VBA 中使用 SUMIF

Dim col_letter as string
Dim my_total as double
Dim col_number as long

col_number = 15
col_letter = Split(Cells(1, X).Address, "$")(1)

my_total = Application.WorksheetFunction.SumIf( _ 
    .Range("A:A"), "Admix", .Range(col_letter & ":" & col_letter))

但我不禁想到必须有一些聪明的东西来使用col_number定义范围

.Range(col_letter).column 什么的。我对columns 和column 属性感到困惑，因为我不知道如何使用它们。

Answer 1

您可以对列使用数字引用而不是字母：.Columns(x) 应该足够了（而不是 .Range(col_letter & ":" & col_letter)）。