如何在不偏移整行的情况下下移指定单元格值并嵌入按钮代码？

当然可以把代码直接嵌入命令按钮的点击事件里，完全不需要额外在其他位置设置——这就是这类需求最直接的实现方式。

操作步骤： #

1. 右键点击你的命令按钮，选择查看代码，VBA编辑器会自动打开并定位到按钮的Click事件过程。
2. 把下面的代码粘贴进去就行：

Private Sub CommandButton1_Click()
    ' 定位目标区域：C1、D1、E1三个单元格
    Dim inputRange As Range
    Set inputRange = Me.Range("C1:E1")
    
    ' 先检查输入区是否有数据，避免无意义的空操作
    If Application.WorksheetFunction.CountA(inputRange) > 0 Then
        ' 找到C列最后一行有数据的位置，把C2到E列对应行的区域下移一行
        Dim lastRow As Long
        lastRow = Me.Cells(Me.Rows.Count, "C").End(xlUp).Row
        Me.Range("C2:E" & lastRow + 1).Insert Shift:=xlDown
        
        ' 把C1:E1的数据复制到新腾出的C2:E2位置
        inputRange.Copy Destination:=Me.Range("C2:E2")
        
        ' 清空原输入区，准备接收新值
        inputRange.ClearContents
    End If
End Sub

代码细节说明： #

• Me指代按钮所在的工作表，用这个引用能避免选错工作表的问题
• CountA函数用来判断输入区是否有内容，防止无意义的空行下移
• Insert Shift:=xlDown只会移动C、D、E列从第2行开始的数据，完全不会影响工作表其他列的内容
• 自动识别C列最后一行数据，不管你已有多少行数据，都能准确把旧数据下移，始终保留第1行作为新值输入区

小提醒： #

如果你的命令按钮不是默认的CommandButton1，记得把代码里的CommandButton1改成按钮的实际名称（比如你给按钮改名叫btnSaveData，就写成Private Sub btnSaveData_Click()）

内容的提问来源于stack exchange，提问作者JonhDoe