清除空数据的换行的行

njwtg

老师好，数据大概有2000行，d列，从第二行开始
清除单元格中换行为空的行
清除后的结果仍然放在D列，黄色是演示运行后的效果
谢谢老师！

cnmlgb9998

借楼练一下PQ。

是这个效果吗？

一百万行都能秒出。

longwin

Sub test()
    arr = Range("D2:D" & [d5000].End(xlUp).Row)
    For i = 1 To UBound(arr)
            arr(i, 1) = Replace(arr(i, 1), Chr(10) & Chr(10), "")
    Next
    [E2].Resize(UBound(arr), UBound(arr, 2)) = arr  '为了方便查看结果数据放在了E列，实际使用可以更改为D列
End Sub

usedrange

1. Sub t()
   
2.     Dim i%, k, j%
   
3.     For i = 2 To Range("d10000").End(xlUp).Row
   
4.         k = Split(Cells(i, "d"), Chr(10))
   
5.         s = ""
   
6.         For j = 0 To UBound(k)
   
7.             If k(j) <> "" Then s = s & k(j) & Chr(10)
   
8.         Next j
   
9.         Cells(i, "d") = s
   
10.     Next i
    
11. End Sub

复制代码

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, cr, i&, j&, strJoin$
   
    ar = Range("D1", Cells(Rows.Count, "D").End(xlUp)).Value
    For i = 1 To UBound(ar)
        
        If Len(ar(i, 1)) Then
            strJoin = ""
            cr = Split(ar(i, 1), vbLf)
            For j = 0 To UBound(cr)
                If Len(cr(j)) Then strJoin = strJoin & vbLf & cr(j)
            Next j
            ar(i, 1) = Mid(strJoin, 2)
        End If
    Next i
   
    [L1].Resize(UBound(ar)) = ar
    Beep
End Sub

njwtg

谢谢老师！解决问题呢了

perfect131

用正则

木槿花西月锦绣

PQ解法

1、替换值，2个换行符替换为空
2、格式，修整