Question

如何用vba 打开一个excel文件 传到另一个excel文件中

文件打开已经完成了，但现在需要将一个excel文件中的内容复制到另外一个当中去，比如从文件aaa中，选中c列数据，从第2行开始一直到没有数据，然后复制到文件bbb中的c列，从第二行开始，一直到结束。
有一些列的值存在公式，但是bbb中只要结果，不要公式。

另外我还想知道，该如何控制从aaa中选中的数据，比如从c2开始到倒数第三行（最后一行数据的前两行）
该怎么写啊，不会。。。。求大神指点

Answer 1

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

Answer 2

复制完了、右下角有个东西、点一下，选择 只有值 就ok