Excel 2010:当单击单元格B1时，将相邻单元格(A1或C1)的内容添加到另一个单元格

Question

我正在开发一个Excel文档供我自己使用，但是我在让一切都像我想要的那样工作时遇到了困难，我真的不太了解VBA，但我知道我可能需要它来得到我想要的工作……:)

我需要的是，例如，当单元格B1被单击时，我希望Excel获取相邻单元格的内容(它可能是A1或C1)，并复制/粘贴/复制它到另一个工作表中一行的下一个空白单元格。

我希望它是灵活的，这样我就可以简单地为B2复制它(然后它将应用于A2或C2)，因为它将需要数百个单元格-并且不断手动输入它将是一个完全痛苦的过程。我真的不想使用表单或复选框……

谢谢!，卢克。

Answer 1

也许我误解了你的问题，但我想这样做:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim WS As Worksheet: Set WS = Worksheets(2)
    Dim adjacent As Range: Set adjacent = Target.Offset(0, 1)
    WS.Range(adjacent.Address).Value = adjacent.Value
End Sub