Copy dữ liệu từ nhiều hàng sang 1 cột

[yenvt89]

Em nhờ cả nhà giúp em làm cách nào để copy được như file với ạ. Em cảm ơn!

 

[cantl]

Không khuyến khích vì thay đổi bảng là sửa tè le. Chữa cháy trước nhé.

=INDEX($C$3:$G$4;INT(COUNTA($L$1:L2)/5)+1;TEXT(MOD(ROW(A1);5);"[=0]\5"))

 

[dangductuong2125]

Em nhờ cả nhà giúp em làm cách nào để copy được như file với ạ. Em cảm ơn!

Thêm công thức tham khảo tại J3 :

=INDEX($C$3:$G$4,QUOTIENT(COUNTA($J$2:J2),5)+1,MOD(COUNTA($J$2:J2),5)+1)

 

[yenvt89]

Không khuyến khích vì thay đổi bảng là sửa tè le. Chữa cháy trước nhé.

=INDEX($C$3:$G$4;INT(COUNTA($L$1:L2)/5)+1;TEXT(MOD(ROW(A1);5);"[=0]\5"))

Em cảm ơn nhiều ạ

 

[yenvt89]

Thêm công thức tham khảo tại J3 :

=INDEX($C$3:$G$4,QUOTIENT(COUNTA($J$2:J2),5)+1,MOD(COUNTA($J$2:J2),5)+1)

Nhờ anh giúp e trường hợp như em bôi màu cam thì làm sao để có thể bỏ qua dữ liệu trống đc ạ. Em cảm ơn.

 

[HUONGHCKT]

View attachment 289041
Nhờ anh giúp e trường hợp như em bôi màu cam thì làm sao để có thể bỏ qua dữ liệu trống đc ạ. Em cảm ơn.

Có thích dùng hàm tự tạo không?
Tham khảo

Option Explicit

Function Chuyen(ByVal Rng As Variant) As Variant
Dim i&, j&, t&, R&, C&
Dim Arr(), Res()
Arr = Rng.Value
R = UBound(Arr): C = UBound(Arr, 2)
ReDim Res(1 To R * C, 1 To 1)
For i = 1 To R
    For j = 1 To C
        If  Arr(i, j) <> Empty Then
            t = t + 1
            Res(t, 1) = Arr(i, j)
        End If
    Next j
Next i
Chuyen = Res
End Function

Chép đoạn code trên và dán vào 1 module
Sử dụng : Vi dụ: Vùng C3:G5 là vùng muốn chuyển sang thành cột
Ô K3 là ô mong muốn kết quả trả về
Tại K3 Gõ =Chuyen(C3:G5) enter
xem file

 

[dangductuong2125]

Thêm cột phụ tại K3 thôi :

=IFERROR(INDEX($J$3:$J$12,MATCH(1,INDEX((COUNTIF($K$2:K2,$J$3:$J$12)=0)*($J$3:$J$12<>0),),0)),"")

Chờ xem có công thức nào không

 

[Hoàng Tuấn 868]

Có thích dùng hàm tự tạo không?
Tham khảo

Option Explicit

Function Chuyen(ByVal Rng As Variant) As Variant
Dim i&, j&, t&, R&, C&
Dim Arr(), Res()
Arr = Rng.Value
R = UBound(Arr): C = UBound(Arr, 2)
ReDim Res(1 To R * C, 1 To 1)
For i = 1 To R
    For j = 1 To C
        If  Arr(i, j) <> Empty Then
            t = t + 1
            Res(t, 1) = Arr(i, j)
        End If
    Next j
Next i
Chuyen = Res
End Function

Chép đoạn code trên và dán vào 1 module
Sử dụng : Vi dụ: Vùng C3:G5 là vùng muốn chuyển sang thành cột
Ô K3 là ô mong muốn kết quả trả về
Tại K3 Gõ =Chuyen(C3:G5) enter
xem file

Em cũng gõ đúng như thế này mà sao không được anh nhỉ?

=Chuyen(C3:G5) enter

 

[Maika8008]

Em cũng gõ đúng như thế này mà sao không được anh nhỉ

Phải thế này =Chuyen(C3:G5) not type enter, press Enter

 

