استفاده از فیلتر در دو ستون مجزا

[msahi]

سلام
تو فایل که آپلود کردم مشخصه میخوام چطوری بشه
دو ستون از اعداد داریم میخوام اعداد صفر حذف بشن و بقیه اعداد پشت سر هم تو ستون قرار بگیرن
اگر امکانش هست راهنماییم کنین
ممنون

[Amir Ghasemiyan]

سلام دوست عزيز
براي ستون j ميتونين از اين فرمول استفاده كنيد. فقط دقت كنيد كه فرمول آرايه اي هست و بايد بعد از نوشتن فرمول ctrl+shift+enter بزنيد تا بصورت آرايه اي ثبت بشه



=IFERROR(SMALL(($C$2:$C$10<>0)*$C$2:$C$10,COUNTIF($C$2:$C$10,0)+ROW(A1)),"")


ستون بعدي هم مشابه همين روش هست

[iranweld]

با سلام

فایل پیوست را بررسی کنید


Sub test()

Z1 = Cells(Rows.Count, "c").End(xlUp).Row

Z2 = Cells(Rows.Count, "d").End(xlUp).Row

If Z1 > Z2 Then K = Z1 Else K = Z2

Range("J2:K" & K).ClearContents

K = 2

For I = 2 To Z1

If Range("C" & I) > 0 Then

Range("J" & K) = Range("C" & I)

K = K + 1

End If

Next

K = 2

For I = 2 To Z2

If Range("D" & I) > 0 Then

Range("K" & K) = Range("D" & I)

K = K + 1

End If

Next


End Sub

[msahi]

ممنون از لطفتون خیلی سریع ودقیق بود