复制并粘贴在Excel中，而不删除单元格当前内容

Question

我想创建一个单元格以在Excel中创建预设的响应电子邮件。我需要能够将文本粘贴到单元格中而不删除该单元格中已存在的信息（并且我需要能够重复执行此操作）。我基本上要求帮助创建具有类似'复制并将'属性'粘贴为word文档。即当我将文本粘贴到一个单元格中时，它会在新文本下面插入新文本，而不是用剪贴板替换现有文本。

我完全可以在VBA中使用一些编码帮助。请让我知道是否需要澄清任何事情！谢谢

Answer 1

我写了代码来做你所要求的，但我不确定它是否真的是你需要的。

按Alt+F11

工作表上双击要这本规范工作在（左侧）

粘贴。

请注意，此代码将允许您通过点击删除来清除单元格。

否则，将很难删除它。

请注意，这基本上会附加您尝试编辑的任何单元格。

Dim currentVal 
Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.CountLarge > 1 Then Exit Sub 
If currentVal <> vbNullString And Target.Value <> vbNullString Then 
    Application.EnableEvents = False 
    Target.Value = currentVal & vbCrLf & Target.Value 
    currentVal = Target.Value 
    Application.EnableEvents = True 
Else 
    currentVal = Target.Value 
End If 
End Sub 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Target.CountLarge = 1 Then currentVal = Target.Value 
End Sub 

它是如何工作的：

希望最终剪辑与合并单元格中键入移动无法测试工作：

Dim currentVal 
Private Sub Worksheet_Change(ByVal Target As Range) 
If currentVal <> vbNullString And Target.Cells(1,1).Value <> vbNullString Then 
    Application.EnableEvents = False 
    'Use this to add an extra line instead 
    Target.Cells(1,1).Value = currentVal & vbLf & vbLf & Target.Cells(1,1).Value 
    'Target.Cells(1,1).Value = currentVal & vbLf & Target.Cells(1,1).Value 
    currentVal = Target.Cells(1,1).Value 
    Application.EnableEvents = True 
Else 
    currentVal = Target.Cells(1,1).Value 
End If 
End Sub 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
currentVal = Target.Cells(1,1).Value 
End Sub