Tìm kiếm dữ liệu trên file xuất ra từ phần mềm (có hoà ô)

[LightStar252]

Giúp mình tìm số liệu từ sheet 1 điền vào phần tô màu vàng tại sheet 2 (sheet 1 là file xuất từ phần mềm ra). Thanks mn!

 

[LightStar252]

B4 =OFFSET(Sheet1!$L$4,MATCH($A4,Sheet1!$B$4:$B$65,0),,,)

-> Fill xuống

C4 = =OFFSET(Sheet1!S$4,MATCH($A4,Sheet1!$B$4:$B$65,0),,,)

-> Kéo qua cột H -> Fill xuống

Không được bạn ơi. Vì dòng 4 có hoà ô làm một rồi

 

[LightStar252]

Bạn copy công thức -> F2 vào ô B4: Ctr+V -> enter xem

Không đx bạn à, có cách nào loại bỏ hoà ô k

 

[Loc Uyen]

Không đx bạn à

Em thấy vẫn ra bình thường mà ạ

 

[LightStar252]

Em thấy vẫn ra bình thường mà ạ

Sao mình làm k đx nhỉ

 

[♫ђöล♥ßล†♥†µ♫]

Trong công thức Thay dấu "," thành dấu ";"
Nó mà "không ra" thì bạn thử cái này xem

Sub Laysolieu()
    Dim sArr, tArr(), dArr, I As Long, J As Long, K As Long, Dongcuoi As Long
    Dim Dic As Object, Tenmay As String, R As Long
Set Dic = CreateObject("Scripting.Dictionary")
Dongcuoi = Sheet1.Range("X" & Rows.Count).End(xlUp).Row + 1
If Dongcuoi > 4 Then
    With Sheet2
        tArr = .Range("A4", .Range("A4").End(xlDown)).Value
        .Range("B4:H1000").ClearContents
        For I = 1 To UBound(tArr)
            Tenmay = tArr(I, 1): Dic.Item(Tenmay) = I
        Next I
    End With
    With Sheet1
        sArr = .Range("B5:X" & Dongcuoi).Value2
        ReDim dArr(1 To UBound(sArr), 1 To 8)
        For I = LBound(sArr) To UBound(sArr)
            If sArr(I, 1) <> Empty Then Tenmay = sArr(I, 1)
            If sArr(I, 2) <> Empty Then
                R = Dic.Item(Tenmay)
                If R Then
                    K = K + 1
                    dArr(K, 1) = sArr(I, 11)
                    For J = 18 To 23
                        dArr(K, J - 16) = sArr(I, J)
                    Next J
                End If
            End If
        Next I
    End With
    With Sheet2
        If K Then .Range("B4").Resize(K, 8) = dArr
    End With
    Set Dic = Nothing
End If
End Sub

 

[LightStar252]

Mình thay dấu "," thành ";" như bạn nói thì đc rồi. Cảm ơn tất cả mn nhé!

 

[LightStar252]

Cho mình hỏi thêm 1 tí đc k. Đó là vẫn cũng bài toán đó nhưng giờ thêm điều kiện lấy theo từng ngày cụ thể như trong file dưới đây thì làm thế nào a!

 

[ndu96081631]

Đó là vẫn cũng bài toán đó

Thì đó là vẫn cũng áp dụng giống cái đó và vẫn cũng thêm vài cái (match) nữa

 

[LightStar252]

Thì đó là vẫn cũng áp dụng giống cái đó và vẫn cũng thêm vài cái (match) nữa

Cho e xin công thức luôn đx k ạ!

 

[Ba Tê]

Cho mình hỏi thêm 1 tí đc k. Đó là vẫn cũng bài toán đó nhưng giờ thêm điều kiện lấy theo từng ngày cụ thể như trong file dưới đây thì làm thế nào a!

Cái này dùng công thức "oằn oại" luôn.
Thử với VBA nhé, Các ngày trên dòng 1 sheet GPE là bạn tự tạo (Mỗi ngày gồm 7 cột)

 

[LightStar252]

Cái này dùng công thức "oằn oại" luôn.
Thử với VBA nhé, Các ngày trên dòng 1 sheet GPE là bạn tự tạo (Mỗi ngày gồm 7 cột)

Sao mình bấm nút GPE nó k chạy đựơc macro nhỉ. Mình gà VBA lắm. Hix

 

[LightStar252]

Có bật macro rồi vẫn k đc

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

Cái này cũng k đc

 

[LightStar252]

Enable ->đóng Excel -> mở lại Excel mới được chứ...

Ok đc rồi bạn. Cảm ơn nhiều nhé hahaa