如何一个产品价格计算表的整行通过产品名称整行复制到另一个表格

这个问题收费解答

Sub CopyFormulaAndData()
Dim srcSheet As Worksheet
Dim destSheet As Worksheet
Dim lastRow As Long
Dim i As Long
Set srcSheet = ThisWorkbook.Sheets("Sheet4") '
Set destSheet = ThisWorkbook.Sheets("Sheet5") '
' 查找最后一行
lastRow = srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row
' 循环查找并复制公式和数据
For i = 1 To lastRow
If srcSheet.Cells(i, "A").Value = "12*40二轨推拉双包" Then '
destSheet.Cells(i, "A").Value = srcSheet.Cells(i, "A").Value ' 复制名称
destSheet.Cells(i, "B").Value = srcSheet.Cells(i, "B").Value ' 复制数据，可以根据需要扩展列
destSheet.Cells(i, "C").Formula = srcSheet.Cells(i, "C").Formula ' 复制公式，可以根据需要扩展列
End If
Next i
End Sub

这个用不了，在WPS里

发的图片是啥啊 打不开