无语,笨人有笨法吧:用复制粘贴单元格值的办法:
Range("C1").Copy ThisWorkbook.Sheets(2).Range("C13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False