Vòng lặp trong VBA

[Sói1102]

Chào mọi người!!!
Mình có dữ liệu này mong mọi người viết code giúp ạ.
Mong muốn:Khi chạy code sẽ copy dữ liệu từng dòng ở cột A sang cột E cho đến khi hết 1 RACK ở cột B thì sẽ nhảy sang cột tiếp theo.

 

[bebo021999]

Không có file sao làm bạn?
Không lẽ nhập tay?

 

[befaint]

Không có file sao làm bạn?
Không lẽ nhập tay?

Dạ em quên.
Phai đây ạ.

 

[bebo021999]

Dạ em quên.
Phai đây ạ.

Hehe.
Code luôn đi bạn.

 

[befaint]

Hehe.
Code luôn đi bạn.

Em đáp ứng đủ yêu cầu ạ. Anh làm giúp em đi.

 

[bebo021999]

Em đáp ứng đủ yêu cầu ạ. Anh làm giúp em đi.

Bạn có muốn có 1 cái nút, nhấn 1 phát là ra không?

 

[befaint]

Bạn có muốn có 1 cái nút, nhấn 1 phát là ra không?

Dạ có ạ. Và ra kết quả đúng ạ.

 

[bebo021999]

Dạ vậy nó nằm ngoài tầm với của em ạ.
Thấy bác Hoàng Tuấn lấp ló sao không nhảy vô?

 

[Hoàng Tuấn 868]

Dạ vậy nó nằm ngoài tầm với của em ạ.
Thấy bác Hoàng Tuấn lấp ló sao không nhảy vô?

Mình cầm tinh con thỏ nên thấy chủ bài tên là Sói thì chạy xa hơn tầm với của bác bebo021999 rồi.

 

[Sói1102]

Không có file sao làm bạn?
Không lẽ nhập tay?

File mình thêm rồi đấy,bạn xem hộ mình

 

[Maika8008]

Không có file sao làm bạn?
Không lẽ nhập tay?

bebo nay cũng kỹ tính thật. Có lẽ do trời nóng quá chăng!?

 

[Hoàng Tuấn 868]

bebo nay cũng kỹ tính thật. Có lẽ do trời nóng quá chăng!

Đôi khi thấy bảo mát trời là dời non lấp biển gì đó là làm hết anh nhỉ.

 

[VetMini]

Bạn có muốn có 1 cái nút, nhấn 1 phát là ra không?

Một chứ mấy. Hơn 1 nhấn là tính thủ công rồi, tui làm Advanced Filter hoặc Pivot Table hay hơn, cần gì mấy người code kiếc.

 

[ptm0412]

Một chứ mấy. Hơn 1 nhấn là tính thủ công rồi, tui làm Advanced Filter hoặc Pivot Table hay hơn, cần gì mấy người code kiếc.

Phai này mà Advanced filter hoặc Pivot table là tôi chịu thua

 

[VetMini]

Phai này mà Advanced filter hoặc Pivot table là tôi chịu thua

Xin lỗ, Pivot thì tôi nhầm.
Advanced Filter thì quý vị đánh giá thấp khả năng làm việc thủ công của tôi rồi.

Tuy nhiên, nhìn kỹ lại thì bài này có 365 làm có lẽ ngon (tuy rằng sắp cột như thớt thì VBA làm cho khỏe, khỏi mất công nghĩ công thức khủng). Rấy tiếc máy hiện tại đang dùng 2016. Để khuya, xem TV xong, vào phòng việc dùng cái máy kia có 365.

Chú: sắp dữ liệu kiểu như thớt thì tách ra làm gì không biết. Đầu ra đọc còn rối hơn đầu vào.

 

[ptm0412]

Advanced Filter thì quý vị đánh giá thấp khả năng làm việc thủ công của tôi rồi.

Advanced filter và Excel 365, với khả năng của tôi thì 4 cột phải 4 lần.
Công thức 365:
=FILTER($A$1:$A$22,$B$1:$B$22=INDEX(UNIQUE(Sheet1!$B$1:$B$22),COLUMN(A1)))
Copy sang ngang


Mọi cố gắng để làm 1 lần 4 cột đều đã thất bại. Có lẽ phải cố gắng thêm.

 

[SA_DQ]

Mấy trứ danh đều chê hết rồi; Chủ bài đăng xem tạm vậy nha, trong khi chờ con khác xịn hơn:

Sub TachTheoTriKeBen()
 Dim Arr(), Temp As String
 Dim Rws As Long, J As Long, Dg As Long, Cot As Integer, Col As Integer
 
 Rws = [B2].CurrentRegion.Rows.Count
 Arr() = [A1].Resize(Rws, 2).Value
 ReDim aKQ(1 To Rws, 1 To Rws) As String
 [F1].Resize(Rws, Rws).Value = aKQ()
 For J = 1 To UBound(Arr())
    If Arr(J, 2) <> Temp Then
        Dg = Dg + 1:                Col = Col + 1
        aKQ(Dg, Col) = Arr(J, 1):   Temp = Arr(J, 2)
        aKQ(Dg, Col + 1) = Arr(J, 2)
    Else
        Dg = Dg + 1:                aKQ(Dg, Col) = Arr(J, 1)
    End If
 Next J
 [F1].Resize(Dg, Col + 1).Value = aKQ()
End Sub

 

[ptm0412]

Mấy trứ danh đều chê hết rồi; Chủ bài đăng xem tạm vậy nha, trong khi chờ con khác xịn hơn:

1. Kết quả chạy:


Té ra phai "Phai đây.xlsx" ở bài 3 không giống phai yêu cầu bài 1

2. Nếu chẳng may dữ liệu chưa sort theo cột B?

 

[SA_DQ]

Nếu chẳng may dữ liệu chưa sort theo cột B?

Chuyện ý của chủ bài đăng đã & sẽ phải làm.

 

[VetMini]

Advanced filter và Excel 365, với khả năng của tôi thì 4 cột phải 4 lần.

10 lần đối với tôi cũng còn hơn VBA. Viết code vừa lâu, vừa mất công phải vác cái file có macro.
Đã nói quý vị đánh giá quá thấp khả năng thủ công của tôi mờ.