Trong trường hợp bạn đang tự hỏi làm thế nào bạn có thể chỉ thêm các giá trị tích cực và duy nhất thì bài viết này là dành cho bạn.

Trong bài viết này, bạn sẽ học cách chỉ thêm các giá trị dương riêng biệt trong excel bằng mã VBA.

Câu hỏi): Tôi muốn macro tổng hợp tất cả các số dương riêng biệt trong một phạm vi được chỉ định bao gồm cả số âm và số dương.

Sau đây là ảnh chụp nhanh dữ liệu chúng tôi có:

image 1

Chúng ta cần làm theo các bước sau:

Nhấp vào tab Nhà phát triển Từ nhóm Mã chọn Visual Basic

image 2

Nhập mã sau vào mô-đun chuẩn: –

Hàm AddUnique (ByRef inputrange As Range, _

Tùy chọn Bỏ qua Như Boolean = Đúng, _

Tùy chọn Bỏ quaError As Boolean = Đúng, _

Tùy chọn Bỏ qua Số xác nhận như Boolean = Đúng)

Số phân biệt mờ như đôi

Dim ô As Range

Dim dict As Object

Đặt dict = CreateObject (“Scripting.dictionary”)

số phân biệt = 0

Đối với mỗi ô Trong inputrange.Resize (inputrange.Rows.Count, 1)

cval = cell.Value

Nếu lờ đi thì

Nếu không (VBA.IsNumeric (cval)) Thì cval = 0

Khác

AddUnique = CVErr (0)

Chức năng thoát

Kết thúc Nếu

===

Nếu bỏ quaError thì

Nếu IsError (cval) Thì cval = 0

Khác

AddUnique = CVErr (1)

Chức năng thoát

Kết thúc Nếu

Nếu bỏ qua số thì

Nếu cval <0 thì cval = 0

Khác

AddUnique = CVErr (2)

Chức năng thoát

Kết thúc Nếu

If Not dict.Exists (cval) Then

dict.Add cval, cval

riêng biệt = số phân biệt + cval

Kết thúc Nếu

Tiếp theo

AddUnique = diffnumbers

Chức năng kết thúc

image 4

  • Trong ô C2, công thức sẽ là

* = AddUnique (A2: A6)

image 5

  • Để kiểm tra xem mã có bỏ qua giá trị lặp lại hay không; hãy để chúng tôi thay đổi giá trị trong ô A1 thành 50 và xem kết quả.

image 6

Bằng cách này, chúng ta có thể thêm các giá trị dương riêng biệt thông qua mã macro.

Excel//wp-content/uploads/2015/06/Download-Sample-File-xlsm.xlsm[Download-Sample File-xlsm]