Question

我正在尝试将我的值从工作表1上的单元格B21复制并粘贴到列B表2，其中有下一个可用行？

Sub Modify_Trend()


Dim N As Long
   N = Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Row + 1
   Cells(N, "B").Value = Sheets(1).Range("B21").Value



End Sub

请有人告诉我我哪里出错了吗？这不会产生任何错误或任何错误，并且无效。

Answer 1

您需要完全限定N = Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Row + 1到Sheets（2）。

此外，您正在寻找A列的最后一行（而不是B列）：

Sub Modify_Trend() Dim N As Long With Sheets(2) N = .Cells(.Rows.Count, "B").End(xlUp).Row + 1 .Range("B" & N).Value = Sheets(1).Range("B21").Value End With End Sub

尝试以下代码：

import { UpgradeModule } from '@angular/upgrade/static';

Answer 2

试试这个：首先获取工作表2中B列的填充行总数。

然后将工作表2列B的last filled row + 1的值设置为工作表1的B21值。

Sub Modify_Trend()

    Dim N As Long
       N = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row
       Sheet2.Range("B" & N + 1).Value = Sheet1.Range("B21").Value

    End Sub

根据原始代码，这是最小答案。

VBA在上次使用的行中从表1到表2复制/粘贴值？

2 个答案: