Excel VBA复制粘贴行的问题

Question

'Create a new sheet to display the multiple records
Dim m As Integer
Dim MyRange As Range
Dim wk As Workbook
Dim Sht As Worksheet

Set wk = Workbooks.Add
Set Sht = wk.Worksheets("Sheet1")

For Each MyRange In wk1.Sheets("FTE").Range("C2:C20")
m = MyRange.row
If MyRange.Value = Inputdata Then
wk.Worksheets("Sheet1").Range("A1:AH3") = wk1.Sheets("FTE").Rows(m)
End If
Next

为什么不能粘贴到新建的表格中？

这是最后一段程序。之前的程序没有问题。
inputdata输入的是人名字

我是新手，还希望各位不吝赐教

Answer 1

1,假设需要将sheet1中的第一行复制到sheet2,中，采用如下代码：
Sub 复制行()
Sheets(1).Range("A1").EntireRow.Copy Sheets(2).Range("A1")
End Sub
2，其中，Sheets(1).Range("A1")中的Range("A1")可以更改为任何一个单元格或单元格区域，表达方式可以用cell方式实现循环。
3，Sheets(2).Range("A1")为粘贴的目标位置，同样可以用cell(a,b)实现自动循环。

Answer 2

试试按下面的修改你的代码
For Each MyRange In wk1.Sheets("FTE").Range("C2:C20")
m = MyRange.row
If MyRange.Value = Inputdata Then
n=n+1
wk.Worksheets("Sheet1").Rows(n).value= wk1.Sheets("FTE").Rows(m).value
End If
Next

Answer 3

格式不对，

追问

该怎么修改呢？
wk.Worksheets("Sheet1").Rows(1)= wk1.Sheets("FTE").Rows(m)
比如这样么？