表格操作系列——取得表格指定名称列的全部数据

表格操作系列

六、取得表格指定名称列的全部数据

下面的代码，可以实现对表格整列数据的提取，也可以仿造此原理实现整行数据的提取。
列名称需要在第一行，支持使用列名字母或是首行标题名引用列。

函数代码

Public Function GetColumnByFie(Fie As String, Optional sh As String = "当前表") As Variant
'取得某一列的数据
Dim col As String
'On Error GoTo err
If sh = "当前表" Or sh = "" Then sh = ActiveSheet.Name
With Sheets