Cách lấy dữ liệu ô này sang ô khác không lấy ô trống với điều kiện theo tháng

Chia sẻ bởi:hands

★★★★★

‹ Tìm hàng có 5 ô trống liên... Tổng hợp những “tuyệt chiêu” trong Excel ›

Quảng cáo

Bác giúp e với.

Các bác giúp em với. E muốn lấy số điện thoại từ bảng 1 sang bảng 2 mà ko lấy tên không có số điện thoại. Với điều kiện đánh số tháng trên ô I2 nó tự nhẩy tháng đấy có số đt nào. Bác giúp e với.

Bạn dùng code sau NHÉ

Sub abc()
On Error Resume Next
If IsNumeric([i2]) = True And [i2] > 0 And [i2] < 13 Then
Dim sArr(), dArr(), I As Long, K As Long, R As Long, Col As Long
sArr = Range("B4:D10").Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 6)
For I = 1 To R
    If sArr(I, 1) = [i2] And sArr(I, 3) <> "" Then
        K = K + 1
        For Col = 1 To 3
            dArr(K, Col) = sArr(I, Col)
        Next Col
    End If
Next I
Range("G4:I10").ClearContents
Range("G4").Resize(K, 3) = dArr
Else
MsgBox ("Vui Long Nhap So thang tu 1 den 12")
End If
End Sub

G4:

=IFERROR((INDEX($B$4:$B$10,AGGREGATE(15,6,ROW($1:$1000)/($B$4:$B$10=$I$2)/($D$4:$D$10<>""),ROW($A1)))),"")

H4:

=IFERROR((INDEX($C$4:$C$10,AGGREGATE(15,6,ROW($1:$1000)/($B$4:$B$10=$I$2)/($D$4:$D$10<>""),ROW($A1)))),"")

I4:

=IFERROR((INDEX($D$4:$D$10,AGGREGATE(15,6,ROW($1:$1000)/($B$4:$B$10=$I$2)/($D$4:$D$10<>""),ROW($A1)))),"")

www.giaiphapexcel.com/diendan/threads/c%C3%A1ch-l%E1%BA%A5y-d%E1%BB%AF-li%E1%BB%87u-%C3%B4-n%C3%A0y-sang-%C3%B4-kh%C3%A1c-kh%C3%B4ng-l%E1%BA%A5y-%C3%B4-tr%E1%BB%91ng-v%E1%BB%9Bi-%C4%91i%E1%BB%81u-ki%E1%BB%87n-theo-th%C3%A1ng.166894/