VBA使用range实现列循环

nihaonihaohuai

不知道VBA能不能使用range来实现列循环 ，而不使用cells
比如简单赋值
Sub tt()
Dim i As Integer
For i = 1 To 20

Range(Chr(65 + i) & 2).Value = i
Next i
End Sub

但是这种方法只能给1至26列赋值，26列以后就不能赋值了

mineshine

改用Cells(row,column)

Cells(1,1) 代表 Rnage("A1")
Cells(1,2) 代表 Rnage("B1")

490483577

Sub tt()
Dim i As Integer

For i = 1 To 100
   Cells(2, i) = i
Next i
End Sub

nihaonihaohuai

谢谢mineshine和490483577

waitingyou6971

与贴主同问。
如果能使用range进行列循环，意义在于，可以方便地使用range的属性，这是cells（i,j）方式所不具备的，因为cells的属性、方法和range的属性、方法等不等同。

彼岸归航

Function NtoS(i)
    If i <= 26 Then
        NtoS = Chr(64 + i)
    ElseIf i Mod 26 = 0 Then
        NtoS = Chr(WorksheetFunction.RoundDown(i / 26, 0) + 63) & "Z"
    Else
        NtoS = Chr(WorksheetFunction.RoundDown(i / 26, 0) + 64) & Chr((i Mod 26) + 64)
    End If
End Function

qline302

一般Range里循环，我用语句：
For each rngX in Range("A1:A100")
   rngX="balabala"
Next

tanglf188

非要用Range也可以，办法也不是唯一，请参考：
Sub tt()
    Dim i As Integer
    For i = 1 To 30
        Range(Split(Cells(1, i).Address, "$")(1) & 2).Value = i
    Next i
End Sub

wangziqiang

qline302 发表于 2024-1-18 10:41
一般Range里循环，我用语句：
For each rngX in Range("A1:A100")
   rngX="balabala"

Range里循环列  赞同

micch

waitingyou6971 发表于 2024-1-17 00:15
与贴主同问。
如果能使用range进行列循环，意义在于，可以方便地使用range的属性，这是cells（i,j）方式所 ...

建议如果要操作对象，那就声明一个对象,属性和方法就都能用了

dim rng as range
for c = 1 to 100
    set rng = cells(1,c)
    rng.value=rng.address
next