vba并在最后一列返回sheet表名称_获取工作表名称、名称列表、相对位置的函数...

大家好，我们今日讲解“VBA信息获取与处理”教程中第二十个专题“定制工作表函数获取工作表的信息”的第2节“获取工作表名称、名称列表、相对位置的函数”，这个专题是非常实用的知识点，希望大家能掌握利用。教程会提供配套的程序文件。

第二节获取工作表名称、名称列表、相对位置的函数

大家好，我们这讲的内容继续介绍给大家利用定制函数获取工作表名称、名称列表、相对位置的函数。

1  SheetName函数，返回工作簿中工作表的名称

这个函数将返回工作表的名称，这里将给出一个单元格的参数R，如果R存在，则返回包含R的工作表的名称。如果省略R，则返回调用函数的工作表的名称。下面看我给出的代码： Public Function SheetName(Optional R As Range) As String     If R Is Nothing Then SheetName = Application.Caller.Worksheet.Name     Else SheetName = R.Worksheet.Name     End If End Function 代码截图： 代码讲解： 1)这个函数将返回工作表的名称，如果R存在，则返回包含R的工作表的名称。如果省略R，则返回调用函数的工作表的名称。

2  SheetNames函数，返回包含工作簿中工作表名称的数组

这个函数将返回整个工作薄的工作表名称数组，下面先看代码： Public Function SheetNames(Optional R As Range, Optional VisibleOnly As Boolean = False) As String()     Dim WB As Workbook     Dim WS As Worksheet     If Application.Caller.Rows.Count> 1 And _ Application.Caller.Columns.Count> 1 Then SheetNames = CVErr(xlErrRef)             Exit Function     End If     If R Is Nothing Then         Set WB = Application.Caller.Worksheet.Parent     Else         Set WB = R.Worksheet.Parent     End If     N = Application.WorksheetFunction.Max( _ WB.Worksheets.Count, Application.Caller.Cells.Count) ReDimSS(1 To N)     N &