delete Rows and Columns

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi Classy, 6 Tháng bảy 2005.

2,030 lượt xem

  1. Classy

    Classy Thành viên sơ cấp

    Bài viết:
    50
    Đã được thích:
    1
    Nơi ở:
    HCMC
    các bạn có ai biết chỉ tôi với:

    Trong một trang sheets tôi muốn giữ lại các giá trị trên các Rows chẳn như 2, 4, 6, 8, ..... và xóa tất cả các Rows lẻ như 3, 5, 7, 9, .... trong vùng chứa giá trị số liệu của mình thì phải làm sao các bạn ? và tương tự cho các cột(columns) trong sheets.
     
    #1
  2. Bình_OverAC

    Bình_OverAC Over Abnormal / Crazy

    Bài viết:
    845
    Đã được thích:
    7
    Nơi ở:
    Nha Trang
    Tôi biết cách xóa các dòng chẳn, lẻ hoặc theo quy luật nào đó thì khá đơn giản: Chỉ cần "đánh dấu" dòng đó rồi dùng autofilter lọc theo điều kiện đánh dấu và thế là Delete. Đánh dấu như thế nào thì cũng khá đơn giản. tôi cho rằng bạn nghĩ một chốc có thể ra ngay cách đánh dấu.
    Còn việc xóa cột thì tui hỏng biết. Nếu bạn muốn có một macro để xóa các cột lẻ thì tui có thể giúp bạn ngay đây:
    Tôi có cần phải hướng dẩn bạn cách tạo một macro không nhỉ. Chắc có lẻ là kô! ở trên EFC này có quá nhiều bài hướng dẩn rồi.

    Sub xoacotle()
    For i = 1 To 128
    Columns(i).Delete
    Next i
    End Sub

    nếu bạn muốn xóa cột chẳn thì thay dòng 2 ( For i = 1 To 128) bằng dòng sau:
    For i = 2 To 129

    hi vọng những cái này giúp được bạn.
    Àh. Còn nếu bạn muốn xóa dòng lẻ thì Thay câu 3 bằng câu (Rows(i).Delete) Nhớ thay số 128 ở dòng 2 bằng số dòng lẻ cuối cùng của bạn cộng một chia 2 (ví dụ nêu bạn muốn xóa tới dòng lẻ 1001 thì bạn số mà bạn dùng để thay số 128 là số (1001+1)/2 = 501)

    OverAC
     
    Last edited: 10 Tháng bảy 2005
    #2
  3. songmay

    songmay Thành viên thân thiết

    Bài viết:
    40
    Đã được thích:
    0
    Nơi ở:
    hanoi
    Hay quá mình đã thử và đã ok, trước đây, mình cũng chỉ biết xóa dòng bằng autofilter thôi! Cám ơn bạn nhiều nhé!
     
    #3

Chia sẻ trang này