VBA脚本将选定单元格的输入添加（复制）到另一列的单元格中答案

【问题标题】：VBA Script to add (copy) the inputs of a selected cell into cells in another columnVBA脚本将选定单元格的输入添加（复制）到另一列的单元格中
【发布时间】：2015-02-26 18:52:47
【问题描述】：

我对 VBA 完全陌生。希望有任何提示、提示和帮助来解决这个问题。谢谢！

我有一个 Google 电子表格，我在其中绘制了一个按钮并将其命名为“添加此”。当这个按钮被点击时（分配脚本后），我希望执行以下操作-

第 1 部分。 单元格 A1 是选定的输入单元格，我将在其中输入一个值，例如“Apple”。当我单击“添加此”按钮时，脚本应复制当前单元格 A1 中的值并将其粘贴到 B 列中的单元格中。

现在，如果单元格 A1 中的值发生更改，则 B 列中粘贴的单元格中的值不应更改。

第 2 部分。 当我在单元格 A1 中输入一个新值（例如“橙色”）并单击“添加此”时，脚本应将此新值复制到 A1 中并将其粘贴到 B 列的下一个空白单元格中。

同样，如果我使用第 3、第 4 或第 5... 值再次执行此操作，脚本应复制 A1 中的值（如果我单击按钮）并将其添加到 B 列中的下一个空白单元格中。最终结果看起来像 - example image

第 3 部分。 C 列将是脚本运行时的日期戳（即，单击“添加此”按钮。

这就是我目前所能想到的 -

function copydata() {

var ss = SpreadsheetApp.getActiveSpreadsheet(); 

var sheet1 = ss.getSheetByName("Sheet1");

  sheet1.getRange('Sheet1!C2:C5').copyTo(sheet1.getRange('Sheet1!F2:F5'));

}

【问题讨论】：

我们不是来为你写代码的。向我们展示您的尝试以及您遇到的具体问题或困难。
这个网站是用来帮助你解决你的代码或问题的，而不是为你写你的代码。您需要先尝试并发布您的代码。

标签： vba excel google-sheets

【解决方案1】：

下面是帮助您入门的简单代码：

Sub ButtonCode()
    Dim N As Long
    N = Cells(Rows.Count, "B").End(xlUp).Row + 1
    Cells(1, 1).Copy Cells(N, 2)
    Cells(N, 3).Value = Date
End Sub

单元格 B1 不会受到影响，并且可用于标题。

【讨论】：