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

-FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- ***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- ĐỊNH MỨC XĂNG XE /DẦU XE CHO DOANH NGHIỆP VẬN TẢI FILE QUẢN LÝ QUỸ TIỀN MẶT BẰNG EXCEL Xin chào mọi người, Hôm này Đỉnh muốn chia sẻ cho các bạn 2 cuốn sách cực kỳ Cả nhà có mẹo gì để tẩy mực máy in trên giấy A4 không ạ? Chỉ tẩy con số ở Hỗ trợ hàm tìm kiếm, xuất dữ liệu Lỗi #N/A trong hàm IMPORTXML Mong các cao nhân giúp đỡ Hi mọi người, Hi mọi người, Em chuyển file exel sang dạng ảnh bị lỗi font chữ ( Xem thêm