[Lê Duy Thương]

View attachment 289041
Nhờ anh giúp e trường hợp như em bôi màu cam thì làm sao để có thể bỏ qua dữ liệu trống đc ạ. Em cảm ơn.

nếu office 365 bạn đùng cái này
=TOCOL($C$3:$G$4,3)

 

[LmoovoenX]

View attachment 289041
Nhờ anh giúp e trường hợp như em bôi màu cam thì làm sao để có thể bỏ qua dữ liệu trống đc ạ. Em cảm ơn.

Dùng thử nhé bạn:

H3=INDIRECT(SUBSTITUTE(TEXT(AGGREGATE(15;6;(ROW($C$3:$G$4)+COLUMN($C$3:$G$4)/1000)/($C$3:$G$4<>"");COUNTA($H$2:H2)+1);"r0,000");",";"c");0)

Chú ý định dạng . hoặc , của số thập phân.

 

[HUONGHCKT]

Em cũng gõ đúng như thế này mà sao không được anh nhỉ?

Xin lỗi nhé, tôi viết không rõ. Nó là =Chuyen(Vùngđuocchon) và enter

 

[yenvt89]

Thêm cột phụ tại K3 thôi :

=IFERROR(INDEX($J$3:$J$12,MATCH(1,INDEX((COUNTIF($K$2:K2,$J$3:$J$12)=0)*($J$3:$J$12<>0),),0)),"")

Chờ

xem có công thức nào không

Dạ, anh ơi

Thêm cột phụ tại K3 thôi :

=IFERROR(INDEX($J$3:$J$12,MATCH(1,INDEX((COUNTIF($K$2:K2,$J$3:$J$12)=0)*($J$3:$J$12<>0),),0)),"")

Chờ xem có công thức nào không

trường hợp số trùng nhau thì lại chỉ ra đc 1 lần dữ liệu anh ạ. Anh sửa công thức giúp em với. Em cảm ơn ạ.

 

[LmoovoenX]

Dạ, anh ơi


trường hợp số trùng nhau thì lại chỉ ra đc 1 lần dữ liệu anh ạ. Anh sửa công thức giúp em với. Em cảm ơn ạ.
View attachment 289069

Thử công thức ở #11 chưa bạn?

 

[Lê Duy Thương]

Dạ, anh ơi


trường hợp số trùng nhau thì lại chỉ ra đc 1 lần dữ liệu anh ạ. Anh sửa công thức giúp em với. Em cảm ơn ạ.
View attachment 289069

Xã hội phát triển mà mình không cập nhật kiến thức thì chỉ có thụt lùi.
=UNIQUE(TOCOL(C3:G12,3))
mọi yêu cầu của bạn xẽ được ct này xủ lý ngay . chú ý mỗi ngày bạn phải tốn 1000đ để dùng office 365 miễn phí.

 

[htin1997]

tốn 1000đ để dùng office 365 miễn phí.

tốn 1000đ để dùng miễn phí.

 

[LmoovoenX]

tốn 1000đ để dùng miễn phí.

Mình đang xài free đây. Trước xin 1 bác trên diễn đàn đăng ký cái mail kiểu tài khoản con.

 

[Maika8008]

chú ý mỗi ngày bạn phải tốn 1000đ để dùng office 365 miễn phí.

Ý bạn nói mỗi tháng phải trả phí 30.000đ?

 

[Lê Duy Thương]

Ý bạn nói mỗi tháng phải trả phí 30.000đ?

đúng rồi ạ. dùng office 365 thì không cần dùng những hàm phức tạp nhiều. Tôi mua 350k/năm

 

[yenvt89]

Xã hội phát triển mà mình không cập nhật kiến thức thì chỉ có thụt lùi.
=UNIQUE(TOCOL(C3:G12,3))
mọi yêu cầu của bạn xẽ được ct này xủ lý ngay . chú ý mỗi ngày bạn phải tốn 1000đ để dùng office 365 miễn phí.

Dạ, e cảm ơn bác ạ.

Bài đã được tự động gộp: 19/4/23

Thử công thức ở #11 chưa bạn?

Dạ, e làm đc rồi ạ. Cảm ơn công thức của anh nhiều nhé.