Tách mã bán hàng !!! VBA (1 người xem)

[doanhoanghai]

Kính gửi các bác giúp em dùng VBA tách mã bán hàng

Em có 02 sheet gồm : "DL", "LỌC"
Trong đó có Sheet DL là DL thô em muốn sang Sheet LỌC để tiện theo dõi, do cũng hơi dốt món này.
Em cần tên Công ty, mã hàng, số lượng, tiền chưa VAT thôi ạ

Mong các bác giúp em với ạ !

EM cảm ơn

 

[ChanhTQ@]

Sao bạn lại để các khoảng trắng khác nhau giữa các hàng trong cột A làm vậy?

Ai đảm bảo những khoảng trắng đó luôn theo qui chuẩn của bạn;

& vì thế CSDL của bạn tiềm ẩn nguy cơ fá sản là rất cao!

Nên kết luận: Giúp bạn là hại thêm bạn mà thôi!

 

[doanhoanghai]

Sao bạn lại để các khoảng trắng khác nhau giữa các hàng trong cột A làm vậy?

Ai đảm bảo những khoảng trắng đó luôn theo qui chuẩn của bạn;

& vì thế CSDL của bạn tiềm ẩn nguy cơ fá sản là rất cao!

Nên kết luận: Giúp bạn là hại thêm bạn mà thôi!

Tất cả các ô đều bị 30 khoảng trắng ở trước bạn à

 

[SA_DQ]

Căn cứ nào vậy bạn, để fát biểu rằng:?

Tất cả các ô đều bị 30 khoảng trắng ở trước bạn à

Còn mình thì đây:

Dòng  | Len()  | Trim(Len)
 6    |    19  |   19
 [COLOR="#800080"]7[/COLOR]    |     40 |    34
[COLOR="#0000CD"] 8[/COLOR]    |     26 |    10
[COLOR="#FF0000"] 9 [/COLOR]   |     94 |    64
 [COLOR="#EE82EE"]11[/COLOR]   |     22 |    06

 

[ChanhTQ@]

Cứ cho là dữ liệu được xuất ra từ fần mềm đi chăng nữa; Là mình thì mình cũng không bao giờ để những khoảng trắng như vậy khi sao chép & lưu trữ cho công việc sống còn của mình.

 

[doanhoanghai]

Mình gần làm được rồi này

 

[concogia]

Bạn chạy macro này.

Option Explicit


Public Sub GPE()
....
ReDim dArr(1 To UBound(sArr), 1 To 4)
    For I = 1 To UBound(sArr)
        [B]If (Left(sArr(I, 1), 30)) = "                              " Then[/B]
            Tem = sArr(I, 1)
       .....
End Sub

Híc, cái này mà là 100 khoảng trắng hoặc nhiều hơn nữa thì sao ta ???
Híc

 

[SA_DQ]

Híc, cái này mà là 100 khoảng trắng hoặc nhiều hơn nữa thì sao ta ???
Híc QUOTE]

Nếu 999 khoảng trắng thì chơi hàm Space(999), chứ sao!

Nhưng dù sao bỏ công xử dữ liệu ngay từ đầu, đưa về qui chuẩn vẫn là biện fáp an tâm nhất; Có cực đấy, nhưng đỡ ấy nấy!