Khi xuất mã hàng từ phần mềm sang Excel xuất hiện dòng và khoảng trắng thừa

[chuot_mickey45]

cái phần mềm Kế toán của em đang dùng thì bị hỏng nên em xuất nó qua ex để làm.nhưng kết quả là khi xuất sang thì thấy xuất hiện những dòng và khoảng trắng.ngồi xoa thủ công thì chắc lâu quá nên mong mọi người giúp em giải quyết cái vấn đề này.tks.

 

[Hai Lúa Miền Tây]

cái phần mềm Kế toán của em đang dùng thì bị hỏng nên em xuất nó qua ex để làm.nhưng kết quả là khi xuất sang thì thấy xuất hiện những dòng và khoảng trắng.ngồi xoa thủ công thì chắc lâu quá nên mong mọi người giúp em giải quyết cái vấn đề này.tks.

Dùng autofilter lọc những dòng trống đó ra rồi xóa nó đi.

 

[xuan.nguyen82]

Có thể dùng chức năng Replace:
1. Chọn vùng.
2. Nhấn Ctrl+H
3. Nhập Find what là 2 dấu cách và Replace with là 1 dấu cách.
4. Nhấn Alt+A vài lần.

Hoặc dùng hàm Trim
Giả sử A1 là ô có chứa chuỗi có khoảng trắng. tại B1 công thức là:

=Trim(A1)
rồi thao tác dán ngược kết quả lại ô A1. Copy paste Values.

Hoặc dùng hàm: SUBSTITUTE cũng được.

Thao tác này dùng để xóa khoảng trắng thừa trong chuỗi (chứ không phải xóa dòng trắng)

 

[Quang_Hải]

cái phần mềm Kế toán của em đang dùng thì bị hỏng nên em xuất nó qua ex để làm.nhưng kết quả là khi xuất sang thì thấy xuất hiện những dòng và khoảng trắng.ngồi xoa thủ công thì chắc lâu quá nên mong mọi người giúp em giải quyết cái vấn đề này.tks.

Nếu vẫn không xóa được khoảng trắng thừa khi dùng hàm trim thì chọn vùng cần xử lý. Bấm CTRL + H, ấn giữ phím Alt và gõ 0160 rồi chọn replace all.
Chúc may mắn

 

[chuot_mickey45]

Dùng autofilter lọc những dòng trống đó ra rồi xóa nó đi.

mình đã thử filter nhưng mà ko có được.hiazzzzzzz

 

[chuot_mickey45]

bạn ơi mình giữ Alt và gõ 0160 nhưng ko thấy gì nhỉ ?

 

[Quang_Hải]

bạn ơi mình giữ Alt và gõ 0160 nhưng ko thấy gì nhỉ ?

Tốt nhất bạn gởi file mẫu lên để mọi người xem file bạn đang thế nào sẽ đưa ra phương án tốt nhất cho bạn

 

[chuot_mickey45]

bạn ơi.đây là đoạn vd minh muốn sửa.mong mọi người giúp đỡ.

 

[Quang_Hải]

bạn ơi.đây là đoạn vd minh muốn sửa.mong mọi người giúp đỡ.

Không có lấy 1 lời giải thích trong file.

 

[xuan.nguyen82]

bạn ơi.đây là đoạn vd minh muốn sửa.mong mọi người giúp đỡ.

Bạn muốn sửa ở chỗ nào vậy? Bạn nói rõ thì mọi người sẽ giúp bạn dễ dàng hơn.

 

[SA_DQ]

Chắc là xóa những dòng trống hơ trống hoắc

Option Explicit
Sub DeleteRows()
 Dim lRow As Long
 Dim dRg As Range, Cls As Range
 If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.'
    lRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious).Row
    For Each Cls In Range("A1:A" & lRow).SpecialCells(xlCellTypeBlanks)
        If Cls.End(xlToRight).Column > 254 Then
            If dRg Is Nothing Then
                Set dRg = Cls.EntireRow
            Else
                Set dRg = Union(dRg, Cls.EntireRow)
            End If
        End If
    Next Cls
    If Not dRg Is Nothing Then
        dRg.Delete
    End If
 End If
End Sub

 

[chuot_mickey45]

trong file đó có những dòng trắng(xen kẽ vào chỗ mấy dòng kết quả cuối cùng) .Mình muốn kết quả cuối cùng là được như thế này ?có cách nào ko bạn.
mà nhân tiện hỏi bạn là mình cứ để nhưng dòng trắng đó thì có cách nào kiểm tra kết qua ko >
? có in ra sổ được ko ?
thank you.

Bạn muốn sửa ở chỗ nào vậy? Bạn nói rõ thì mọi người sẽ giúp bạn dễ dàng hơn.

 

[chuot_mickey45]

bạn ơi.đúng là xóa nhưng dòng trống hở đó.hihihi.và mình muốn hỏi bạn là nếu mình cứ để như vậy thì mình có thể ktra và in ra sổ được ko ?
cái chỗ code kia là để cho vấn đề của mình đó ak

 

[chuot_mickey45]

bạn ơi.có nhưng dòng trắng xen giữa đấy.nhưng cái dòng cách ý bạn.
mình mong muốn thu được kết quả như đoạn này.
cái đoạn này là mình đã xóa bằng tay.

Bạn muốn sửa ở chỗ nào vậy? Bạn nói rõ thì mọi người sẽ giúp bạn dễ dàng hơn.

 

[chuot_mickey45]

mình muốn thu được kết quả như file Book1.liệu có làm được ko bạn ?và nếu mà cứ để những dòng trắng đó thì mình có thể kiểm tra rồi in ra sổ được ko ?

cảm ơn bạn nha.mong bạn giúp đỡ mình.
đúng là mình muốn xóa những cái dòng đó.để có thể kiểm tra và in sổ ( " nếu ko xóa thì có làm được việc đó ko bạn ")

Option Explicit
Sub DeleteRows()
 Dim lRow As Long
 Dim dRg As Range, Cls As Range
 If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.'
    lRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious).Row
    For Each Cls In Range("A1:A" & lRow).SpecialCells(xlCellTypeBlanks)
        If Cls.End(xlToRight).Column > 254 Then
            If dRg Is Nothing Then
                Set dRg = Cls.EntireRow
            Else
                Set dRg = Union(dRg, Cls.EntireRow)
            End If
        End If
    Next Cls
    If Not dRg Is Nothing Then
        dRg.Delete
    End If
 End If
End Sub

 

[Hai Lúa Miền Tây]

mình muốn thu được kết quả như file Book1.liệu có làm được ko bạn ?và nếu mà cứ để những dòng trắng đó thì mình có thể kiểm tra rồi in ra sổ được ko ?

Nếu muốn xóa dòng thì theo clip bên dưới, còn nếu muốn hiện data không thôi thì chọn điều kiện lọc là NonBlanks

[video=youtube;Tfv_al5AXN4]http://www.youtube.com/watch?v=Tfv_al5AXN4&feature=youtu.be[/video]

 

[chuot_mickey45]

mình nhìn video nhưng mà mờ quá.mắt mình ko đượctốt lắm.bạn có thể viết các bước giúp mình ko.cảm ơn bạn.

Nếu muốn xóa dòng thì theo clip bên dưới, còn nếu muốn hiện data không thôi thì chọn điều kiện lọc là NonBlanks

[video=youtube;Tfv_al5AXN4]http://www.youtube.com/watch?v=Tfv_al5AXN4&feature=youtu.be[/video]