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

Excel 2010：单击单元格B1时，将相邻单元格（A1或C1）的内容添加到另一个单元格

1 个答案: