需求：实现A列含数值时复制数组至前置列的代码

我来帮你搞定这个需求！根据你描述的场景，我写了一段针对性的VBA代码，专门处理把指定数组的值复制到对应前置列，而且只在A列对应行有数值时才执行操作，直接覆盖前置列原有内容，完全符合你的预期效果。

代码实现 #

Sub CopyArrayValuesToPreviousColumn()
    Dim ws As Worksheet
    Dim sourceCols As Range ' 你标记的带值数组所在列（黄色列）
    Dim lastRow As Long
    Dim i As Long
    Dim col As Range
    
    ' 1. 指定要操作的工作表，替换成你的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 2. 指定源列范围，比如你的黄色标记列是D、F、H列，就这么写
    Set sourceCols = ws.Range("D:D,F:F,H:H")
    
    ' 遍历每个源列
    For Each col In sourceCols.Columns
        ' 获取该列最后一行有数据的行号，避免遍历空行
        lastRow = ws.Cells(ws.Rows.Count, col.Column).End(xlUp).Row
        
        ' 从第2行开始遍历（假设第1行是表头，不需要处理）
        For i = 2 To lastRow
            ' 核心判断：只有A列对应行有数值时才执行复制
            If IsNumeric(ws.Cells(i, "A").Value) And ws.Cells(i, "A").Value <> "" Then
                ' 把源列的值直接赋值到前置列（左边一列），只复制值，不带格式
                ws.Cells(i, col.Column - 1).Value = ws.Cells(i, col.Column).Value
            End If
        Next i
    Next col
    
    MsgBox "操作完成！", vbInformation
End Sub

关键说明和自定义调整 #

• 指定工作表：把代码里的Sheet1改成你实际使用的工作表名称，比如"数据 Sheet"
• 指定源列：sourceCols是你黄色标记的那些数组列，比如你的数组在C、E列，就改成ws.Range("C:C,E:E")；如果是特定单元格区域（不是整列），可以写成ws.Range("D2:D10,F2:F15")
• A列判断逻辑：当前代码判断A列是有效数值且不为空，如果你的A列是文本型数字（比如单元格格式是文本但内容是数字），可以把判断条件改成ws.Cells(i, "A").Value <> ""，这样只要A列有内容就执行
• 只复制值：用.Value赋值的方式，只会复制单元格的内容，不会带格式、公式这些，完美满足你“仅以值的形式复制”的要求

使用步骤 #

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 插入一个新模块（右键工作表→插入→模块）
3. 把上面的代码粘贴进去，根据你的需求调整工作表和源列
4. 按F5运行代码，或者回到Excel里添加一个按钮绑定这个宏

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