用vb sheet1符合某个条件时，复制sheet1到sheet2

提问：用vb sheet1符合某个条件时，复制sheet1到sheet2

网友回答：

代码如下，请自行测试

Sub icopy()
Dim ish As Worksheet
With Sheets("工资表")
  Set ish = Sheets("Sheet" & .Range("d3").Text)
 .Range("a1:r200").Copy ish.Range("a1")
End With
End Sub