Excel VBA列循环

Question

当我们要在行中进行循环时，可以使用以下代码：

i = 1
Do
   Range("E" & i & ":D" & i).Select
   i = i + 1
Loop Until i > 10

但如果我们想对一列进行循环呢？

我们能使用上面的方法吗？

Excel中的列是复杂的，如A、B、C、......Y、Z、AA、AB、AC等，从“Z”到“AA”的循环会出现问题。

如何循环字母列从“A”到“Z”，然后继续到“AA”、“AB”等等。

有什么办法可以帮忙解决吗？

- wahyueka31

Answer 1

是的，让我们以Select作为例子。

示例代码：Columns("A").select

如何循环列：

方法1：（您可以使用索引来替换Excel地址）

For i = 1 to 100
    Columns(i).Select
next i

方法2：（使用地址）

For i = 1 To 100
 Columns(Columns(i).Address).Select
Next i

编辑： 为 OP 删除该列。

columnString = Replace(Split(Columns(27).Address, ":")(0), "$", "")

例如，如果您想获取第27列，即AA列，可以按照以下方式获取

- Larry

---

+1 是因为提供了两种方法... :) 虽然当你有第一种方法时，第二种方法就变得无用了。 - Siddharth Rout

你知道如何将列索引作为字符串循环获取吗？例如："A"，"B"，...，"AA"，"AB"等。这样我就可以像这样在我的循环中应用它： Range(colIndex & i & ":" & colIndex & i).Select“colIndex”是一个变量，用于在Excel中循环列索引。 - wahyueka31

@Larry 最好问一下他为什么需要这个列名 :) 我很好奇。 - bonCodigo

@Rebel 通常情况下，没有必要使用列字母；这只是 Excel 用户界面的设计方式，但在底层，列与任何其他集合一样都是使用数字索引的。因此，除非真正必要，否则请使用数字。 - whytheq

Answer 2

尝试另一种方法。 同时，当您将初始列设置为Range对象时，select可以被替换。从性能方面考虑，这会有所帮助。

同时，当您将初始列设置为Range对象时，select可以被替换。从性能方面考虑，这会有所帮助。

Dim rng as Range

Set rng = WorkSheets(1).Range("A1") '-- you may change the sheet name according to yours.

'-- here is your loop
i = 1
Do
   '-- do something: e.g. show the address of the column that you are currently in
   Msgbox rng.offset(0,i).Address 
   i = i + 1
Loop Until i > 10

**通过列数获取列名的两种方法**

• Split()

code

colName = Split(Range.Offset(0,i).Address, "$")(1)

• 字符串操作：

代码

Function myColName(colNum as Long) as String
    myColName = Left(Range(0, colNum).Address(False, False), _ 
    1 - (colNum > 10)) 
End Function 

- bonCodigo

---

你知道如何将列索引作为字符串循环获取吗？例如："A"、"B"、...、"AA"、"AB"等。这样我就可以像这样在循环中应用它： Range(colIndex & i & ":" & colIndex & i).Select"colIndex"是一个变量，用于在Excel中循环列索引。 - wahyueka31

@Rebel 可以做到。但是出于好奇，既然有许多有效的方法可以循环遍历列，为什么你想要获取字符串“列名”呢？ - bonCodigo

@Rebel 我已经提供了两种不同的方法来查找列名。请与我们分享，您为什么需要它 :D - bonCodigo

Answer 3

如果您想继续使用相同类型的循环，那么以下内容将起作用：

Option Explicit

Sub selectColumns()

Dim topSelection As Integer
Dim endSelection As Integer
topSelection = 2
endSelection = 10

Dim columnSelected As Integer
columnSelected = 1
Do
   With Excel.ThisWorkbook.ActiveSheet
        .Range(.Cells(columnSelected, columnSelected), .Cells(endSelection, columnSelected)).Select
   End With
   columnSelected = columnSelected + 1
Loop Until columnSelected > 10

End Sub

编辑

如果你只是想循环遍历电子表格中某个区域的每个单元格，那么可以使用以下代码：

Sub loopThroughCells()

'=============
'this is the starting point
Dim rwMin As Integer
Dim colMin As Integer
rwMin = 2
colMin = 2
'=============

'=============
'this is the ending point
Dim rwMax As Integer
Dim colMax As Integer
rwMax = 10
colMax = 5
'=============

'=============
'iterator
Dim rwIndex As Integer
Dim colIndex As Integer
'=============

For rwIndex = rwMin To rwMax
        For colIndex = colMin To colMax
            Cells(rwIndex, colIndex).Select
        Next colIndex
Next rwIndex

End Sub

- whytheq

---

你知道如何将列索引作为字符串循环获取吗？例如："A"，"B"，...，"AA"，"AB"等。这样我就可以像这样在我的循环中应用它： Range(colIndex & i & ":" & colIndex & i).Select“colIndex”是一个变量，用于在Excel中循环列索引。 - wahyueka31

@Rebel，这与.Range（.Cells（i，colIndex），.Cells（i，colIndex））。Select相同......这就是我在我的建议答案中提供的内容，只是名称更具描述性。但是，在您的评论中，您提到了Range（colIndex＆i＆：“”＆colIndex＆i）。Select......在冒号后不需要重复的部分：Range（colIndex＆i）。Select......实际上等同于.cells（i，colIndex）。 - whytheq

Answer 4

只需使用Cells函数并循环遍历列。 Cells(行,列)

- user14543082