Excel VBA可变列选择

Question

I am currently trying to finish a Macro that will pull together a list of all the people into 1 list and show all of the different info for people across all of the lists.

I have gotten to the point where I have all the lists together, and all I need to do now is select the proper data and compile it.

My current code:

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

I am trying to replace the columns line so that it can select a variable length.

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

When the Macro gets to the first 2nd line in my updated code, I get a run time error '1004': Application-defined or object defined error.

When I go through it line by line, there seems to be an issue with the Columns("E") selecting the same data as it previously had when it was Columns ("E:AI").

Any help would be greatly appreciated.

Answer 1

Not exactly sure what you are trying to do but this code till select E1 -> last column and last row filled.

You need to adapt it to suit your needs. I assumed your table is square, if not change the code.

I counted the rows used in column E, if that is not what you want change that.
I also looked for the last column in row 1. change that if that is incorrect.

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