VBA - Cắt các cell blank (1 người xem)

[quocturtle]

Chào anh/chị

Hiện tại em đang gặp chút vấn đề và cần anh/chị giúp đỡ. Trong cùng 1 cột, data xuất ra ở các khoảng khác nhau. Và em cần bỏ những khoảng trắng bằng cách đôn data từ dưới lên. Nói ra hơi rắc rối chút, anh/chị xem trong file đính kèm

Em nghĩ là cái này cần viết VBA để chạy.

Anh chị nào giúp em giải quyết vấn đề này với ạ

Em cám ơn nhiều

 

[mhung12005]

Chào anh/chị

Hiện tại em đang gặp chút vấn đề và cần anh/chị giúp đỡ. Trong cùng 1 cột, data xuất ra ở các khoảng khác nhau. Và em cần bỏ những khoảng trắng bằng cách đôn data từ dưới lên. Nói ra hơi rắc rối chút, anh/chị xem trong file đính kèm

Em nghĩ là cái này cần viết VBA để chạy.

Anh chị nào giúp em giải quyết vấn đề này với ạ

Em cám ơn nhiều

Bạn dùng thử cái này xem sao nhé.

 

[quocturtle]

Bạn dùng thử cái này xem sao nhé.

Code chạy rất tốt nhưng anh/chị mhung12005 có thể chỉnh code lại chút xíu được không ạ (em ko biết code VBA nên ko tự chỉnh được )

Anh/chị xem cái file excel em đính kèm. Cái đấy mới là ví dụ mẫu cái em phải làm thôi ạ. Thực tế số lượng đang làm nhiều hơn rất nhiều, số bond (column) tới 100 ~ 200, và ngày (rows) > 700

Anh/chị giúp em chỉnh code lại như vậy được ko ạ:

1. Có thêm ô chọn xuất ra kết quả bắt đầu từ đâu. (Giống như khi mình hay sử dụng Data Analysis). Giả sử vùng em chọn (theo ví dụ trong file này là từ E4:AF369, ở sheet 1). Em muốn xuất giá trị ra ở sheet 2, bắt đầu từ ô B2 chẳn hạn. Bắt đầu từ ô B2 bên sheet 2, bộ lọc sẽ xuất ra.

2. Giả sử lúc chọn, em không chọn hết từ E4:AF369, mà em chỉ chọn từ E4:Z50 chẳn hạn. Thì bộ lọc sẽ chỉ thực hiện ở vùng này.

Ví dụ ở file em gửi đầu tiên (cái anh/chị viết code VBA trên đó) thì khi em chọn từ B2:C11, thì bộ lọc thực hiện tốt nhưng lúc xuất thì xuất luôn cả bên Data3 và Data4 với N/A. Em muốn nếu ko chọn thì từ Data3 và Data4 sẽ là để trống. (anh/chị xem file ảnh error đính kèm)

3. (Nếu được) làm sao em dời ô bộ lọc được a , nhiều khi muốn di chuyển nó để nhìn mấy cái data mà bị nó vướng nên

Rất mong anh/chị giúp đỡ. Không phải tại em kén chọn mà vì thật sự em cần xuất data ra theo số mẫu nhất định để chạy các loại test bên thống kê nữa ạ.

Cám ơn anh/chị nhiều

 

[mhung12005]

Code chạy rất tốt nhưng anh/chị mhung12005 có thể chỉnh code lại chút xíu được không ạ (em ko biết code VBA nên ko tự chỉnh được )

Anh/chị xem cái file excel em đính kèm. Cái đấy mới là ví dụ mẫu cái em phải làm thôi ạ. Thực tế số lượng đang làm nhiều hơn rất nhiều, số bond (column) tới 100 ~ 200, và ngày (rows) > 700

Anh/chị giúp em chỉnh code lại như vậy được ko ạ:

1. Có thêm ô chọn xuất ra kết quả bắt đầu từ đâu. (Giống như khi mình hay sử dụng Data Analysis). Giả sử vùng em chọn (theo ví dụ trong file này là từ E4:AF369, ở sheet 1). Em muốn xuất giá trị ra ở sheet 2, bắt đầu từ ô B2 chẳn hạn. Bắt đầu từ ô B2 bên sheet 2, bộ lọc sẽ xuất ra.

2. Giả sử lúc chọn, em không chọn hết từ E4:AF369, mà em chỉ chọn từ E4:Z50 chẳn hạn. Thì bộ lọc sẽ chỉ thực hiện ở vùng này.

Ví dụ ở file em gửi đầu tiên (cái anh/chị viết code VBA trên đó) thì khi em chọn từ B2:C11, thì bộ lọc thực hiện tốt nhưng lúc xuất thì xuất luôn cả bên Data3 và Data4 với N/A. Em muốn nếu ko chọn thì từ Data3 và Data4 sẽ là để trống. (anh/chị xem file ảnh error đính kèm)

3. (Nếu được) làm sao em dời ô bộ lọc được a , nhiều khi muốn di chuyển nó để nhìn mấy cái data mà bị nó vướng nên

Rất mong anh/chị giúp đỡ. Không phải tại em kén chọn mà vì thật sự em cần xuất data ra theo số mẫu nhất định để chạy các loại test bên thống kê nữa ạ.

Cám ơn anh/chị nhiều

Chào bạn !

Mình đã chỉnh lại code cho tổng quát hơn. Bạn test thử file đính kèm xem sao nhé.

Thân.

 

[phanvankhanh89]

cho mình làm là mình bôi đen vùng chọn, f5--special --blank -- shift cell up luôn.he

 

[quocturtle]

Chào bạn !

Mình đã chỉnh lại code cho tổng quát hơn. Bạn test thử file đính kèm xem sao nhé.

Thân.

Em cám ơn anh/chị nhiều

 

[quocturtle]

cho mình làm là mình bôi đen vùng chọn, f5--special --blank -- shift cell up luôn.he

Cách này em làm thử không được anh/chị ơi. Excel báo lỗi "No cells were found"

 

[GiangThieuSon]

Cách này em làm thử không được anh/chị ơi. Excel báo lỗi "No cells were found"

Tại vì bạn không biết cách thao tác đó thôi. Sau khi dùng goto để chọn các cell trống thì phải bấm chuột phải, chọn delete và chọn shift up
Nếu viết code thì bài này nên viết vầy là được

Sub BlankCell_Delete()
Dim MySelection As Range
Set MySelection = Application.InputBox("Nhap Vung Can", "Vung Du Lieu", Default, 100, 100, , , 8)
MySelection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

 

[quocturtle]

Tại vì bạn không biết cách thao tác đó thôi. Sau khi dùng goto để chọn các cell trống thì phải bấm chuột phải, chọn delete và chọn shift up
Nếu viết code thì bài này nên viết vầy là được

Sub BlankCell_Delete()
Dim MySelection As Range
Set MySelection = Application.InputBox("Nhap Vung Can", "Vung Du Lieu", Default, 100, 100, , , 8)
MySelection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

Em tạo thử 1 file Excel khác làm theo cách anh/chị chỉ thì ok, nhưng với cái file excel em gửi lên thì chẳng biết tại sao lại ko được nữa. Nó cứ báo lôi

Chịu