Sub test()
Dim sheet物料流水表 As Worksheet
Set sheet物料流水表 = Workbooks("物料表系统.xlsm").Worksheets("物料流水")
If sheet物料流水表 Is Nothing Then
MsgBox "获取物料流水表句柄失败!"
End If
With sheet物料流水表
.Range("d12:EF12").Copy
.Range("d13:EF13").PasteSpecial(xlPasteFormulas, xlPasteSpecialOperationNone ,True,False) '此处语法无法通过,没发现语法错误,
End With
End Sub
帮忙看下,PasteSpecial 函数要怎么修改