循环运行到特定的列

我正在尝试将此代码更改为仅从第3列到工作簿中较远的某个列。 现在，我正在为语法如何改变而留下一个空白，以便让我可以做到这一点。 谢谢！

For chartdatacol = 3 To Worksheets("Chart Data").Cells(Rows.Count, 2).End(xlUp).row 

Answer 1

如果要循环访问最后一列，请使用

 Worksheets("Chart Data").Cells(1, Worksheets("Chart Data").Columns.Count).end(xlToLeft).Column 

这假设第1行有您感兴趣的最后一列的数据。

所以你的循环看起来像

 For chartdatacol = 3 To Worksheets("Chart Data").Cells(1, Worksheets("Chart Data").Columns.Count).End(xlToLeft).Column 

Answer 2

为了清楚起见，我会从你的陈述中提取数字

 Dim i as Integer, lastCol as Integer, firstCol as Integer firstCol = 3 lastCol = mySheet.UsedRange.Columns.Count For i = firstCol to lastCol --Do something Next i