Excl使用宏复制单元格并且自动修改内容。

复制名为jd的单元格，改成taobao
把www.jd.com改成www.taobo.com

Sub Macro2()
'
' Macro2 Macro
'

'
    Sheets("JD").Select
    Sheets("JD").Copy After:=Sheets(1)
    Sheets("JD (2)").Select
    Sheets("JD (2)").Name = "TB"
	Range("B1").Select
    ActiveCell.FormulaR1C1 = "TB"
     Cells.Replace What:="www.JD.com", Replacement:= _
        "www.taobao.com", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub