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

我正在开发一个Excel文档供我自己使用,但是我已经打开了一道墙让所有的东西都可以按照我的要求工作,但我并不是很了解VBA,但是我知道我可能会要求它得到我想工作… 🙂

我需要的是,例如,当单元格B1被点击时,我希望Excel采取相邻单元格的内容(可以是A1或C1),并将其复制/粘贴/复制到行的下一个空白单元格中在另一张纸上

我最好喜欢它是灵活的,以便我可以简单地复制它的B2(然后它将适用于A2或C2),因为它将需要数百个单元格 – 并手动input它将总是疼痛。 我真的不想使用表单或checkbox…

谢谢,卢克。

也许我误解了你的问题,但我会这样做:

 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