代码：

Question

在excel中，我在A列中拥有的数据比在任何其他列中都多。在所有其他列中，有一些公式依赖于A列中的信息。我正在编写一个宏，它将更新A列中的信息，然后将剩余的列填充到A列结束的位置。我已经编写了一段代码来选择B列的那一部分，但我想知道如何修改它以便它会选择B到AI的列？我对VBA很新，所以对此问题的任何帮助将不胜感激。

Sheet7.Range(Range("b1").End(xlDown), Cells(Range("A1").End(xlDown).Row,"B")).Select

Answer 1

您必须为每列提供一行代码或进行循环。我将向您展示如何将代码转换为循环。

代码：

Dim i As Long
For i = 2 to Range("AI1").Column
    Sheet7.Range(Sheet7.Cells(1,i).End(xlDown), Cells(Range("A1").End(xlDown).Row,i)).FillDown
    'The Code for Each Range Here!!
Next i

Answer 2

如果来自＆＃34; B＆＃34;到＆＃34; AI＆＃34;具有相同数量的公式，以同一行结尾，解决方案非常简单：只需替换＆＃34; B＆＃34;通过＆＃34; AI＆＃34;。

Sheet7.Range(Range("b1").End(xlDown), Cells(Range("A1").End(xlDown).Row, "AI")).Select

虽然我以更清晰的方式重写了它：

With Thisworkbook.Sheet7
    .Range(Range("B1").End(xlDown), .Range("AI" & .Range("A1").End(xlDown).Row)).Select
End With

如果来自＆＃34; B＆＃34;到＆＃34; AI＆＃34;有不同数量的公式或公式以不同的行结尾，请参考答案，由jbarker2160提供。

选择多列，其中一列以vba结尾

2 个答案:

代码：