Question

我正在尝试创建一个代码，允许我粘贴选定范围的数据并将其粘贴到A列的第一个空白单元格中的Book2中，从A1开始。这是我到目前为止所得到的：

Sub Macro 1 ()        
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select            
        Selection.Copy

        Windows("Book2.xlsm").Activate
        **CurrentRow = Range("A1").End(xlDown).Offset(1, 0).Row**
        ActiveSheet.Paste
    End Sub

我认为问题在于星号（**）。有人可以帮我重写这行/代码，这样复制的数据可以粘贴在A1的第一个可用单元格中吗？（因为我在图表中填充了更多单元格，因此赢了工作）。现在，代码将粘贴在所选的任何单元格中的数据：（

感谢大家的帮助。

Answer 1

试试这个：

Dim book2 As Excel.Window
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    Workbooks("Book2").Activate
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste

Answer 2

您可以更直接地使用范围（没有public static void main(String[] args) throws Exception { int currentVersion = 4; Schema schema = new Schema(currentVersion, "com.example.app.model.generated"); new DaoGenerator().generateAll(schema, "app/src/main/java/"); }），如下所示：

Select

粘贴在第一个可用的单元格

2 个答案: