如何根据标题行的内容，自动复制对应整列数据内容？

dchhr

职员代码

姓名

职级

员工类别

岗位类别

职位类别

到职原因

招聘渠道

合同终止日期

试用期（月）

合同期限（月）

同步工资生效日期

户口性质

门户编号

民族

婚姻状况

性别

出生日期

毕业年份

005054

王生安

M3

正式员工

高级管理

管理层

新增

内部推荐

2018-3-19

3

36

2012-3-19

外市城镇

16387

汉

已婚

男

1979-11-1

2001-7

172777

张顺谷

O1

试用员工

中层管理

销售支持

填补

内部推荐

2018-4-1

3

36

2015-4-1

外市农村

172777

汉

已婚

男

1986-12-14

2009-6

007764

张淮森

S1

正式员工

辅助及运作员工

销售支持

填补

人才市场

2018-7-1

0

36

2012-07-01

外市城镇

118405

汉

未婚

男

1994-2-9

2012-7

017593

周逸依

S2

正式员工

辅助及运作员工

销售支持

填补

内部推荐

2017-10-28

6

36

2014-10-28

本市农村

170545

汉

未婚

男

1988-10-25

2008-7

011741

朱付流

S1

正式员工

辅助及运作员工

销售支持

填补

内部推荐

2016-10-23

3

36

2013-10-24

外市农村

150333

汉

已婚

男

1985-3-27

001771

李彩早

S3

正式员工

辅助及运作员工

销售支持

填补

网络

2016-4-14

2

36

2011-04-15

本市农村

87558

汉

已婚

女

1980-2-5

职员代码	姓名	职位类别	合同终止日期
005054	王生安	高级管理	2018-3-19
172777	张顺谷	中层管理	2018-4-1
007764	张淮森	辅助及运作员工	2018-7-1
017593	周逸依	辅助及运作员工	2017-10-28

表2是全部数据，表1我只想取表2中的部分数据，我想根据表1想取的标题行内容自动把表2对应整列数据复制粘贴过来，数据很大。

Tadis

用SQL很方便

dchhr

我用 excel哦，大神有什么办法

Tadis

dchhr 发表于 2017-6-17 10:34
我用 excel哦，大神有什么办法

写一个宏，用SQL语句实现

chxw68

1. Sub 字典法()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("1")
   
7.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
   
8.     arr = .Range("a1").Resize(1, c)
   
9.     For j = 1 To UBound(arr, 2)
   
10.       d(arr(1, j)) = j
    
11.     Next
    
12.     .UsedRange.Offset(1, 0).Clear
    
13.   End With
    
14.   With Worksheets("2")
    
15.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
16.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
17.     arr = .Range("a1").Resize(1, c)
    
18.     For j = 1 To UBound(arr, 2)
    
19.       If d.exists(arr(1, j)) Then
    
20.         .Cells(1, j).Resize(r, 1).Copy Worksheets("1").Cells(1, d(arr(1, j)))
    
21.       End If
    
22.     Next
    
23.   End With
    
24. End Sub
    

复制代码

chxw68

字典法的。

chxw68

字典法的。

chxw68

1. Sub SQL法()
   
2.   Dim cnn As New ADODB.Connection
   
3.   Dim rs As New ADODB.Recordset
   
4.   Dim sql As String
   
5.   Dim mybook As String
   
6.   mybook = ThisWorkbook.FullName
   
7.   With cnn
   
8.     If Application.Version = "11.0" Then
   
9.       .Provider = "microsoft.jet.oledb.4.0"
   
10.       .ConnectionString = "extended properties=""excel 8.0;HDR=YES;IMEX=1"";data source=" & mybook
    
11.     Else
    
12.       .Provider = "microsoft.ACE.oledb.12.0"
    
13.       .ConnectionString = "extended properties=""excel 12.0;HDR=YES;IMEX=1"";data source=" & mybook
    
14.     End If
    
15.     .Open
    
16.   End With
    
17.   With Worksheets("1")
    
18.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
19.     bt = Application.Transpose(Application.Transpose(.Range("a1").Resize(1, c)))
    
20.   End With
    
21.    
    
22.   sql = "select " & Join(bt, ",") & " from [2$a1:s]"
    
23.   rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
    
24.   With Worksheets("1")
    
25.     .UsedRange.Offset(1, 0).Delete
    
26.     .Range("a2").CopyFromRecordset rs
    
27.   End With
    
28. End Sub
    

复制代码

chxw68

ADO+SQL方法。

dchhr

chxw68 发表于 2017-6-17 10:54
ADO+SQL方法。

大神，谢谢，这两种方法哪个更好用点呀？