Lấy phần tử theo điều kiện từ một cột các phần tử

[Phương Phương mito]

Kính gửi anh chị,
em đang làm vòng lặp For với đề bài đơn giản mà đang làm dở theo code ở File, chưa biết cách làm tiếp, anh chị giúp em với ạ:
- Từ D9 là vùng dữ liệu cần tìm kiếm và trích phần tử từ đó ra
- Sẽ có duy nhất hai phần từ mở đầu bằng MB và MN cần lấy ra như kết quả mong muốn E3:F4 (E3,4 là điều kiện tìm kiếm).

 

[Nhattanktnn]

Kính gửi anh chị,
em đang làm vòng lặp For với đề bài đơn giản mà đang làm dở theo code ở File, chưa biết cách làm tiếp, anh chị giúp em với ạ:
- Từ D9 là vùng dữ liệu cần tìm kiếm và trích phần tử từ đó ra
- Sẽ có duy nhất hai phần từ mở đầu bằng MB và MN cần lấy ra như kết quả mong muốn E3:F4 (E3,4 là điều kiện tìm kiếm).

Lỡ nó có nhiều hơn thì làm sao bạn

 

[befaint]

đang làm

Học, đọc ở đâu thì phải lựa chọn tài liệu chính chủ, chính xác. Như này là hỏng bét rồi.

Dim chuoi1, chuoi2 As String

Khai báo vậy thì chỉ có biến chuoi2 được khai báo kiểu String. Còn biến chuoi1 là Variant đó.

Xem code trong file thì hổng túi bụi rồi. Học cần phải đi tuần tự từ cái căn bản đã.
1/ Các kiểu dữ liệu, cách khai báo biến
2/ Các đối tượng Workbook, sheets, worksheets, Range, Cells, và các phương thức + thuộc tính của chúng.
3/ Các cấu trúc IF Then, For Next...

Nắm xong bài 4-5-6-7 rồi mới tính tiếp.

Index - Các bài viết về VBA

Danh sách các bài viết: Bài 0. Kiến thức chung về VBA Bài 1. Tạo macro Bài 2. Ghi macro Bài 3. Hộp thoại thông báo Bài 4. Biến trong VBA Bài 5. Workbook, worksheet Bài 6. Range, Cells Bài 7. Hàm trong VBA Bài 8. Events, Application Object Bài 9. Function and Sub Bài 10. Array Bài 11...

www.giaiphapexcel.com

 

[Phương Phương mito]

Lỡ nó có nhiều hơn thì làm sao bạn

Chỉ có vậy thôi ạ, 2 cái duy nhất trong cột chưa MB và MN thôi ạ.

 

[Trần Tuấn Anh 3108]

Hi,
Nếu chỉ có vậy thì đơn giản như sau nhé:

Sub Laydulieu()
Dim cnt As Integer
With Sheets("ketqua")
For cnt = 9 To 16 Step 1
If Left(.Cells(cnt, 4).Value, 2) = .Range("E3").Value Then
.Range("F3").Value = .Cells(cnt, 4).Value
End If
If Left(.Cells(cnt, 4).Value, 2) = .Range("E4").Value Then
.Range("F4").Value = .Cells(cnt, 4).Value
End If
Next
End With
End Sub