Xin giúp tách dữ liệu theo điều kiện (1 người xem)

[vohoangtung]

Cần chuyển đổi cấu trúc dữ liệu nhập vào cơ sở dữ liệu xin cao nhân giúp với ạ

 

[CHAOQUAY]

Cần chuyển đổi cấu trúc dữ liệu nhập vào cơ sở dữ liệu xin cao nhân giúp với ạ

Ký hiệu "LUC","LUK" nghĩa là gì vậy bạn

 

[CHAOQUAY]

Tại M5:N10 nhập bảng tra

ONT	Đất ở tại nông thôn
LNK	Đất trồng cây lâu năm
BHK	Đất bằng trồng cây hàng năm khác
TSN	Đất nuôi trồng thủy sản
LUC
LUK

Chạy đoạn code dưới đây

Sub TachBieuMau()
Dim SArr
Dim Arr0, Arr1, Arr2
Dim Res
Dim i, j, k, x, z, t, rws
SArr = Sheet1.Range("A5", Sheet1.Range("C5").End(xlDown))
rws = UBound(SArr)
ReDim Res(1 To rws, 1 To 8)
With CreateObject("Scripting.Dictionary")
    For i = 5 To 10
        .Item(Sheet1.Range("M" & i).Value) = Array(i - 4, Sheet1.Range("N" & i))
    Next i
    For i = 1 To rws
        Arr0 = Split(";" & SArr(i, 1), ";")
        Arr1 = Split(";" & SArr(i, 2), ";")
        Arr2 = Split(";" & SArr(i, 3), ";")
        For j = 1 To UBound(Arr0)
            k = .Item(Arr0(j))(0)
            t = .Item(Arr0(j))(1)
            Res(i, k) = Arr1(j)
            Res(i, 7) = Res(i, 7) & "; " & t & ": " & Arr1(j) & "m2"
            Res(i, 8) = Res(i, 8) & "; " & t & ": " & Arr2(j)
        Next j
        Res(i, 7) = Trim(Mid(Res(i, 7), 2))
        Res(i, 8) = Trim(Mid(Res(i, 8), 2))
    Next i
End With
With Sheet1
    .Range("D5", .Range("K" & rws + 4)).ClearContents
    .Range("D5").Resize(rws, 8) = Res
    .Range("J5", .Range("K5").End(xlDown)).WrapText = 1
    .UsedRange.Rows.AutoFit
End With
End Sub

 

[vohoangtung]

Thanks.
Xin bạn giúp mình viết công thức hàm tách với, chứ VBA không rành lắm

 

[CHAOQUAY]

Cảm ơn.
Xin bạn giúp mình viết công thức hàm tách với, chứ VBA không rành lắm

C5=IFERROR(TRIM(MID(SUBSTITUTE($B5,";",REPT(" ",50)),FIND(C$4,SUBSTITUTE($A5,";",REPT(" ",50)))-IF(LEFT($A5,3)=C$4,0,10),50))*1,"")

F4 có lẽ là "TSN" mới đúng

 

[Ba Tê]

Cảm ơn.
Xin bạn giúp mình viết công thức hàm tách với, chứ VBA không rành lắm

Nâng cấp Excel đi, không xài .xls nữa.

 

[HieuCD]

Cảm ơn.
Xin bạn giúp mình viết công thức hàm tách với, chứ VBA không rành lắm

C5=IFERROR(TRIM(MID(SUBSTITUTE($B5,";",REPT(" ",50)),FIND(C$4,SUBSTITUTE($A5,";",REPT(" ",50)))-IF(C$4="ONT",0,10),50))*1,"")

F4 có lẽ là "TSN" mới đúng

Nâng cấp Excel đi, không xài .xls nữa.

Mã luôn 3 ký tự còn diện tích số ký tự có thể khác 3

C5 =IFERROR(TRIM(MID(SUBSTITUTE($B5,";",REPT(" ",50)),INT(FIND(C$4,$A5,1)/4)*50+1,50)),"")

Copy ngang và xuống

 

[CHAOQUAY]

Mã luôn 3 ký tự còn diện tích số ký tự có thể khác 3

C5 =IFERROR(TRIM(MID(SUBSTITUTE($B5,";",REPT(" ",50)),INT(FIND(C$4,$A5,1)/4)*50+1,50)),"")

Copy ngang và xuống

Cái phép trừ là phòng trường hợp này đó bác.

-IF(C$4="ONT",0,10)

 

[HieuCD]

Cái phép trừ là phòng trường hợp này đó bác.

-IF(C$4="ONT",0,10)

Nếu cột A không có "ONT" , ví dụ A6=LNK;BHK;TSN, kết quả sẽ không đúng

 

[CHAOQUAY]

Nếu cột A không có "ONT" , ví dụ A6=LNK;BHK;TSN, kết quả sẽ không đúng

Chỗ này không hiểu lắm, bác có thể nói rõ hơn tí nữa.

 

[HieuCD]

Chỗ này không hiểu lắm, bác có thể nói rõ hơn tí nữa.

Bạn xem kết quả trong file chỗ màu cam

 

[Phan Thế Hiệp]

Cảm ơn.
Xin bạn giúp mình viết công thức hàm tách với, chứ VBA không rành lắm

Thử thêm cách:

C5=IFERROR(MID(SUBSTITUTE($B5,";",REPT(" ",100)),INT(FIND(C$4,$A5)/4)*100+1,100)*1,"")

Enter, copy qua phải, rồi fill xuống.

Thân
p/s: chu choa chậm chân rồi
Khà khà khà

 

[CHAOQUAY]

Bạn xem kết quả trong file chỗ màu cam

Cái điều kiện trừ lùi bị sai.
Thanks bác.
---
@ thớt:
Đã sửa lại công thức của bài 5

 

[be_09]

Cảm ơn.
Xin bạn giúp mình viết công thức hàm tách với, chứ VBA không rành lắm

Theo tôi thì nên sử dụng VBA, dựa vào dấu ; tách mỗi nội dung 1 dòng rồi sử dụng Pivottable là nhanh lẹ nhất.

 

[vohoangtung]

Thanks mọi người nha. MÌnh không rành VBA lắm chỉ đọc được một số công thức hàm cơ bản.
Nhờ mọi người chỉ mình đã làm được, không phải ngồi nhập tay, rồi toét mắt đối soát nữa.
Thay mặt các em trong cơ quan đã không phải ngồi nhập xin cám ơn mọi người nhiều nha