Điền ký tự * vào những ô trống.

Liên hệ QC

emgaingayngo

Thành viên hoạt động
Tham gia
9/2/07
Bài viết
141
Được thích
5
Mong GPE giúp tôi đoạn code để hoàn thành tác vụ sau :
Tại những dòng có chữ Start hoặc End thì để trống, những dòng còn lại thì điền ký tự hoa thị (*) vào ô trống (theo mẫu ở sheet2). Hiện tại là 64 dòng và 18 cột (Số dòng và cột có thể thay đổi).
 

File đính kèm

  • DienKyTu.xlsx
    17.5 KB · Đọc: 10
Mong GPE giúp tôi đoạn code để hoàn thành tác vụ sau :
Tại những dòng có chữ Start hoặc End thì để trống, những dòng còn lại thì điền ký tự hoa thị (*) vào ô trống (theo mẫu ở sheet2). Hiện tại là 64 dòng và 18 cột (Số dòng và cột có thể thay đổi).
Mời bạn xem file đính kèm. Kết quả ở sheet3. Tôi dùng công thức.
 

File đính kèm

  • DienKyTu.rar
    124.6 KB · Đọc: 21
Lần chỉnh sửa cuối:
Mong GPE giúp tôi đoạn code để hoàn thành tác vụ sau :
Tại những dòng có chữ Start hoặc End thì để trống, những dòng còn lại thì điền ký tự hoa thị (*) vào ô trống (theo mẫu ở sheet2). Hiện tại là 64 dòng và 18 cột (Số dòng và cột có thể thay đổi).
Tôi đề xuất phương pháp AutoFilter ---> Chính vậy cần có cột tiêu đều (thêm vào)
Và code rất ngắn gọn (thay vì phải For... Next)
PHP:
Sub DienKT()
  With Range([A1], [A65536].End(xlUp)).Resize(, 18)
    .AutoFilter 1, "<>Start", xlAnd, "<>End"
    .SpecialCells(12).SpecialCells(4).Value = "*"
    .AutoFilter
  End With
End Sub
 

File đính kèm

  • DienKyTu.xls
    49 KB · Đọc: 11
Web KT
Back
Top Bottom