Cảm ơn các Bạn nhiều!
Giả xử mình có 1 ô dữ liệu là ô A8.
Và ô đặt công thức lấy kết quả là ô C8 (điều kiện của công thức là. Nếu ô A8 mà có dữ liệu thì lấy giá trị đó luôn. Còn nếu ô A8 mà ko có dữ liệu thì kết quả trả về là 1 ô blank.Mình đang đặt công thức như sau
C8 =IF(A8<>"",A8,"") -> Thấy kết quả trả về ko phải là 1 ô blank các Bạn ah. Mong các Bạn nghĩ cách giúp mình để kết quả trả về là 1 ô blank (giống như 1 ô ban đầu chưa có dữ liệu) ko biết có làm được ko các Bạn? Mong các Bạn giúp. Cảm ơn các Bạn nhiều!
Lúc nãy mình có đưa file lên. Để làm ví dụ, Nhưng file đó mình thấy ko hợp lý nên gỡ xuống và tải file mới lên với ví dụ sát hơn. Mong các Bạn giúp đỡ mình. Cảm ơn các Bạn!
Mình thấy nếu xóa công thức ở cột C thì cột G ko còn bị dòng cách quãng (cho nên mình nghĩ có cách nào để ô C6 công thức trả về kết quả là 1 ô BLANK. Thì sẽ giải quyết được vấn để dòng cách quãng ở cột G. Còn ko thì phải sửa code lọc ở cột G. Mong các Bạn giúp đỡ.Các Bạn có thể tải theo đường Link này https://www.mediafire.com/?ncj3ck16825kl1d
trong code của bạn có đoạn:
If Not IsEmpty(SubItem)…
sửa thành vầy là được:
If Len(SubItem)…
Tuy nhiên, phần triển khai code cũng chưa "đẹp" lắm. Tôi "bo" nó lại đây:
Function UniqueArray(ParamArray Source()) As Variant
Dim SourceItem, SubItem, tmpArr
Dim Dict As Object, n As Long, tmp, tmp2 As String
Set Dict = CreateObject("Scripting.Dictionary")
ReDim tmpArr(1 To 65536, 1 To 1)
For Each SourceItem In Source
tmp = SourceItem
If Not IsArray(tmp) Then tmp = Array(tmp)
For Each SubItem In tmp
tmp2 = CStr(SubItem)
If Len(tmp2) Then
If Not Dict.Exists(tmp2) Then
n = n + 1
Dict.Add tmp2, ""
tmpArr(n, 1) = SubItem
End If
End If
Next
Next
If n Then UniqueArray = tmpArr
Set Dict = Nothing
End Function
Công thức tại cột G cũng đâu cần phải thông qua cột phụ, viết vầy:
=UniqueArray(A2:A19&B2:B19)
——————-
Lưu ý:
– Bạn ReDim tmpArr(1 To 65536, 1 To 1) là điều phải xem lại (không tốt lắm)
– Chỉ dùng ParamArray khi bạn cảm thấy nó thật sự cần thiết (trường hợp trong file này là không cần)
www.giaiphapexcel.com/diendan/threads/nh%E1%BB%9D-c%C3%A1c-b%E1%BA%A1n-s%E1%BB%ADa-gi%C3%BAp-h%C3%A0m-if-%C4%91%E1%BB%83-k%E1%BA%BFt-qu%E1%BA%A3-tr%E1%BA%A3-v%E1%BB%81-l%C3%A0-1-%C3%B4-blank.79189/
Xây dựng Lương 3P, KPI cho Doanh nghiệp
Làm thế nào để trả lương cho nhân viên chính xác nhất? Đây là một trong những câu hỏi khó trong quản trị nhân...
Xem khóa học