嘿，咱们先搞定你遇到的Run-Time Error 9（下标越界）问题，再聊聊批量复制数据的高效方法。

一、下标越界错误的原因与修复 #

你代码里的这个错误，大概率是因为没给Range明确指定所属工作表。比如你写的Range("C4")，默认会引用当前活动的工作表，而不是你指定的"Nano Live"。如果运行宏的时候，当前打开的不是这个工作表，就会导致引用的单元格不属于目标表，直接触发下标越界。

另外，你写了一堆重复的copy/paste，不仅冗余，还容易出问题。我给你改了代码，优化了逻辑，同时解决了错误：

Option Explicit
Dim RunTime As Date ' 模块级变量，用来取消之前的定时任务

Sub copy_nano()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Nano Live") ' 先把工作表对象存起来，省得重复写
    
    ' 先取消之前的定时任务，防止多次运行后重复触发
    On Error Resume Next
    Application.OnTime RunTime, "copy_nano", , False
    On Error GoTo 0
    
    ' 设置下一次运行时间（2分钟后）
    RunTime = Now + TimeValue("00:02:00")
    Application.OnTime RunTime, "copy_nano"
    
    ' 把要复制的源单元格和对应的目标列列出来，一目了然
    Dim sourceCells As Variant
    Dim targetCols As Variant
    sourceCells = Array("C4", "H4", "H6", "C3", "H3", "C5", "H7", "H8")
    targetCols = Array(15, 16, 17, 18, 19, 20, 21, 22)
    
    Dim i As Integer
    For i = LBound(sourceCells) To UBound(sourceCells)
        Dim targetRow As Long
        ' 找目标列的下一个空行，还要处理列完全为空的情况
        targetRow = ws.Cells(ws.Rows.Count, targetCols(i)).End(xlUp).Row
        If targetRow = 1 And ws.Cells(1, targetCols(i)).Value = "" Then
            targetRow = 1
        Else
            targetRow = targetRow + 1
        End If
        ' 直接赋值，比复制粘贴快多了，还不用碰剪贴板
        ws.Cells(targetRow, targetCols(i)).Value = ws.Range(sourceCells(i)).Value
    Next i
End Sub

' 要是想停止自动运行，就跑这个宏
Sub Stop_copy_nano()
    On Error Resume Next
    Application.OnTime RunTime, "copy_nano", , False
    On Error GoTo 0
    MsgBox "自动复制任务已经停啦"
End Sub

关键改进点： #

• 锁定工作表对象：用ws统一指代"Nano Live"，所有单元格操作都通过ws调用，再也不会因为切换工作表出错。
• 避免重复定时：每次运行先取消之前的定时任务，防止开了好几次宏后，每隔两分钟就跑一堆重复任务。
• 替换复制粘贴：直接把源单元格的值塞到目标单元格里，不用绕剪贴板，效率高还稳定。
• 处理空列情况：如果目标列完全是空的，End(xlUp)会回到第1行，这时候判断一下单元格内容，确保从第1行开始写，不会跳行。

二、批量复制多单元格数据的几种方法 #

如果你想一次性复制多个单元格或区域，分几种情况来：

1. 非连续源对应非连续目标（就是你的需求） #

就像上面改的代码那样，用数组把源单元格和目标列/行对应起来，循环赋值就行，清晰还容易维护。

2. 连续区域复制到连续目标 #

如果源是一片连续的区域（比如A1:C5），直接复制或者赋值就行：

' 用复制粘贴的方式
ws.Range("A1:C5").Copy
ws.Range("E1").PasteSpecial xlPasteValues

' 或者更高效的直接赋值，跳过剪贴板
ws.Range("E1:G5").Value = ws.Range("A1:C5").Value

3. 非连续源复制到连续目标 #

如果源是零散的单元格，想按顺序写到连续的目标区域，比如把C4,H4,H6这些单元格依次写到第15列的连续行里，可以这么干：

Dim sourceRange As Range
Set sourceRange = ws.Range("C4,H4,H6,C3,H3,C5,H7,H8")
Dim targetRange As Range
' 目标区域从第15列第1行开始，数量和源单元格一样多
Set targetRange = ws.Cells(1, 15).Resize(sourceRange.Cells.Count, 1)
' 转成一维数组再赋值，完美对齐
targetRange.Value = Application.Transpose(sourceRange.Value)

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