摘要:[VBA][Excel][Sub] 复制工作表( 相同活页簿)
'Description:复制工作表( 相同活页簿) - Ver. 1.00 'Parameters:wb 活页簿, strWorkSheet 欲复制的工作表名称, varWsAfter 工作表索引或名称(插入其之后), strFind 欲消除的字符串, ' strRep 代替的字符串,strSoureRange 欲复制的保存格范围, strToCell 目标保存格 'Return: 'Package:mFunction.F_Worksheet_isExist 'Reference: 'Creater:Darren.NET - 2009/04/22 'Modify: Public Sub S_Worksheet_CopyWbWsAfter(wb As Workbook, strWorkSheet As String, varWsAfter As Variant, strFind As String, strRep As String, strSoureRange As String, strToCell As String) On Error Resume Next Dim wsNew, ws As Worksheet If mFunction.F_Worksheet_isExist(wb, strWorkSheet) = True Then Set wsNew = wb.Worksheets.Add(After:=wb.Worksheets(varWsAfter)) wsNew.Name = Replace(strWorkSheet, strFind, strRep) Set ws = wb.Worksheets(strWorkSheet) ws.Range(strSoureRange).Copy (wsNew.Range(strToCell)) End If Set ws = Nothing Set wsNew = Nothing End Sub
原文:大专栏 [VBA][Excel][Sub] 复制工作表( 相同活页簿)