D5=IFERROR(VLOOKUP(B5;$J$5:$P$10;MATCH(C5;$J$4:$P$4;0);0);"")Cám ơn anh, a giúp em nốt câu số 2 đc ko ạ ?
Câu 2 trước mới có câu 1.
Anh ơi, em gửi anh file nhé. Anh xem hộ em với, có 2 sheet (sheet Roster và sheet IT2003 ) thì sheet IT2003 là sheet cần kết quả. Em cám ơn
Không đâu anh ơi, anh Ba Tê hiểu đúng ý của em rồi. Thanks a
Đưa file mà không giải thích, làm thí thí không đúng thì thôi vậy.
Em cám ơn 2 anh, em không mang máy về nên cũng chưa xem được ntn ? Nhưng dù sao cũng rất cám ơn 2 anh. Sang thứ 2 em mở ra coi
Em có ghi giải thích trong file mà chắc quên chưa save nên nó mất tiêu rùi , kekeee
Anh ơi, em có xem thì mắc phải 1 số vấn đề sau, anh xem hộ em với :
Bạn thay Sub cũ thành cái này:
Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, C As Long, R As Long
With Sheets("Roster")
C = .Range("F2") - .Range("C2") + 6
sArr = .Range("B5", .Range("B50000").End(xlUp)).Resize(, C).Value
R = UBound(sArr, 1)
ReDim dArr(1 To R * C, 1 To 4)
End With
For I = 5 To R Step 5
If sArr(I, 1) <> Empty Then
For J = 6 To C
K = K + 1
dArr(K, 1) = K
dArr(K, 1) = sArr(I, 1)
dArr(K, 2) = sArr(1, J)
dArr(K, 3) = sArr(1, J)
dArr(K, 4) = sArr(I, J)
Next J
End If
Next I
With Sheets("IT2003")
Range("A2").Resize(100000, 4).ClearContents
If K Then .Range("A2").Resize(K, 4) = dArr
End With
End SubEm rất rất cám ơn ! File dùng quá tốt rồi ạ
Anh ơi, em hỏi thêm cái này nữa ạ. Ở sheet kết quả, em muốn chèn thêm cột vào giữa thì làm như thế nào ạ.
Sửa code lại một tí.
