VBA - 复制粘贴带有空白单元格的列

Question

Hi I am trying to write a code to copy values in different column from one sheet to another(Both sheet have same headers) There are few columns which I can simply copy and paste using the below code. But for the column which have blank column in between what would be the best way to copy these column. I know this can be done using variable , I am curious to find out if this can be done without using any variable.

Also , is there any smarter way to write a code to copy all the columns in one go (with or without declaring any variables)

Sheets("type 1").Select
Cells.Find(What:=" Netherland ").Select
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("type 2").Select
Cells.Find(What:=" Netherland ").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste 

Answer 1

You could try something like this

Worksheets("type 2").Columns(Worksheets("type 2").Find("*Netherland*").Column).Value _
= Worksheets("type 1").Columns(Worksheets("type 1").Find("*Netherland*").Column).Value

You could make this a lot cleaner by setting the column numbers to variables and just using them instead of the actual line to find them, but this doesn't require any additional variables.

Answer 2

You could try using the SpecialCells property to include the entire column, including any empty cells that appear between the first and last cells.

So where you have:

Range(Selection, Selection.End(xlDown)).Select

Instead use something like:

.Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell))

Though you'll have to change the range references to suit your project.