表格操作系列——利用字段名获取表格中对应列的数据

表格操作系列

一、利用字段名获取表格中对应列的数据

在利用VBA操作表格时，经常需要提取其中的某些数据，为了能够轻松完成操作和，而不用每次都写复杂的代码，编制了下面的函数，支持单列的字段名和列号，以及多列的字段名来获取相应的数据，可以方便的使用。

函数代码

Public Function GetSheetDatas(Fie, Optional WithFie As Boolean = False, Optional Sh As String = "ActiveSheet")
Dim Rng As Range
Dim Lr As Integer
Dim sp() As String
Dim i As Integer
Dim j As Integer
Dim Arr() As String
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
dic.CompareMode = vbTextCompare        '采用文本的比较方式，不分大小写

If Sh = "ActiveSheet" Then Sh = ActiveSheet.Name
With Sheets(Sh)
    If InStr(Fie, ",") Then '当字段名为多列时
        sp = Split<