'
' Macro1 Macro
'
'
Range("C1").Select
ActiveCell.FormulaR1C1 = "concat"
Range("D1").Select
ActiveCell.FormulaR1C1 = "regex"
Range("E1").Select
ActiveCell.FormulaR1C1 = "nbchar"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]&""|"""
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C31659")
Range("C2:C31659").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-3]=R[-1]C[-3],R[-1]C&RC[-1],RC[-1])"
Range("D2").Select
Selection.Copy
Range("D2:D9").Select
ActiveSheet.Paste
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Range("D9:D16").Select
ActiveSheet.Paste
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Range("D9:D3000").Select
ActiveSheet.Paste
For Each sh In ActiveWorkbook.Sheets
If sh.Name Like "Sheet2" Then
sh.Name = "skumapping"
End If
Next sh
End Sub