我需要一个VBA代码实现已知一个表格B列的数据不断累积，，需要一个循环代码和条件将复制的单元格粘贴到A列最后一个非空单元格的下个单元格并一直粘贴到B列的最后一行后停止运行

您好，我明白您的要求。以下是实现您要求的VBA代码示例：

Sub AccumulateData()
Dim lastRowA As Long
Dim lastRowB As Long
Dim i As Long

lastRowA = Cells(Rows.Count, "A").End(xlUp).Row ' 获取A列最后一个非空单元格的行数
lastRowB = Cells(Rows.Count, "B").End(xlUp).Row '获取B列最后一个非空单元格的行数

For i = 1 To lastRowB '循环遍历B列中数据
If Cells(i, "B").Value <> "" Then '如果当前单元格不为空
Cells(lastRowA + 1, "A").Value = Cells(i, "B").Value '将其值复制到A列最后一个非空单元格的下一个单元格
lastRowA = lastRowA + 1 '更新最后一个非空单元格的行数
End If
Next i
End Sub

您可以将上面的代码复制到VBA窗口中运行即可。希望能帮到您。如果您还有其他问题，欢迎随时提出。