Excel VBA Range中的第1列该怎么写呢？

z332

代码如下，区域B6：C7的第1列表达方式对吗？如果不对，该怎么表达呢？

Public Sub test()
Dim rng As Range
Set rng = Range("B6:C7").Columns(1)
For Each x In rng
    MsgBox x
Next
End Sub

运行报错：
运行时错误‘13’
类型不匹配

lhm0926

为什么要这么写？写range("B6:B7")不行吗？

jy03342543

Sub 猜一个()
Dim Rng As Range
   Set Rng = Range("B6:C7")
   MsgBox Rng.Column
End Sub

loirol

也可以这样

z332

lhm0926 发表于 2021-2-22 14:47
为什么要这么写？写range("B6:B7")不行吗？

区域不是固定的，我想获得某区域的某列

z332

jy03342543 发表于 2021-2-22 16:02
Sub 猜一个()
Dim Rng As Range
   Set Rng = Range("B6:C7")

rng.Column好像是表示区域最左端的列号哒

z332

lhm0926 发表于 2021-2-22 14:47
为什么要这么写？写range("B6:B7")不行吗？

区域是个变量，视选择而定，我想获得某区域的某列

z332

jy03342543 发表于 2021-2-22 16:02
Sub 猜一个()
Dim Rng As Range
   Set Rng = Range("B6:C7")

rng.Column是表示区域最左列的列号哒

z332

loirol 发表于 2021-2-22 16:02
也可以这样

这是一个方法。但是rng.Columns(1)是表示什么呢？

字数限制

我跟你遇到类似的问题。Set Rng = Rng.columns(1) 我运行这句话之后，rng.count就一直是1。而实际我选择的是一大块区域。后来我改成Set Rng = Intersect(Rng, Rng.Columns(1)) ，rng.count就对了。但我不知道为什么。莫非columns(1)返回的是一个数组？