vba删除数组中空白的数据（行）

1049671600

数组去除空白行，需要达到I1：K5的效果

E1：G11我代码出来会多个尾巴出来，不是我想要的结果

求大神指导

lcluck2002

再多声明一个数组，结构同arr一样，赋值的时候，就按你的逻辑来就行了。

ykcbf1100

用二个数组就可以了。
我是被标题骗进来的，我还真以为是分享呢。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, j&, r&, strJoin$
   
    r = Cells(Rows.Count, "A").End(xlUp).Row
    ar = Range("A1:C" & r).Value: r = 1
   
    For i = 2 To UBound(ar)
        strJoin = Join(Application.Index(ar, i), "")
        If Len(strJoin) Then
            r = r + 1
            For j = 1 To UBound(ar, 2)
                ar(r, j) = ar(i, j)
            Next j
        End If
    Next i
   
    [F1].Resize(r, UBound(ar, 2)) = ar
    Beep
End Sub

gwjkkkkk

请参考图片。。。

taller

使用单个数组实现没有问题，重要的是缩减目标区域的范围，否则回写单元格前面N行结果正确（整理后需要保留的数据），此行之后的数据在数组并没有被清空

1. 
   
2. '如果A列可以作为空行的判断标志，单行代码就可以实现
   
3. Sub Macro1()
   
4.    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
5. End Sub
   

复制代码