Điền thứ tự xuất hiện của các phần tử trong Cột ( Dùng VBA) (1 người xem)

[ttqt30]

Em muốn Điền thứ tự xuất hiện của các phần tử trong Cột A vào cột B Dùng VBA .
Anh chị nào biết nhờ giúp đỡ dùm ! E cảm ơn nhiều! nhờ xem file đính kèm!

 

[quanluu]

Em muốn Điền thứ tự xuất hiện của các phần tử trong Cột A vào cột B Dùng VBA .
Anh chị nào biết nhờ giúp đỡ dùm ! E cảm ơn nhiều! nhờ xem file đính kèm!

Tại sao bạn ko dùng hàm (cột F)? Mình nghĩ nên ưu tiên dùng hàm sẵn có excel, nếu bạn vẫn muốn VBA thì mình sẽ code sau.

 

[ttqt30]

Cảm ơn ANh Quân ,nhờ A giúp dùm Code VBA e đang cần !

 

[phulien1902]

Em muốn Điền thứ tự xuất hiện của các phần tử trong Cột A vào cột B Dùng VBA .<br>
Anh chị nào biết nhờ giúp đỡ dùm ! E cảm ơn nhiều! nhờ xem file đính kèm!

<br>Tham khảo<br>

<br>Sub abc()<br>&nbsp;&nbsp;&nbsp; Dim LR As Long<br>&nbsp;&nbsp;&nbsp; With Sheets(1)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LR = .Cells(.Rows.Count, "A").End(xlUp).Row<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Range("B2").FormulaR1C1 = "=COUNTIF(R2C1:RC1,RC[-1])"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With .Range("B2:B" &amp; LR)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Cells(1).AutoFill Destination:=.Cells<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Value = .Value<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With<br>&nbsp;&nbsp;&nbsp; End With<br>End Sub<br>

 

[phulien1902]

Bạn tham khảo Code :

Sub abc()
    Dim LR As Long
    With Sheets(1)
        LR = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("B2").FormulaR1C1 = "=COUNTIF(R2C1:RC1,RC[-1])"
        With .Range("B2:B" & LR)
            .Cells(1).AutoFill Destination:=.Cells
            .Value = .Value
        End With
    End With
End Sub

Mạng chậm quá, gửi mãi không được

 

[ttqt30]

Cảm ơn bạn nhưng có thể ngắn gọn hơn dc không ah? cảm ơn bạn! đã giúp
<br>Sub abc()<br>&nbsp;&nbsp;&nbsp; Dim LR As Long<br>&nbsp;&nbsp;&nbsp; With Sheets(1)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LR = .Cells(.Rows.Count, "A").End(xlUp).Row<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Range("B2").FormulaR1C1 = "=COUNTIF(R2C1:RC1,RC[-1])"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With .Range("B2:B" &amp; LR)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Cells(1).AutoFill Destination:=.Cells<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Value = .Value<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With<br>&nbsp;&nbsp;&nbsp; End With<br>End Sub<br>

 

[HungQuoc49]

Em muốn Điền thứ tự xuất hiện của các phần tử trong Cột A vào cột B Dùng VBA .
Anh chị nào biết nhờ giúp đỡ dùm ! E cảm ơn nhiều! nhờ xem file đính kèm!

Public Sub DienSTT()
Dim r As Long
With CreateObject("scripting.dictionary")
For r = 2 To Sheet1.Range("A2").End(xlDown).Row
.Item(Sheet1.Range("A" & r).Value) = .Item(Sheet1.Range("A" & r).Value) + 1
Sheet1.Range("B" & r).Value = .Item(Sheet1.Range("A" & r).Value)
Next r
End With
End Sub

 

[ttqt30]

Cảm ơn Bnj PhuLien !

Cảm ơn bạn Phulien nhiều nhé!!!​

 

[quanluu]

Cảm ơn ANh Quân ,nhờ A giúp dùm Code VBA e đang cần !

bạn cũng có thể tham khảo thêm code này:

Sub Dem()
Dim i, j, Dem, lastrow As Integer
lastrow = Range("A" & Rows.Count).End(3).Row
For i = 2 To lastrow
Dem = 0
For j = 2 To i
If Cells(j, 1) = Cells(i, 1) Then Dem = Dem + 1
Next
Cells(i, 2) = Dem
Next
End Sub

 

[ttqt30]

Cảm ơn Bạn Anh Quan nhiều , Code này có vẻ dễ hiểu hơn tại mình mới học VBA !