Excel VBA可变列选择

Question

我目前正在尝试完成一个宏，该宏会将所有人员的列表汇总到1个列表中，并显示所有列表中人员的所有不同信息。

我已经到了将所有列表放在一起的地步，现在我要做的就是选择合适的数据并进行编译。

我当前的代码：

Sheets("Sheet2").Select
Columns("E:AI").Select
Selection.Copy
Sheets("Sheet1").Select
Range("E1").Select
ActiveSheet.Paste

我正在尝试替换列行，以便它可以选择可变长度。

Columns("E").Select
Range(Selection, Selection.End(x1toRight)).Select
Range(Selection, Selection.End(x1Down)).Select
Selection.Copy

当宏到达更新后的代码的第一行时，出现运行时错误'1004'：应用程序定义或对象定义的错误。

当我逐行浏览时，Columns（“ E”）选择的数据与以前是Columns（“ E：AI”）时相同，似乎存在问题。

任何帮助将不胜感激。

Answer 1

不完全确定您要执行的操作，但是此代码直到选择E1->最后一列和最后一行已填充。

您需要对其进行调整以适合您的需求。 我假设您的桌子是正方形的，如果不更改代码。

我计算了E列中使用的行，如果那不是您想要的，请更改该行。
我还寻找了第1行的最后一列。如果那是不正确的，请进行更改。

LastCol = ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column ' here you need to change '1' to what row to look at
LastRow = Cells(Rows.Count, "E").End(xlUp).Row ' change "E" to fit your need
Range("E1:" & Split(Cells(1, LastCol).Address(True, False), "$")(0) & LastRow).Select