THEO EGN
Thành viên mới
- Tham gia
- 1/8/22
- Bài viết
- 7
- Được thích
- 2
Góp ý cho bạn mình:View attachment 279478
Xin chào mọi người, Nhờ các cao nhân chỉ giúp
Mình muốn lọc dữ liệu cột D và theo chữ cái đầu tiên là B trả KQ vào cột I, và đi kèm với nó trả KQ vào cột H lấy từ cột A!
Mình xin cám ơn !!
Xin cám ơn a, vì đã góp ý, e gửi file nhờ a giúpGóp ý cho bạn mình:
1. Không dùng đại từ nhân xưng theo kiểu "cao nhân, tiểu nhân..."
2. Thay vì "mình muốn thì-> nhờ anh/chị..."
3. Đưa file đính kèm lên đây.
giờ em muốn lọc dữ liệu cột D và theo chữ cái đầu tiên là B trả KQ vào cột I, và đi kèm với nó trả KQ vào cột H lấy từ cột A!
Mình xin cám ơn !!
Bạn mình thử code dưới xem được chưa!Xin cám ơn a, vì đã góp ý, e gửi file nhờ a giúp
Sub ABC()
Dim Arr(), Res(), i As Long, k As Long
On Error Resume Next
With Sheet8
.Range("H2:I10000").ClearContents
lr = .Range("A" & Rows.Count).End(xlUp).Row
Arr = .Range("A4:D" & lr).Value
ReDim Res(1 To UBound(Arr), 1 To 2)
For i = 1 To UBound(Arr)
If Left(Arr(i, 4), 1) = UCase(.Cells(1, 9)) Then
k = k + 1
Res(k, 1) = Arr(i, 1)
Res(k, 2) = Arr(i, 4)
End If
Next i
.Range("H2").Resize(k, 2).Value = Res
End With
End Sub
Cám ơn anh, Em làm được rồi ạ !!!Bạn mình thử code dưới xem được chưa!
Chú ý thêm là không nên viết tắt nhé!
Mã:Sub ABC() Dim Arr(), Res(), i As Long, k As Long On Error Resume Next With Sheet8 .Range("H2:I10000").ClearContents lr = .Range("A" & Rows.Count).End(xlUp).Row Arr = .Range("A4:D" & lr).Value ReDim Res(1 To UBound(Arr), 1 To 2) For i = 1 To UBound(Arr) If Left(Arr(i, 4), 1) = UCase(.Cells(1, 9)) Then k = k + 1 Res(k, 1) = Arr(i, 1) Res(k, 2) = Arr(i, 4) End If Next i .Range("H2").Resize(k, 2).Value = Res End With End Sub
Thêm cái này vào để làm gì thế nhỉ bạn.On Error Resume Next
Thêm cái này vào để làm gì thế nhỉ bạn.
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2