1. Tuyển Mod quản lý diễn đàn. Các thành viên xem chi tiết tại đây

Excel thôi mà khó quá,các bác cao thủ cho em xin một lời chỉ bảo

Chủ đề trong 'Hỏi đáp Tin học' bởi muasoluong, 22/05/2007.

  1. 0 người đang xem box này (Thành viên: 0, Khách: 0)
  1. muasoluong

    muasoluong Thành viên tích cực

    Tham gia ngày:
    02/03/2006
    Bài viết:
    250
    Đã được thích:
    1
    Excel thôi mà khó quá,các bác cao thủ cho em xin một lời chỉ bảo

    em gà mờ

    có cái bảng tính Excel chứa danh sách học sinh khoảng 1000->1500 người
    khổ nỗi vì nhiều người nhập nên sau khi xong danh sách này thì có một số HS bị nhập nhầm 2 lần hoặc nhiều lần

    làm sao để có thể tìm thấy 2 người giống hệt nhau để loại bớt đi một dòng
    cách thông thường của em là sắp xếp sau đó tìm bằng mắt nhưng cách này khổ quá mà không thể làm nổi nếu danh sách này lớn

    cảm ơn các bác!
  2. tv_fan

    tv_fan Thành viên mới

    Tham gia ngày:
    24/07/2005
    Bài viết:
    1.061
    Đã được thích:
    0
    Viết một macro có 2 vòng for , để tí nữa có thời gian TVF viết và test thử rồi gửi lên đây
  3. tv_fan

    tv_fan Thành viên mới

    Tham gia ngày:
    24/07/2005
    Bài viết:
    1.061
    Đã được thích:
    0
    Xong rồi
    Đầu tiên mở Excel. Trong menu vào Tools > Macro > Macros..
    đặt tên macro là ColFilter chẳng hạn, ấn nút Create
    Trong code paste đoạn code sau
    Sub ColFilter()
    Dim maxrow As Integer
    Dim t1, t2 As String
    maxrow = 20
    col = 2
    For i = 1 To maxrow
    t1 = Worksheets("Sheet1").Cells(i, col).Value
    For j = i + 1 To maxrow
    t2 = Worksheets("Sheet1").Cells(j, col).Value
    If t1 = t2 Then
    Worksheets("Sheet1").Rows(j).Delete
    End If
    Next j
    Next i
    End Sub
    Chú ý : tên "Sheet1" là mặc định bạn có thể đặt theo tên sheet của bạn, maxrow là số dòng có trong sheet đó, col à thứ tự cột mà bạn cần lọc nêu cột B thì col =2
    Save lại,
    vào Excel vào Tools > Options > tab Security > Macro Security chọn Low > OK > OK
    Save lại, thoát Excel
    Backup 1 bản excel trước khi chạy macro
    Chạy file excel cần lọc
    vào tiếp Trong menu vào Tools > Macro > Macros.. chọn tên macro ColFilter rồi ấn nút Run và quay ra Execl xem kết quả
    Chú ý phải backup file excel trước khi chạy macro nhé
    Chúc thành công
    Trước khi chạy
    [​IMG]
    Sau khi chạy
    [​IMG]

Chia sẻ trang này