通过查看“对象浏览器”,Cells属于Range类,Range里面没有Paste方法,而是PasteSpecial方法,
建议更改为下面代码 试试:
Worksheets(1).Cells(dic(s_v), 10).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
worksheet(1)引用的是该工作簿中的第一个工作表,即引用的是顺序号为1的工作表.
是否表格弄错了.?