基于条件复制至其他工作表的VBA宏问题求助

嘿，作为VBA新手遇到这种细节问题太正常了！我来帮你拆解下这两个问题，给你调整后的代码和清晰的解释，保证你能看懂～

问题分析 #

从你的描述来看，你的宏大概率存在两个小问题：

• 首行空白：宏可能默认从第2行开始写入数据，没检查首行是否为空；
• 跳过空白单元格直接从第17行开始：你可能用了固定行号（比如硬写了17）来定位下一个写入位置，而不是动态获取工作表的实际最后一行。

调整后的宏代码 #

下面是修复后的代码，我会逐行解释关键部分：

Sub 你的宏名称() ' 替换成你原来的宏名
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim targetRow As Long
    
    ' 指定要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Opgørsel")
    
    ' 动态获取A列最后一个有数据的行号（避免固定用17行）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 处理首行空白的情况：如果A1是空的，就从第1行开始；否则从最后一行的下一行开始
    If ws.Range("A1").Value = "" Then
        targetRow = 1
    Else
        targetRow = lastRow + 1
    End If
    
    ' 这里替换成你原来宏里的写入/插入逻辑
    ' 举个例子：假设你要把数据写入A列到C列
    ' ws.Cells(targetRow, "A").Value = "新数据1"
    ' ws.Cells(targetRow, "B").Value = "新数据2"
    ' ws.Cells(targetRow, "C").Value = "新数据3"
    
    ' 如果你的宏是插入行再填充，那可以改成：
    ' ws.Rows(targetRow).Insert Shift:=xlDown
    ' 然后在插入的行里填充数据
End Sub

关键部分解释 #

• 动态获取最后一行：ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 会从A列的最底部往上找，找到第一个有数据的行，这样不管你的工作表有多少行数据，都能准确定位到最后一行，不会再出现固定用17行的问题。
• 处理首行空白：通过判断A1是否为空，决定从第1行还是最后一行的下一行开始操作，完美解决首行空白的问题。
• 替换原有逻辑：把你原来宏里写入/插入数据的代码，替换到注释的位置就行，比如你原来的宏是复制粘贴数据，就把复制粘贴的代码放到targetRow对应的位置。

额外小提示 #

如果你原来的宏是“下移所有内容再填充”，那记得把插入行的代码改成用targetRow，而不是固定行号，比如原来的ws.Rows(17).Insert要改成ws.Rows(targetRow).Insert，这样就会在正确的位置插入行，不会跳过空白单元格啦。

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