EXCEL VBA中，一个文件表格内容导入到另一个文件表格内容

Question

Sub 导入内容()

Lj = ThisWorkbook.Path
Fn = Dir(Lj & "\" & Wj & ".xls*")

If Fn = "" Then
MsgBox "文件名不存在": Exit Sub
End If
Set Wb = Workbooks.Open(Lj & "\" & Fn)
For Each Sht In Sheets
If Sht.Name = Sn Then
Wb.Close False
GoTo 20
End If
Next
Wb.Close False
MsgBox "工作表不存在": Exit Sub

20:

Sheets("a").Cells().ClearContents
Set Wb = Workbooks.Open(Lj & "\" & Fn)
n = Wb.Sheets(Sn).Cells(Rows.Count, 1).End(xlUp).Row
Set Zsht = ThisWorkbook.Sheets("a")
p = 0
For i = 1 To n
p = p + 1
Wb.Sheets(Sn).Rows(i).Copy Zsht.Rows(p)
Next i
Wb.Close False
'End With
Unload Me
MsgBox "数据导入完毕！"

End Sub

上面的导入代码执行后，把表格格式也导入到了新表中，请问如何改写代码，就可只复制数据，面不复制格式
请指导，谢谢

Answer 1

答：更改这句代码：

Wb.Sheets(Sn).Rows(i).Copy Zsht.Rows(p)

为：

Wb.Sheets(Sn).Rows(i).Copy
Zsht.Rows(p).PasteSpecial xlPasteValues

追问

Zsht.Rows(p).PasteSpecial xlPasteValues
这行代码是何意

追答

选择性粘贴，粘贴"值"