Xoá các dòng trong một cells (2 người xem)

[sonlamhpu]

Hiện tại em đang mắc ở một chỗ, muốn các anh chỉ bảo dùm ạ.
Trong một cell của excel, có rất nhiều alt + enter và để lại các dòng trống
VD:
tên tôi là

bư béo bụng bự

rất mong sự giúp đỡ của mọi người
Em muốn xoá các dòng này đi và để lại là
tên tôi là
bư béo bụng bự
rất mong sự giúp đỡ của mọi người

Mong các anh chỉ giáo cho ạ
Em cảm ơn các bác

 

[vanle33]

Hiện tại em đang mắc ở một chỗ, muốn các anh chỉ bảo dùm ạ.
Trong một cell của excel, có rất nhiều alt + enter và để lại các dòng trống
VD:
tên tôi là

bư béo bụng bự

rất mong sự giúp đỡ của mọi người
Em muốn xoá các dòng này đi và để lại là
tên tôi là
bư béo bụng bự
rất mong sự giúp đỡ của mọi người

Mong các anh chỉ giáo cho ạ
Em cảm ơn các bác

Hãy làm theo cách này
Nếu bạn sử dụng bàn phím máy bàn thì bạn thử cách sau xem có được không nhé:
- Chọn vùng dữ liệu tại cột E và nhấn Ctrl+H để sử dụng chức năng Replace.
- Chọn ô Find what, giữ phím Alt và nhập 0010 từ dãy phím số ở bên phải bàn phím, sau đó thả phím Alt
- Nhấn nút Replace all.

 

[sonlamhpu]

Hãy làm theo cách này
Nếu bạn sử dụng bàn phím máy bàn thì bạn thử cách sau xem có được không nhé:
- Chọn vùng dữ liệu tại cột E và nhấn Ctrl+H để sử dụng chức năng Replace.
- Chọn ô Find what, giữ phím Alt và nhập 0010 từ dãy phím số ở bên phải bàn phím, sau đó thả phím Alt
- Nhấn nút Replace all.

Em thử rồi bác ạ, nhưng nó gộp thành một dòng luôn, em muốn chỉ xoá dòng trắng thôi, còn để lại các alt + enter để xuống dòng ấy ạ

 

[dhn46]

Bạn thử Code sau, xử lý trên range

Sub Xoa()
    Dim Arr, Cls As Range, Str As String
    Application.ScreenUpdating = False
    'Dien vùng du lieu vao day, thay the [D3:D1938] neu co thay doi
    For Each Cls In [D3:D1938]
        Arr = Split(Cls, Chr(10))
        For i = 0 To UBound(Arr)
            If Len(Trim(Arr(i))) > 1 Then
                Str = Str & Arr(i) & Chr(10)
            End If
        Next
        Cls = Left(Str, Len(Str) - 1)
    Next
    Application.ScreenUpdating = True
End Sub

 

[sonlamhpu]

em đã khóc khi đọc xong và thực hiện bài viết này, cảm ơn bác rất nhiều

 

[sonlamhpu]

chết bác ơi vẫn chưa được, em vừa kiểm tra lại thì nó dồ hết vào một ô này, và ô nào cũng giống nhau (

 

[VetMini]

chết bác ơi vẫn chưa được, em vừa kiểm tra lại thì nó dồ hết vào một ô này, và ô nào cũng giống nhau (

Cái tội dùng biến tổng hợp mà hổng chịu xoá trắng trước khi sử dụng.

Nhét dòng này:

...
    For Each Cls In [D3:D1938]
        [B][COLOR=#FF0000]Str = ""[/COLOR][/B]
        Arr = Split(Cls, Chr(10))
...

 

[dhn46]

chết bác ơi vẫn chưa được, em vừa kiểm tra lại thì nó dồ hết vào một ô này, và ô nào cũng giống nhau (

Lỗi do tôi không xóa Str khi kết thúc vòng lặp,
Cảm ơn bác VetMini đã nhắc nhở

Bạn sửa lại như sau hoặc theo chỉ dẫn của bác Vetmini nhé

Sub Xoa()
    Dim Arr, Cls As Range, Str As String
    Application.ScreenUpdating = False
    'Dien vùng du lieu vao day, thay the [D3:D1938] neu co thay doi
    For Each Cls In [D3:D1938]
        Arr = Split(Cls, Chr(10))
        For i = 0 To UBound(Arr)
            If Len(Trim(Arr(i))) > 1 Then
                Str = Str & Arr(i) & Chr(10)
            End If
        Next
        If Len(Str) > 1 Then Cls = Left(Str, Len(Str) - 1)
        Str = ""
    Next
    Application.ScreenUpdating = True
End Sub

 

[sonlamhpu]

em cảm ơn mọi người nhiều ạ

 

[Quang_Hải]

em đã khóc khi đọc xong và thực hiện bài viết này, cảm ơn bác rất nhiều

Thử cái này chắc nhanh hơn chút

Sub abc()
Dim arr(), i, j, tem, str
Range("D3", [D65536].End(3)).Replace ChrW(13), ""
arr = Range("D3", [D65536].End(3)).Value
For i = 1 To UBound(arr)
   If arr(i, 1) <> "" Then
      tem = Split(arr(i, 1), ChrW(10))
      str = ""
      If UBound(tem) Then
         For j = 0 To UBound(tem)
            If Len(tem(j)) > 1 Then
               str = str & tem(j) & ChrW(10)
            End If
         Next
         arr(i, 1) = Left(str, Len(str) - 1)
      End If
   End If
Next
[D3].Resize(i - 1) = arr
End Sub