无需手动拖拽，vba轻松复制一列、多列、整张表信息！

效果一：复制整张表信息到其他工作表（表头要对应上）

效果二：指定列标题复制到其他工作表中

核心代码如下：

Sub 根据条件提取列信息()

Application.ScreenUpdating = False

Sheets("根据条件提取内容").UsedRange.Offset(1).Clear

L = Sheets("根据条件提取内容").Cells(1, Columns.Count).End(xlToLeft).Column

With Sheets("员工基本资料")

For j = 1 To L

Set Rng = .Rows(1).Find(Cells(1, j).Value, lookat:=xlWhole)

If Not Rng Is Nothing Then

Rng.EntireColumn.Copy Sheets("根据条件提取内容").Cells(1, j)

End If

Next j

End With

Application.ScreenUpdating = True

End Sub

如果需要其他代码，可以关注+私信--回复017获取本示例表格所有代码。