gpt4 book ai didi

Excel:使用 VBA 命名范围

转载 作者:行者123 更新时间:2023-12-02 09:31:57 30 4
gpt4 key购买 nike

我正在尝试使用 VBA 在 Excel 中定义命名范围。基本上,我有一个可变的列号。然后运行循环以确定该特定列中的第一个空单元格。现在我想定义一个命名范围,从该特定列的第 2 行到该列中包含数据的最后一个单元格(第一个空单元格 - 1)。

例如,指定第 5 列,其中包含 3 个值。如果我是正确的,我的范围将是 (2,5)(4,5)。我只是想知道如何仅使用整数而不是 (E2:E4) 来指定此范围。这有可能吗?

我发现这段代码来定义命名范围:

'Change the range of cells (A1:B15) to be the range of cells you want to define
Set Rng1 = Sheets("Sheet1").Range("A1:B15")
ActiveWorkbook.Names.Add Name:="MyRange", RefersTo:=Rng1

有人可以将我推向正确的方向,仅使用整数指定此范围吗?

最佳答案

当您的目标范围是 E2:E4 时,您需要指定单元格位置。下面的函数可能对您有用,将列号传递给它,例如5 它将返回地址,因此 5=E 和 27=AA

ColLetter = ColNo2ColRef(colNo)
Set Rng1 = Sheets("Sheet1").Range(ColLetter & "2:" & ColLetter & "4")
ActiveWorkbook.Names.Add Name:="MyRange", RefersTo:=Rng1

Function ColNo2ColRef(ColNo As Long) As String
ColNo2ColRef = Split(Cells(1, ColNo).Address, "$")(1)
End Function

希望这有帮助

编辑:或者:

Set rng = Range(Cells(2, 5), Cells(4, 5)) 'E2:E4
ActiveWorkbook.Names.Add Name:="MyRange", RefersTo:=Rng

关于Excel:使用 VBA 命名范围,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6228087/

30 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com