با سلام
وقتی اعداد تکرای نباید وارد بشه چطور انتظار شمارش دارید؟
لطفا بفرمایید چه هدفی از این کار در نظر دارید ؟
فعلا این فایل رو بررسی بفرمایید
هر عددی که در ستون A وارد شود در ستون B بدون تکرار آن لیست شده و در ستون C تعداد تکرار آن درج میگردد
کد PHP:
Sub UniqueCopy()
Sheet1.Columns(2).ClearContents
On Error Resume Next
With ActiveSheet
.Range("A1", .Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Sheet1.Range("B1"), Unique:=True
End With
K1 = Cells(Rows.Count, "A").End(xlUp).Row
K2 = Cells(Rows.Count, "B").End(xlUp).Row
Range("C2:C" & K2).ClearContents
For I = 2 To K2
Range("C" & I).Value = "=COUNTIFS(A2:A" & K1 & ",B" & I & ")"
Next
On Error GoTo 0
End Sub
علاقه مندی ها (Bookmarks)