Nhờ giúp đỡ: Dồn các ô trống (1 người xem)

[anhdepjai]

Chào cả nhà,
Mình có 1 file khoảng 12 cột, Các dữ liệu nối tiếp nhau và tạo ra các ô trống
Mình muốn nhờ mọi người dồn giúp nó cho gọn lại để mình bắn lên listbox.

Chán, file mãi không tải lên được

Cảm ơn mọi người trước nhé.

 

[phihndhsp]

Chào cả nhà,
Mình có 1 file khoảng 12 cột, Các dữ liệu nối tiếp nhau và tạo ra các ô trống
Mình muốn nhờ mọi người dồn giúp nó cho gọn lại để mình bắn lên listbox.

Chán, file mãi không tải lên được

Cảm ơn mọi người trước nhé.

Bạn làm theo hướng dẫn nha
B1: chọn hết vùng chứa dữ liệu
B2: Home->Find & Select-> Chọn Goto Special->Blanks
B3: Nhấn nút Delete chọn Delete Cells và chọn Shift up là ok

 

[be_09]

Chán, file mãi không tải lên được

Bạn xóa hết chỉ chừa lại 1 sheet với khoảng 20 dòng dữ liệu, để giảm dung lượng thì tải được.

Bạn muốn dồn như thế nào thì cho ví dụ dồn 20 dòng nêu trên kế tiếp bên dưới.

 

[anhdepjai]

Bạn làm theo hướng dẫn nha
B1: chọn hết vùng chứa dữ liệu
B2: Home->Find & Select-> Chọn Goto Special->Blanks
B3: Nhấn nút Delete chọn Delete Cells và chọn Shift up là ok

Mình đã thử cách này và thành công nhé.
Cảm ơn mọi người, ức quá, mạng cty không làm sao load file lên được, kể cả mediafire.

Ở mà, nhân tiện, mạng cty bị khóa cyber roam, Ngăn kết nối internet. Chưa vượt qua được hoàn toàn . Có bạn nào có kinh nghiệm chuyện này không?

 

[anhdepjai]

Chảo mọi người,

Hiện mình dùng text to collumn để tách 10 ký tự của 1 range, Nhưng gặp phiền phức là nếu rang đó có nhiều cột thì phải tách cho từng cột, mình có thể áp dụng cách nào nhanh hơn không nhỉ.

 

[anhdepjai]

Chảo mọi người,

Hiện mình dùng text to collumn để tách 10 ký tự của 1 range, Nhưng gặp phiền phức là nếu rang đó có nhiều cột thì phải tách cho từng cột, mình có thể áp dụng cách nào nhanh hơn không nhỉ.

Mình đã tìm thấy cái hàm

Worksheets("Temp").Columns(i).Parse parseLine:="[xxxxxxxxxx]", Destination:=Worksheets("Temp").Cells(1, i)
Để cắt ra 10 ký tự ngay ở cột i. Cảm ơn mọi người đã đọc bài.