Excel vba xóa các ô có giá trị cụ thể

Tại sao bạn không chọn Cột C. G sau đó sử dụng Tìm/Thay thế

Thay thế. = n/a
Thay thế bằng. = [Để trống]
Thay thế tất cả

Tương tự cho n/m

Mã này sẽ làm điều đó cho Cột C. G, [gần như trực tiếp từ máy ghi macro]

Nếu các Cột có thể thay đổi thì hãy thay đổi dòng này
thành

Chọn các Cột bắt buộc và chạy macro đã sửa đổi

Hi vọng điêu nay co ich

Nếu bạn muốn xóa nhiều phạm vi khỏi một trang tính bằng một câu lệnh xóa duy nhất, bạn có thể sử dụng phương pháp bên dưới

Sheets["SheetA"].Range["A3:B10", "C2:D10"].Clear

Nếu tôi đúng, bạn muốn đặt các câu lệnh kéo trong một câu lệnh duy nhất.
Dưới đây là mã để xóa hai phạm vi.

Sheets["SheetA"].Range["A3:B10"].Clear
Sheets["SheetB"].Range["C2:D10"].Clear

Bạn có thể dùng ". ” để nối các câu lệnh VBA

Sheets["SheetA"].Range["A3:B10"].Clear: Sheets["SheetB"].Range["C2:D10"].Clear

Hy vọng điều này sẽ hữu ích.
Cảm ơn-PNRao

  • James Tháng Tám 7, 2015 tại 7. 43h - Trả lời

    Tôi có một danh sách trong đó một số giá trị ô bắt đầu bằng một chữ cái và một số bắt đầu bằng số. Làm cách nào tôi có thể sử dụng hàm xóa để xóa các ô bắt đầu bằng một chữ cái nhưng để lại những ô bắt đầu bằng một số? . ngoài ra một số là chữ hoa và một số là chữ thường [không chắc điều này có quan trọng không]
    cảm ơn

    Giacôbê

  • PNRao Tháng Tám 7, 2015 lúc 7. 57h chiều - Trả lời

    Chào James,

    Macro bên dưới kiểm tra ký tự đầu tiên của mỗi ô trong một phạm vi nhất định và xóa nếu nó không phải là số

    Sub sbClearCellsIFCritera[]
    
    Set Rng = Range["F1:F20"] ' change this range as per your requirement
    For Each cell In Rng.Cells
        If IsNumeric[Left[cell, 1]] = False Then
            cell.Clear
        End If
    Next
    
    End Sub
    

    Thanks-PNRao

  • ravindra Tháng Tám 22, 2015 tại 10. 40h - Trả lời

    Tôi muốn lấy dữ liệu từ sổ làm việc này sang sổ làm việc khác bằng cách sử dụng mã hóa VBA. Vì vậy, bạn có thể xin vui lòng giúp tôi

  • PNRao Tháng tám 23, 2015 tại 2. 10 giờ sáng - Trả lời

    Xin chào Ravindra,
    Bạn có thể sử dụng lệnh Sao chép như minh họa bên dưới.

    Workbooks["Book1"].Sheets["Sheet1"].Range["A1:B10"].Copy _
    Destination:=Workbooks["Book2"].Sheets["Sheet1"].Range["E1"]
    

    Thanks-PNRao

  • Brad Bouchaud Tháng Mười Một 6, 2015 lúc 7. 47 AM - Trả lời

    Xin chào và cảm ơn trước.
    Tôi có một Danh sách gồm 3 mục mỗi hàng trong một Trang tính có 30 hàng như vậy và một nút bên cạnh mỗi hàng để chạy Macro nhằm xóa nội dung khi được yêu cầu.
    Các macro khác thực hiện các chức năng trên dữ liệu trong danh sách.
    Thật không may, tôi đang sử dụng. ActiveCell dường như không phát hiện ra tôi đang ở trong Ô có nút nhưng đang sử dụng ô cuối cùng mà tôi đã ở đó, có ý tưởng nào về cách tôi có thể xóa nội dung của 3 ô bên cạnh các nút mà không cần viết 30 macro khác nhau không?

  • Chủ Đề