Copy một hàng thành nhiều hàng (1 người xem)

[beginerVBA]

Nhờ các cao nhân giúp e code VBA này với, copy cột A có sẵn thành cột B mỗi hàng bên A thành 5 hàng bên B
Chân thành cảm ơn

 

[tamthat]

Bạn có cần thiết phải dùng VBA không vậy? Ở B1, bạn chỉ cần đặt công thức:

=OFFSET($A$1,ROUNDUP(ROW()/$D$1,0)-1,,,)

Vậy là bạn kéo xuống là có kết quả rồi.
Nếu dùng code, bạn thử:

Sub cuchuoi()    
    N1 = Range("D1").Value
    N2 = Application.Count(Range("A:A"))
    For i = 1 To N2
        For j = 1 To N1
            Cells(N1 * (i - 1) + j, 2) = Cells(i, 1)
        Next
    Next
End Sub

 

[giangleloi]

Nhờ các cao nhân giúp e code VBA này với, copy cột A có sẵn thành cột B mỗi hàng bên A thành 5 hàng bên B
Chân thành cảm ơn

Thử với code "tào lao" này xem sao:

Sub GPE()
Dim I As Long
 For I = 1 To 5
  Range("A1:A5").Copy Range("B" & 5 * I - 4)
 Next I
Range("B1:B100").Sort Range("B1:B100"), xlAscending, , , , , , xlGuess
End Sub

 

[beginerVBA]

Cảm ơn bạn giúp đỡ nhưng kết quả đã bị sắp xếp từ nhỏ đến lớn, nhưng yêu cầu của mình là không thay đổi vị trí số giangleloi

 

[beginerVBA]

Công thức thì ok, nhưng code lỗi bạn ơi tamthat
Thanks

 

[beginerVBA]

Bạn có cần thiết phải dùng VBA không vậy? Ở B1, bạn chỉ cần đặt công thức:

=OFFSET($A$1,ROUNDUP(ROW()/$D$1,0)-1,,,)

Vậy là bạn kéo xuống là có kết quả rồi.
Nếu dùng code, bạn thử:

Sub cuchuoi()    
    N1 = Range("D1").Value
    N2 = Application.Count(Range("A:A"))
    For i = 1 To N2
        For j = 1 To N1
            Cells(N1 * (i - 1) + j, 2) = Cells(i, 1)
        Next
    Next
End Sub

Bạn giải thích cho mình hàm offset đoạn sau có -1 và 3 dấu phẩy được không, mình không hiểu
Cảm ơn bạn trước

 

[tamthat]

Bạn giải thích cho mình hàm offset đoạn sau có -1 và 3 dấu phẩy được không, mình không hiểu
Cảm ơn bạn trước

Bạn xem lại file này nhé. Thứ nhất là code trong file này tôi chạy không thấy lỗi, không biết tại sao bạn lại bảo lỗi. Thứ 2 là công thức. Bản chất công thức ở cột C là tôi làm qua các bước từ cột E đến cột H. Bạn học thêm nhé.

 

[beginerVBA]

File bạn up lên trống rỗng đâu có công thức chi đâu bạn, hình như nhầm file rồi
Còn code lỗi mình có chụp hình đây

 

[tamthat]

File bạn up lên trống rỗng đâu có công thức chi đâu bạn, hình như nhầm file rồi
Còn code lỗi mình có chụp hình đâyView attachment 167986

Chắc mình nhầm file. Bạn tải lại nhé