Nhờ a/c giúp tạo dữ liệu cơ sở (1 người xem)

[SweetCandyt]

Xin chào anh, chị trong diễn đàn
Em đang có hai danh sách
- Danh sách 1: Tên 100 DN
- Danh sách 2: Tên 20 sản phẩm
Giờ em cần lập 1 danh sách theo cột dọc 100 DN đều có 20 tên sản phẩm
Em cảm ơn rất nhiều ạ

 

[n0thing1988]

Bôi đen C2: D13. Rồi Fill hand đến khi nào cột C hiện đến số 100 thì thôi.

 

[giaiphap]

Xin chào anh, chị trong diễn đàn
Em đang có hai danh sách
- Danh sách 1: Tên 100 DN
- Danh sách 2: Tên 20 sản phẩm
Giờ em cần lập 1 danh sách theo cột dọc 100 DN đều có 20 tên sản phẩm View attachment 201812
Em cảm ơn rất nhiều ạ

Xem thử cách dùng công thức.

 

[hocexcel_1991]

Xin chào anh, chị trong diễn đàn
Em đang có hai danh sách
- Danh sách 1: Tên 100 DN
- Danh sách 2: Tên 20 sản phẩm
Giờ em cần lập 1 danh sách theo cột dọc 100 DN đều có 20 tên sản phẩm View attachment 201812
Em cảm ơn rất nhiều ạ

Thêm công thức tham khảo

C2=IF(D2=$B$2,MAX($C$1:C1)+1,"")

 

[phulien1902]

Bôi đen C213. Rồi Fill hand đến khi nào cột C hiện đến số 100 thì thôi.

Cách này chỉ áp dụng với cột A là số thôi, trong khi tên doanh nghiệp là chuỗi ký tự?

Bài đã được tự động gộp: 14/8/18

Xin chào anh, chị trong diễn đàn
Em đang có hai danh sách
- Danh sách 1: Tên 100 DN
- Danh sách 2: Tên 20 sản phẩm
Giờ em cần lập 1 danh sách theo cột dọc 100 DN đều có 20 tên sản phẩm View attachment 201812
Em cảm ơn rất nhiều ạ

Tham khảo 1 cách không phải hàm:

Sub abc()
    Dim i%, LR%
    LR = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To LR
        Cells(i, 1).Copy Cells(i * 6 - 5, 4)
    Next
    Range("B1:B6").Copy Columns("D:D").SpecialCells(xlCellTypeConstants, 23).Offset(, 1)
End Sub

 

[n0thing1988]

Cách này chỉ áp dụng với cột A là số thôi, trong khi tên doanh nghiệp là chuỗi ký tự?

Bài đã được tự động gộp: 14/8/18

Tham khảo 1 cách không phải hàm:

Sub abc()
    Dim i%, LR%
    LR = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To LR
        Cells(i, 1).Copy Cells(i * 6 - 5, 4)
    Next
    Range("B1:B6").Copy Columns("D:D").SpecialCells(xlCellTypeConstants, 23).Offset(, 1)
End Sub

Ha ha. Em quên mất cái đó. Các anh chị đã có công thức rồi.

 

[SweetCandyt]

dạ em cảm ơn các anh/chị ạ. Em đã xử lý được file sau cả 1 ngày loay hoay, nhận được sự hỗ trợ của anh/chị giải quyết được vấn đề cảm thấy rất rất chi Happy
Mong muốn bản thân phải học hỏi nhiều hơn nữa. Em cảm ơn anh/chị rất nhiều ạ

 

[SweetCandyt]

Xem thử cách dùng công thức.

file của em làm theo công thức của bác, có 6000 DN và 20 tiểu mục, không được ạ em đưa danh sách DN vào là công thức không nhận nữa ạ
Em cảm ơn bác

Bài đã được tự động gộp: 14/8/18

Cách này chỉ áp dụng với cột A là số thôi, trong khi tên doanh nghiệp là chuỗi ký tự?

Bài đã được tự động gộp: 14/8/18

Tham khảo 1 cách không phải hàm:

Sub abc()
    Dim i%, LR%
    LR = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To LR
        Cells(i, 1).Copy Cells(i * 6 - 5, 4)
    Next
    Range("B1:B6").Copy Columns("D:D").SpecialCells(xlCellTypeConstants, 23).Offset(, 1)
End Sub

Cái này em mở file đính kèm không thấy gì ạ. Em cảm ơn bác

 

[giaiphap]

file của em làm theo công thức của bác, có 6000 DN và 20 tiểu mục, không được ạ em đưa danh sách DN vào là công thức không nhận nữa ạ
Em cảm ơn bác

Bài đã được tự động gộp: 14/8/18

Cái này em mở file đính kèm không thấy gì ạ. Em cảm ơn bác

Tùy vào dữ liệu của bạn mà công thức đúng hoặc sai, có bao giờ bạn bị bệnh mà nhờ bạn mình đi đến bác sĩ để bác sĩ khám cho bạn mình và ra to mua thuốc cho mình uống không? Thấy file dữ liệu của bạn mới biết nó sai chổ nào.

 

[phulien1902]

file của em làm theo công thức của bác, có 6000 DN và 20 tiểu mục, không được ạ em đưa danh sách DN vào là công thức không nhận nữa ạ
Em cảm ơn bác

Bài đã được tự động gộp: 14/8/18

Cái này em mở file đính kèm không thấy gì ạ. Em cảm ơn bác

Bạn Click vào hình mặt cười sẽ thấy kết quả.

 

[SweetCandyt]

Tùy vào dữ liệu của bạn mà công thức đúng hoặc sai, có bao giờ bạn bị bệnh mà nhờ bạn mình đi đến bác sĩ để bác sĩ khám cho bạn mình và ra to mua thuốc cho mình uống không? Thấy file dữ liệu của bạn mới biết nó sai chổ nào.

em không có ý vậy, anh/chị hỗ trợ giúp em nhé ạ

 

[phulien1902]

em không có ý vậy, anh/chị hỗ trợ giúp em nhé ạ

Thử:

Sub abc()
    Dim a(), b(), i&, k&
    a = Range("A2", Range("A6000").End(3)).Value
    k = -7
    ReDim b(1 To UBound(a) * 8, 1 To 1)
    Application.ScreenUpdating = 0
    For i = 1 To UBound(a)
        k = k + 8
        b(k, 1) = a(i, 1)
    Next
    Range("D2").Resize(k) = b
    Range("B2:B9").Copy Columns("D:D").SpecialCells(xlCellTypeConstants, 23).Offset(, 1)
    Application.ScreenUpdating = 1
End Sub

 

[giaiphap]

em không có ý vậy, anh/chị hỗ trợ giúp em nhé ạ

Ô D2 gõ công thức như sau:

=IF(COUNTA($A$2:$A$6000)*COUNTA($B$2:$B$6000)>=ROW(A1);OFFSET($B$2;MOD(ROW(A1)-1;COUNTA($B$2:$B$6000)););"")

 

[SweetCandyt]

Ô D2 gõ công thức như sau:

=IF(COUNTA($A$2:$A$6000)*COUNTA($B$2:$B$6000)>=ROW(A1);OFFSET($B$2;MOD(ROW(A1)-1;COUNTA($B$2:$B$6000)););"")

Trong file em đính kèm nhờ anh xem lại, công thức em đã để như vậy rồi mà vẫn không được ạ

 

[giaiphap]

Trong file em đính kèm nhờ anh xem lại, công thức em đã để như vậy rồi mà vẫn không được ạ

Đây là file ở #11 của bạn nè.