Sub test()
With Workbooks("book1.xls").Sheets("sheet1")
r = .Range("c65536").End(xlUp).Row - 4
'从第2行到c列最后一个有数据的可见单元格向上3行的行数
Workbooks("book2.xls").Sheets("sheet1").Range("c2").Resize(r, 1).Value = .Range("c2").Resize(r, 1).Value
'将book1.xls的sheet1中从c2开始r行1列的值赋给book2.xls的sheet1的c2开始的区域
End With
End Sub
复制完了、右下角有个东西、点一下,选择 只有值 就ok