Excel（切入工作簿）
我有三个工作簿，A，B和C.
A有一个名字表明我应该从B移到C
我正在写Amacros来做这个。 我只想打开/引用B和C，并且能够扫描A中的所有对象，并且每遇到一个匹配，就从B中切下行并追加到C的末尾。
我遇到的问题只是让工作簿被正确地打开/引用，更别提其他的东西了
例如我正在试图获得C中的最后一行使用，但它给了我麻烦
path = "C:\MyPath\" bBath= path & "B.xls" cPath= path & "C.xls" Set bBook = Application.Workbooks.Open(bPath) Set cBook = Application.Workbooks.Open(cPath) k = 1 While cBook.Sheets("SomeSheetName").Row(k, 1) <> "" k = k + 1 Wend 更换
k = 1 While cBook.Sheets("SomeSheetName").Row(k, 1) <> "" k = k + 1 Wend
同
k = cBook.Sheets("SomeSheetName").UsedRange.SpecialCells(xlCellTypeLastCell).Row
这将给你最后一行数据/格式在一张纸上。
如果你需要列是绝对的，你可以这样做
k = cBook.Sheets("SomeSheetName").Cells(cBook.Sheets("SomeSheetName").Rows.Count,1).End(xlUp).Row
例如会给你在第1列中使用的最后一行。更改B，依此类推，1到2。 （你可以清理一下，所以它更容易阅读）
将行（k，1）更改为单元格（k，1）。