Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Dim dongcuoi As Integer Dim dongcuoi As Integer Dim i As Integer Dim

TruongQuangHuy

Dim dongcuoi As Integer
Dim i As Integer
Dim item As String

Range("E1").Select
    dongcuoi = Range("E" & Rows.Count).End(xlUp).Row
For i = 1 To dongcuoi
   Set item = ActiveWorkbook.ActiveSheet.Range("E & i").Value
          If item Like "*;*" Then

Các bạn cho mình hỏi: Mình muốn tìm các ô chứa kí tự ";" nhưng đoạn code trên cứ báo lỗi tại dòng (Set item = ActiveWorkbook.ActiveSheet.Range("E & i").Value) các bạn cho mình hỏi mình bị sai ở chỗ nào vậy

KieuKieu

Bỏ Set

TruongQuangHuy

Bỏ set vẫn bị bạn ah

YenHa

Mình thấy thay Range("E & i") của bạn thành cells(i, 5) và bỏ set.

KieuKieu

Range("E" & i)

TruongQuangHuy

Đc rùi bạn ạ cám ơn cậu nhiều

***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- tại sao khi in có dòng mã bên dưới cuối trang và xóa như thế nào -FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- Bác nào có phần mềm hoặc file kiểm phiếu bầu cử nhanh bằng Excel không ạ ? Mình cần hỗ trợ từ các bạn Công thức lấy năm hiện tại để ghép vào tiêu đề bảng tính tính tiền ăn mỗi bữa Trả về giá trị nếu thuộc một trong các giá tri đưa ra CÔNG THỨC LIỆT KÊ SỐ PHIẾU GIAO HÀNG TRONG THÁNG CỦA CỬA HANG các anh chị cho em hỏi Xem thêm