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

ĐỊNH MỨC XĂNG XE /DẦU XE CHO DOANH NGHIỆP VẬN TẢI Bán lại máy tính hp 12C Bạn mình có 2 cái máy tính tài chính không dùng tới nữa, muốn bán lại. Bạn nào Công ty em cần thanh lý ván ép phủ phim và hộp đã qua sử dụng 1 lần (còn mới Group mình có ai dạy sử dụng phần mềm kế toán das 10.0 k ạ :S e cần người kèm Mình có cái máy bị lỗi dấu chấm "." ở bên phím Numlock, khi chỉnh hệ thống CÁCH SỬ DỤNG HÀM VLOOKUP, IF, RIGHT, ... Filter tìm không ra thông tin Học Nhanh cách tạo hàng loạt phiếu lương và in phiếu lương tự động Siêu Tốc độ -FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- Xem thêm