VBA 本人小白双重for循环一直出错，请各位不吝赐教

hfwufanhf2006

PolarisBeimin 发表于 2020-5-25 17:15

有点小问题，这与你的合并单元格有关，稍微修改下：

For i = 2 To 11
    hs = Sheets(2).[a2].End(4).Row
    If Not IsEmpty(Sheets(1).Cells(i, 1)) Then
       Sheets(2).Cells(hs + 1, 1) = Sheets(1).Cells(i, 1)
       Sheets(2).Cells(hs + 1, 2) = Sheets(1).Cells(i, 2)
       Sheets(2).Cells(hs + 1, 3) = Sheets(1).Cells(i, 3)
    End If
Next i

当读取到第10个记录时（i=11)，最末行就与下一个单元的标题连成了一体，[a2].end(4).row就定位到了下一个单元的标题行了，所以把最末行写入变量比较好，不会因为写入了新的数据而发生改变；

PolarisBeimin

hfwufanhf2006 发表于 2020-5-25 18:58
有点小问题，这与你的合并单元格有关，稍微修改下：

For i = 2 To 11

再次感谢前辈