双击复制相邻单元格的内容
双击复制相邻单元格的内容
提问于 2020-09-21 12:32:17
我需要一个简单的代码，将复制相邻的左单元格的内容双击单元格。这是为了帮助我在所附图像中的条目。
如果我单击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回答 2
Stack Overflow用户
回答已采纳
发布于 2020-09-21 13:22:43
这是一个简单的代码
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("C2:C100")) Is Nothing Then
Cancel = True
Target.Value = Target.Offset(, -1).Value
End If
End SubStack Overflow用户
发布于 2020-09-21 13:22:08
您可以这样做-注意，在工作表代码模块中，您可以使用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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/63986236
复制相关文章
相似问题
腾讯云开发者
