xin các thầy giúp em vba tự động điền dữ liệu (1 người xem)

[gamegamegamegame]

[TABLE="width: 364"]
[TR]
[TD] STT[/TD]
[TD] TÊN[/TD]
[TD]TỔ[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"] 1[/TD]
[TD] A[/TD]
[TD]TO 1[/TD]
[TD]TO1 [/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD] B[/TD]
[TD][/TD]
[TD]TO1 [/TD]
[/TR]
[TR]
[TD="align: right"] 3[/TD]
[TD] c[/TD]
[TD][/TD]
[TD]TO1 [/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD] D[/TD]
[TD][/TD]
[TD]TO1 [/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD] E[/TD]
[TD][/TD]
[TD]TO1 [/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD] F[/TD]
[TD]TO 2[/TD]
[TD]TO2 [/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD] G[/TD]
[TD][/TD]
[TD]TO2 [/TD]
[/TR]
[TR]
[TD="align: right"] 8[/TD]
[TD] H[/TD]
[TD][/TD]
[TD]TO2 [/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD] I[/TD]
[TD][/TD]
[TD]TO2 [/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD] J[/TD]
[TD][/TD]
[TD]TO2 [/TD]
[/TR]
[/TABLE]


em muống code điếng giống như phần màu xanh , có thể lấy stt để xát định tổ đc ko ạ
mong được góp ý

 

[be_09]

[TABLE="width: 364"]
[TR]
[TD] STT[/TD]
[TD] TÊN[/TD]
[TD]TỔ[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"] 1[/TD]
[TD] A[/TD]
[TD]TO 1[/TD]
[TD]TO1 [/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD] B[/TD]
[TD][/TD]
[TD]TO1 [/TD]
[/TR]
[TR]
[TD="align: right"] 3[/TD]
[TD] c[/TD]
[TD][/TD]
[TD]TO1 [/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD] D[/TD]
[TD][/TD]
[TD]TO1 [/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD] E[/TD]
[TD][/TD]
[TD]TO1 [/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD] F[/TD]
[TD]TO 2[/TD]
[TD]TO2 [/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD] G[/TD]
[TD][/TD]
[TD]TO2 [/TD]
[/TR]
[TR]
[TD="align: right"] 8[/TD]
[TD] H[/TD]
[TD][/TD]
[TD]TO2 [/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD] I[/TD]
[TD][/TD]
[TD]TO2 [/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD] J[/TD]
[TD][/TD]
[TD]TO2 [/TD]
[/TR]
[/TABLE]


em muống code điếng giống như phần màu xanh , có thể lấy stt để xát định tổ đc ko ạ
mong được góp ý

Theo tôi thì không thể dùng số thứ tự để gán tổ nếu không có 1 sheet làm dữ liệu, tôi khuyên không nên nghĩ theo hướng này mà nên dùng Validation để chọn tổ thì thực tế hơn.

 

[ChanhTQ@]

Bạn cho macro này chạy trên trang tính có dữ liệu cần điền tên tổ của bạn:

Option Explicit
Sub DiènSóThúTu()
 Dim MyAdd As String:           Dim Rws As Long, Dg As Long
 Dim Rng As Range, sRng As Range
 Rws = [e6].CurrentRegion.Rows.Count
 Set Rng = Columns("e:E")
 Set sRng = Rng.Find("TO ", , xlFormulas, xlPart)
 If Not sRng Is Nothing Then
    MyAdd = sRng.Address
    Do
        Dg = sRng.End(xlDown).Row - sRng.Row
        If Dg > Rws Then Dg = [d65500].End(xlUp).Row - sRng.Row + 1
        sRng.Offset(, 1).Resize(Dg).Value = sRng.Value
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
End Sub

Tên tổ do bạn tùy thích gán ư?

 

[gamegamegamegame]

Theo tôi thì không thể dùng số thứ tự để gán tổ nếu không có 1 sheet làm dữ liệu, tôi khuyên không nên nghĩ theo hướng này mà nên dùng Validation để chọn tổ thì thực tế hơn.

cảm ơn đã góp ý

 

[gamegamegamegame]

Bạn cho macro này chạy trên trang tính có dữ liệu cần điền tên tổ của bạn:

Option Explicit
Sub DiènSóThúTu()
 Dim MyAdd As String:           Dim Rws As Long, Dg As Long
 Dim Rng As Range, sRng As Range
 Rws = [e6].CurrentRegion.Rows.Count
 Set Rng = Columns("e:E")
 Set sRng = Rng.Find("TO ", , xlFormulas, xlPart)
 If Not sRng Is Nothing Then
    MyAdd = sRng.Address
    Do
        Dg = sRng.End(xlDown).Row - sRng.Row
        If Dg > Rws Then Dg = [d65500].End(xlUp).Row - sRng.Row + 1
        sRng.Offset(, 1).Resize(Dg).Value = sRng.Value
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
End Sub

Tên tổ do bạn tùy thích gán ư?

da em cảm ơn nhiều ạ