如何将指定单元格区域数据复制到目标列，若目标列有数据则移至右侧列？

以下提供两种实用方案，按需选择：

方案1：手动快速定位（适合单次操作） #

1. 先判断目标起始区域C2:C10是否有数据：
   在任意空白单元格输入公式 =COUNTA(C2:C10)，按回车后：
   • 结果为0：说明C2:C10是空的，直接复制A2:A10粘贴到C2:C10即可
   • 结果大于0：说明C2:C10已有数据，复制A2:A10粘贴到D2:D10（若D2:D10也有数据，继续往右推一列）

方案2：VBA宏自动处理（适合重复操作） #

如果需要频繁执行这个操作，写个宏一键搞定：

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 插入一个新模块（右键左侧工程窗口 → 插入 → 模块）
3. 粘贴以下代码：

Sub CopyToFirstEmptyColumn()
    Dim sourceRange As Range
    Dim targetCol As Integer
    Dim targetRange As Range
    
    ' 定义源数据区域（可按需修改）
    Set sourceRange = ThisWorkbook.ActiveSheet.Range("A2:A10")
    ' 定义目标起始列（C列对应数字3，可按需修改）
    targetCol = 3
    
    ' 循环查找首个空白目标区域
    Do While Application.WorksheetFunction.CountA( _
        ThisWorkbook.ActiveSheet.Cells(2, targetCol).Resize(sourceRange.Rows.Count, 1) _
    ) > 0
        targetCol = targetCol + 1
    Loop
    
    ' 复制源数据到目标区域
    Set targetRange = ThisWorkbook.ActiveSheet.Cells(2, targetCol).Resize(sourceRange.Rows.Count, 1)
    sourceRange.Copy targetRange
End Sub

4. 返回Excel界面，按Alt + F8选择CopyToFirstEmptyColumn执行即可

代码说明 #

• 代码会自动从指定的起始目标列（默认C列）开始检查，找到第一个对应行范围内无数据的列，把A2:A10的数据复制过去
• 如果需要调整源区域或起始目标列，修改代码里的Range("A2:A10")和targetCol = 3即可（比如要从D列开始，把3改成4）

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