如何双击一个单元格并复制另一个单元格的单击值？

我认为这是非常接近的，但有些事情并不完全正确。 我试图在ColumnD中双击单元格，然后select第二张表格，然后在第二张表格中单击一个单元格，然后将值复制/粘贴到双击的单元格中。 事情是，我想这样做几次，所以如果我双击同一个单元格2次，并跳转到第二个工作表2次，我想在第一个单元格的值保留。 所以，如果我在D3中没有任何东西，那么我双击它，我可以在第二张纸上select一个单元格。 假设它是LQ1; 这是复制/粘贴到D3。 然后，我再次点击D3，再次跳到第二张纸上，然后在第二张纸上select一个单元格。 假设这是LQ2。 我想D3有LQ1和LQ2（并反复重复）。

这是我迄今为止。 我尝试了一些想法。 事情是，当我点击第二张表格中的单元格时，我不知道如何将其移回第一张表格。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 4 Then CellSelect = ActiveCell.Value CellAddress = ActiveCell.Address Sheets("Setup Questions").Select If Intersect(Target, Range("B2:B38")) Is Nothing Then Cancel = True Target.Copy Sheets("CP (POS) Tasklist").Range(CellAddress).PasteSpecial Paste:=xlPasteValues End If End If End Sub 

Answer 1

InputBox的想法让​​我思考。 这似乎工作。 。 。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range If Target.Column = 4 Then CellSelect = ActiveCell.Value CellAddress = ActiveCell.Address Sheets("Setup Questions").Select Set rng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8) Sheets("CP (POS) Tasklist").Range(CellAddress).Value = CellSelect & Chr(10) & rng Sheets("CP (POS) Tasklist").Select End If Sheets("CP (POS) Tasklist").Select End Sub