VBA能让指定名称的工作表建建设副移动到最后面（能输入名称对应相应表格名称创建副...

蒋智龙

VBA能让指定名称的工作表建建设副移动到最后面（能输入名称对应表格名称创建副本到表格最后面）

WANT-T

1. Public Function GetWorksheet(Optional ByRef wbk As Workbook = Nothing, Optional shtName As String = "") As Worksheet
   
2.     If wbk Is Nothing Then Set wbk = ThisWorkbook
   
3.     On Error Resume Next
   
4.     With wbk
   
5.         Set GetWorksheet = .Worksheets(shtName)
   
6.         If Err.Number <> 0 Then
   
7.             Set GetWorksheet = wbk.Worksheets.Add(after:=wbk.Sheets(wbk.Sheets.count))
   
8.             GetWorksheet.Name = shtName
   
9.         End If
   
10.     End With
    
11. End Function

复制代码