hỏi code VBA tạo danh sách duy nhất

[ST-Lu!]

Chào các anh, các chị

Vấn đề lọc danh sách duy nhất bằng công thức em đã đọc được nhiều trên diễn đàn.
Với tinh thần "cố gắng xóa mù VBA" Các cao thủ giúp em đoạn code sau
--------------------------
Tại sheet1 ta có một name là DS

Chạy macro

Kết quả danh sách duy nhất từ DS sẽ được tạo tại ô B2 Sheet("AR")


Xin đuợc chỉ bảo

ST

 

[ST-Lu!]

Bác ơi có cách nào như này không

Khi em xóa dữ liệu cũ đi, paste dữ liệu mới vào. Có một công việc thực hiện như sau
--
Hình như dùng sự kiện change gì đó. Sau động tác paste dữ liệu mới vào.

For each cell in each range("DS")
If Cell.value = 0 then
cell.value = offset(-1) '----> để lấy tên từ bên trên xuống

Và tại bên phải cell đó một cột, giá trị sẽ được nhân với -1 (cell(;1) *-1)

Thì viết code thế nào hả bác?

-------------------
Mong bác giúp đỡ

 

[Mr Okebab]

Bác ơi có cách nào như này không

Khi em xóa dữ liệu cũ đi, paste dữ liệu mới vào. Có một công việc thực hiện như sau
--
Hình như dùng sự kiện change gì đó. Sau động tác paste dữ liệu mới vào.

For each cell in each range("DS")
If Cell.value = 0 then
cell.value = offset(-1) '----> để lấy tên từ bên trên xuống

Và tại bên phải cell đó một cột, giá trị sẽ được nhân với -1 (cell(;1) *-1)

Thì viết code thế nào hả bác?

-------------------
Mong bác giúp đỡ

Em xem nhé :

Sub OB()
    On Error Resume Next
    Dim MyCell As Range
    For Each MyCell In Range("DS")
        If MyCell.Value = 0 Then
            MyCell.Value = MyCell.Offset(-1, 0).Value
            MyCell.Offset(0, 1).Value = (-1) * MyCell.Offset(0, 1).Value
        End If
    Next
End Sub

Tuy nhiên nễu dữ liệu nhiều thì ta có thể dùng FIND để tìm kiếm giá trị MyCell = 0 sẽ nhanh hơn. Còn nếu dữ liệu ít thì không cần.

Thân!

 

[ST-Lu!]

Cám ơn Anh Bắp nhiều

Em đang kiểu chập chững biết đi đó, đọc code hiểu, hình dung được code như thế...nhưng chưa viết được...

He he...Cám ơn anh
-------------

P/s: à mà anh ơi, làm thế nào để cho những đoạn QUOTE "trích code" có đấy đủ màu mè thế ạ?

 

[ndu96081631]

P/s: à mà anh ơi, làm thế nào để cho những đoạn QUOTE "trích code" có đấy đủ màu mè thế ạ?

Làm vầy đây:
- Bấm nút "Đổi sang khung lớn"
- Copy code cho vào vùng soạn thảo
- Bôi đen code và bấm vào nút có chử php