excel - 双击复制相邻单元格的内容

Question

我需要一个简单的代码，它将相邻左侧单元格的内容复制到双击单元格。这是为了帮助我制作附件图像中的条目。
如果我单击 c2 它应该从 b2 复制 3 并将其粘贴到 c2 中，它应该为 c2: c100

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws1 As Worksheet: Set ws1 = wb.Worksheets("sheet1")

    With ws1
        If Not Intersect(Target, Range("b2:b100")) Is Nothing Then
            Cancel = True

            If Application.CountIf(Sheets(ws1).Range("b2:b100"), Target.Value) = 0 Then
                Cells(Target.Row, 3).Value = Target.Value
            
            End If
        End If
    End With
End Sub

Answer 1

你可以做这样的事情 - 在工作表代码模块中注意，你可以使用 Me引用工作表。
从技术上讲，您不需要限定 Range() ，因为在工作表模块中它默认为该工作表，但最好总是尽可能地限定。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Me.Range("C2:C100")) Is Nothing Then
        Cancel = True
        with Target.Offset(0, -1)
            If Len(.Value) > 0 Then Target.Value = .Value
        End With
    End If
    
End Sub