Question

我试图制作一个非常简单的VBA宏来在表格的底部添加一个新行。这就是我到目前为止所做的：

OkHttpClient client = new OkHttpClient();

client.interceptors().add(new Interceptor() {
    @Override
    public Response intercept(Chain chain) throws IOException {
        Request request = chain.request();
        HttpUrl url = request.url().newBuilder().addQueryParameter("name","value").build();
        request = request.newBuilder().url(url).build();
        return chain.proceed(request);
    }
});

Retrofit retrofit = new Retrofit.Builder()
        .baseUrl("...")
        .client(client)
        .build();

当我尝试运行它时，它会说内存不足。我想要实现的是我现有表格底部的一个新行（包含A列中的内容），无论上面有多少列，我最终都会用它来总计它上面的数字。我在这做错了什么？

Answer 1

试试这个：

Sub AddRow()
    Dim LR As Long
    LR = Cells(Rows.Count,1).End(xlUp).Row
    Rows(LR).Copy
    Rows(LR + 1).Insert
End Sub

Answer 2

您在范围定义中遇到错误：

您使用的是"A" & Rows, Count而不是"A" & Rows.Count（它是对象的属性，所以它是Object.Property

我甚至建议您使用Worksheet变量来更好地引用。

以下是您更正后的代码：

Sub AddRow()
    Dim LR As Long, _
        Ws As Workseet
    Set Ws = ThisWorkBook.Sheets("SheetName")
    LR = Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row
    Ws.Rows(LR).Copy
    Ws.Rows(LR + 1).Insert
End Sub

在表的底部添加行

2 个答案: