havietchuong
Thành viên tiêu biểu

- Tham gia
- 16/6/09
- Bài viết
- 490
- Được thích
- 570
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên tiểu học.
Tôi có tập tin như sau, nhờ các bạn dùng công thức, hàm nào để cắt dùm tôi những ô trống theo yêu cầu trong tập tin đính kèm. Cám ơn.
Tôi có tập tin như sau, nhờ các bạn dùng công thức, hàm nào để cắt dùm tôi những ô trống theo yêu cầu trong tập tin đính kèm. Cám ơn.
Sub Test()
Dim Cll As Range
With Range("b1", [b1000].End(xlUp))
For Each Cll In .Resize(, 32)
If Cll <> 0 And Cll <> "" Then _
Cll.Offset(.Count).End(xlToLeft)(1, 2) = Cll
Next Cll
End With
End Sub
Hàm thì không cắt được ô đâu bạn, chỉ di chuyển nó vào bằng mọi cách thôiTôi có tập tin như sau, nhờ các bạn dùng công thức, hàm nào để cắt dùm tôi những ô trống theo yêu cầu trong tập tin đính kèm. Cám ơn.
Thật ra mình cũng nghĩ đến cái này và đã thử làm nhưng lần nào cũng "tèo", mỗi ngày lại học thêm được một tý . Phải chi diễn đàn mở cái đề tài về cái thằng NAME này cho anh em học tập thì đã lắm. Nhìn các bạn đặt name đó thấy thích quá nhưng thú thật có cái hiểu có cái thì "tèo"Dùng công thức cũng không phải là không được!
Để tránh dùng cột phụ, ta dùng Define name vậy
Xem file
Dùng công thức cũng không phải là không được!
Để tránh dùng cột phụ, ta dùng Define name vậy
Xem file