Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
Sub XouLieuBanGiao()Dim i As LongDim J As LongDim DongCuoi1 As LongDim DongCuoi2 As LongDongCuoi1
Sub XoaDuLieuBanGiao()
Dim i As Long
Dim J As Long
Dim DongCuoi1 As Long
Dim DongCuoi2 As Long
DongCuoi1 = ThisWorkbook.Worksheets("Data").Range("A" &
Rows.Count).End(xlUp).Row
DongCuoi2 = ThisWorkbook.Worksheets("Data").Range("A" &
Rows.Count).End(xlUp).Row
For i = 2 To DongCuoi1
For J = 2 To DongCuoi2
If
Worksheets("Data").Range("J" & i).Value =
Worksheets("Data").Range("J" & J).Value And
Worksheets("Data").Range("B" & i).Value <>
Worksheets("Data").Range("B" & J).Value Then
Worksheets("Data").Range("A" & J
& ":P" & J).EntireRow.Delete
End If
Next J
Next i
End Sub
Thầy ơi em viết đoạn code này thì báo lỗi type miss match ở dòng bôi vàng ạ
1 câu trả lời
220 lượt xem
vỗ tay
Chào bạn bạn có thể đẩy file lên được không?
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông