VBA-将数据添加到下一个空行答案

【问题标题】：VBA- add data to next empty rowVBA-将数据添加到下一个空行
【发布时间】：2017-05-11 11:11:14
【问题描述】：

我编写了以下宏来将数据从一个工作表传输到另一个工作表。我希望将新数据传输到一个空行，但它会一直覆盖相同的行

  Worksheets("sheet1").Select
     Worksheets("sheet1").Range("a1").Select
     RowCount = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
     With Worksheets("Sheet1").Range("A1")
     .Offset(RowCount, 0) = workOrderDescription

【问题讨论】：

标签： vba excel

【解决方案1】：

试试下面的代码：

With Workbooks("Your_WorkbookmName").Worksheets("sheet1")
    RowCount = .Cells(.Rows.Count, "A").End(xlUp).Row ' <-- get last row in column "A"
    .Range("A" & RowCount + 1) = workOrderDescription
End With

【讨论】：

您好，我的解释不是很清楚。我正在从一个工作表转移到另一个工作簿。我希望数据在每次都转移到一个空行
@Tom 确实你的解释不是很清楚，其他工作簿的名称是什么？它是打开？您要复制到的工作表名称是什么？
目前我还没有命名工作簿或工作表。在我测试宏时，它只是第 1 页。它将在实际工作时全天开放，并不断从发送数据的工作簿接收更新。
@Tom 尝试编辑代码，将“Your_WorkbookmName”更改为您的工作簿名称
非常好，但是如何使用嵌套循环来做到这一点？即没有柜台？ do for each item *your code here* Next item *your code here* loop until..