在vba中粘贴特殊。
|
我试图在vba中使用pastespecial ..我基本上需要将值（而不是公式，因为由于该工作表中单元格值的变化而粘贴到新工作表时会重新计算公式）到另一工作表...但是我收到错误1004，说“重复定义或对象定义错误”。代码在这里...请帮助一些...
Sub Macro1try()
Dim i As Integer
Dim j As Integer
For i = 1 To 2
Worksheets(\"Volatility\").Cells(1, \"B\").Value = Worksheets(\"Volatility\").Cells(i, \"S\").Value
Call mdlMain.ExtractData
Range(\"A11:D2330\").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Sheets(\"Volatility\").Activate
Next i
End Sub
没有找到相关结果
已邀请:
3 个回复
捕暑句簿姓
。For i = 1 To 2 \'// Your stuff, which I won\'t touch: Worksheets(\"Volatility\").Cells(1, \"B\").Value _ = Worksheets(\"Volatility\").Cells(i, \"S\").Value Call mdlMain.ExtractData Sheets.Add After:=Sheets(Sheets.Count) \'// The following single statement replaces everything else: Sheets(Sheets.Count).Range(\"A11:D2330\").Value _ = Sheets(\"Volatility\").Range(\"A11:D2330\").Value \'// Voilà. No copy, no paste, no trouble. \'// If you need the number format as well, then: Sheets(Sheets.Count).Range(\"A11:D2330\").NumberFormat_ = Sheets(\"Volatility\").Range(\"A11:D2330\").NumberFormat Next i委婪绷冗诉
Sub Macro1try() Dim i As Integer Dim j As Integer For i = 1 To 2 Worksheets(\"Volatility\").Cells(1, \"B\").Value = Worksheets(\"Volatility\").Cells(i, \"S\").Value Call mdlMain.ExtractData Sheets.Add After:=Sheets(Sheets.Count) Worksheets(\"Volatility\").Range(\"A11:D2330\").Copy Sheets(Sheets.Count).Range(\"A11:D2330\").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Next i End Sub死簇