[VBA] [Excel] [Sub] copy sheets (same workbook)

Abstract: [VBA] [Excel] [Sub] copy sheets (same workbook)

'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

Original: Large columns  [VBA] [Excel] [Sub ] copy sheets (same workbook)