如何双击另一个单元格的单点击单击单元格值

Question

我认为这很接近，但是这里并不完全正确。我正在尝试在ColumnD中双击和单元格，然后选择第二张纸，然后单击第二张纸中的单元格，然后将值复制/粘贴到我双击的单元格中。问题是，我想做几次，因此，如果我双击相同的单元格2次，然后跳到第二张纸2次，我希望在保留第一个单元格中的值。因此，如果我在D3中什么都没有，那么我可以双击它，可以在第二张纸中选择一个单元格。假设是LQ1；这被复制/粘贴到D3中。然后，我再次单击D3，再次跳到第二张纸，然后在第二张纸中选择一个单元格。假设是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

输入框的想法让我思考。这似乎有效。。。

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