Bài viết: Chiêu thứ 76: Không bỏ sót ô rỗng

Liên hệ QC

kyo

Nguyễn Khắc Duy
Thành viên danh dự
Tham gia
4/6/06
Bài viết
901
Được thích
2,715
Chiêu thứ 76: Không bỏ sót ô rỗng


Mọi người thường sẽ bỏ trống 1 ô nào đó khi dữ liệu cho ô đó giống với dữ liệu của ô trên nó. Việc này làm cho danh sách dễ nhìn, dễ đọc, nhưng về mặt cấu trúc thì không được tốt lắm. Chiêu thứ 76 sẽ giúp bạn điền vào tất cả những ô trống theo danh sách cách nhanh chóng và dễ dàng.

Đa phần các chức năng của Excel được thiết kế để sử dụng trên các danh sách. Để các chức năng có thể làm việc chính xác, danh sách không được chứa bất kỳ ô trống, và tiêu đề cột nên được định dạng khác với các dữ liệu trong danh sách. Công việc thiết lập dữ liệu trong Excel sẽ trôi chảy hơn nếu bạn thực hiện đúng những yêu cầu trên. Tuy nhiên, nhiều danh sách lại được thiết lập như hình dưới đây.

mlmS2OXhCqORoaU8srR7_JUcfWcmDQKPiy53VkkzdiC3jyYjQx-B3ZfCeLXVl8Y3E10DY_pXqRpDt5TqPicXMM9SlqJADmEvN_LRUgdFtz8etCEIIKFA5HL67dfRQNoMKh080BL86vyZSdzJhNXLuw-UNHYlCegI6_m9leYe_fH9peS0_EFCtFTKHSExzJEiiVLijSCeafOqL0iNbbukv5NyqGo1ZAUrfgqrJhN4585MI1GFtR2L-ojNLWzuuIldOQrUjS4rN46UO7Va_z0RxjsPP8H76WWGrUFg7PT8crn76ojYXMSR6Eo7Vft0HTyXWzfee02FTG0pmUYhdZ-i-Iq_fqSZ3ZLXuKm70M3ecWNWl_QHw3vc4tiTUGxXzTZvMOz9RbC27D57HgwowJ-U8FPFUtYI0fNc6Tvqlrz1SW0yy2J5c5skSj_eTmUTEkjXVqiQoygY1B-CVNMM1NgNuk87UMcsoqbr0ryUJX9cNkvfYPiY-36hlU13YbCtCt3GjLYOmWnIBU3xge-tpwD9ML2cabr-kYWEvvmhqpQRlhVFWxGOUQsa5ZuENSV8XcLNQKFdZZEl8mv1abJT-jGh2dAD_MIADciLwDnZ2_1hFGIo9Dy9l0xm=w378-h285-no

Trong khi Giá cả được lặp đi lặp lại nhiều lần, các loại trái cây trong cột Trái cây lại không được lặp lại như vậy. Như đã nói ở trên, điều này sẽ tạo ra nhiều vấn đề khi sử dụng các tính năng như Subtotals và PivotTables. Trong hầu hết các trường hợp, Excel hy vọng các dữ liệu của bạn sẽ được thiết lập trong 1 danh sách liên tục hoặc trong 1 bảng, và không có ô trống. Vậy làm thế nào để điền hết các ô trống mà không bỏ sót?

Bạn có thể điền vào các ô trống trong danh sách trên bằng cách sử dụng công thức hoặc bằng macro.

Cách 1: Sử dụng Công thức

Lấy lại ví dụ trên, bạn sẽ làm như sau:

1/ Chọn tất cả các dữ liệu trong cột A. Sau đó chọn Home -> Editing -> Find & Select -> Go To Special (có thể dùng phím tắt: Ctrl-G, nhấn vào Special).

i1xNCeNWmac4k-nLp_Afyr2q-Y7XluBk5LYXvbCvJRXn9UJR5yWvNlSu2aPSHRxkh6mElILMAf_w4mSc0pI5rAKdRw2iFjTh7HegCVhEHAkV14pBqUVfCrcbkAtL-IPn_tJTKfBkMFfnAr15aH13x6kgF0XCYSJNfw40CeG9n-Z02NbGrHq5ENYIkWu8a0gtHiF4sJnqx46bH1zZuCNcJm_vAL0iJ3EVlhHfKXMDWjLH8-OCWI9sx6j85W7oW_jpHgjA2TNs4Ghfku-w-DowweLh7i8ws_BlTOrVyJTWudJ9YR-qql9Ha2z-2MixC3sRmDY1WJivQYJjri_1gEku6xzyqTNpMjV3BHe6-fQ-pn7obOIz6FgjiqH7Avc5ABa48AB0Ym6r4iirvzfUyVukaKEtNQgeOiy8FzLTeO8WELiRffheOZaZ4gn2mroHPVjr6guDZ2NTCoV64LMIj1JPPDDUMiXJwAThhzeLaDIxhWNKKRlr6jtNa0QS27YrbQBtoUnPTcXACMNN0mttp04mhC8E0CWtDtJwJShjpFLCcGAta7z1bE2mFOYxqukKJw_pOyUi_Y39H8s5LB4UcoEMks0T-ksOCHuLYtXORU_PmJ-cbuyViwAg=w1266-h407-no

2/ Chọn tùy chọn Blanks và nhấn OK.


kOFZP5LvODsMxEMs49cqAX_dH7pdwYJZXxFzTCVgUz4PNJoN6Ftd5N41ecJ-UoLTvus3Og0JaIxtIlo9yqsOfYhMRQfWYXic6teyskh0dkzYpvGquPqUm_eE301uAzMsL59EFC-x0hKSLtNogjc9lESWSxmLNXQP_FBdaXZ42uUFF1mBkSf-koN4AzPD-BZ1VMgwDbz2XuwPtvmLw1a5t5aWv0jaVgSmQhnP7ok_rcogSply6qQOlTHnGG97vjvHDM6jqpzoRpNjuBtwpJElUNA0wtC8qYs2GydaCQ03HakDqnBOOdAJ529Em63kdMLHvaSaYD2nEHSyCOAZPRJ8XqHzHz56Iylw-ppoKtgj2dYC6XGKtFWK_J7B8qsv-DFYZSJnPeg097_uOVAJE3c5qWRDkjd_rmnGZ8iBaCd2JPBcIsvTz02RdrK1M-KLEAVh8Y6SFIYUAP1KUweis23T--dytF3NbMR5NeBVmpJvfC_lym4yhkEjdx3Y0gatAhLkoXpNVuIK3cyiI4oJcVqFVKCq_YwE2rPJLOJTFKnKkRVqEXwrSppbGMxGe46GV9b_x97vFxzmzf1VeBG1zZdowbDaOX-mIoKxZGTkDkbWLTBKSD9ID0Mm=w855-h744-no

Và kết quả bạn sẽ chọn được các ô trống trong danh sách như hình.

JRSIGU0J00Sca75L_ZHdvd0R8y5xBReXOT4ClE-BV5uog6EP9KiGCn9y2SVkqk5Lm0EKTBNvGJwWOfixpQKPIcvTsndVhfy3nbANOhpNrWDsCQ0rX0MaH5eKiFfh3EY9cokqC49Xrsc0Ss25rJ6nuxlBUuSd2aS3AkVOSxOqNFlRwM8xk4H55El_P_QS9z_aAiEkFHWVGptthp-2YOihGck95x0N8bhsSYMdO-KSCB3g7RL2wz4TEyaRdIUxhHt5EmPJ9yA1QJQsez1LJDyPcmM-5TfrogYsYzosEFlbk1B5Gz5-oMblCR57lzs7d4izVOvGCXxReNW56ORF76q6Zi-XqlYb9-BP9bSvVhiaOXoQ8vU01q9GDDxkxuyX-jqkO0Lv0A5sbe9kvJ-6RnibH20GxWvE6MOkAspFr8Ap-sZ5jSj7eRv8sQayS4LBCo-YasOhquPdjD-sqezHszn29pfhGaB-xETHO8i3nMMwpd1PgYTsR-gwhBdJjJXrWje8iW0WVRLp_4w96Kw8c481iLMURkUKB23Vdwgm2Qyz8j3SQd8UTAQzpp_oZ0ibgqsK9bMc3IQ21zCOhFjtWrasw1yG1974A78GhBSxvpFgoo08IA1YjFYM=w346-h248-no

3/ Nhấn phím =, rồi lại nhấn phím mũi tên lên, và cuối cùng Ctrl-Enter. Bạn có thể hiểu hành động này nhằm mục đích cho Excel hiểu đối với những ô rỗng thì sẽ mang công thức = giá trị của ô liền kề phía trên, giả sử như trong hình dưới đây thì ô A3 sẽ mang công thức =A2.

zrBkXJe46ZwTf2MTEXpuLLHQkp50WWhSiwJ_BE4gjZ4v-95yIX_AL4asJM2mVpk4BvpSARnRG4-ZtCxw8dlQakNFR3PlQ5F63zrlkvCVl1V08U7c8lChfTEBzlo5ECre00Y3dyD6a-1a3sCxD6i-CfwVGk8IO_vRvfYLN9KtFxAH6A2DUl-75nozLcQv9KqKCHp4W94dWohLogoRq6U3kzO1K7rnBDCRIpaGFDAO0tHjcemf-tykYVpzr63wIyvSTKqS7_fn25Qbio89OptkwAyvJg5ZZLr0vzJ7ceVAP_lOxhVJXzMg3XBZx5Mou1zl_trQEFizlI1U99uKYNdqBksLIQSqCwwFclGkUrZRfxZcwz1ZMOrZacmjzsI8d-_D8PtnYZczk_eLJkWfavVgNzEs0u3w5CKvw94qIRehhFcn1ZHfnWk89ai1j2lBOEAbs9Zta0U8yf0sC5kfFeEKxXVCkbhlP77LafdRW7aeozJ9R-BbUtJ3I7h5z6BCQ_kFXaV5VDQ8fcKcVU6GksbXubsIYLH-RM3mMh0hjoV4vA46tsjRRwKydukBCjX2ihhmsFqu-c26Znc6E3-Nl8Lzk4IMeg90WLQGtgw_i3npN3lIrrv0M0RS=w412-h419-no

4/ Bây giờ để chuyển đổi từ công thức thành giá trị, bạn chọn cột A, nhấn chuột phải và chọn Copy (Ctrl-C). Nhấn chuột phải lần nữa và chọn Paste Special…, nhấn vào ô Values, sau đó nhấn OK.

Cách 2 : Sử dụng Marco

Công việc đòi hỏi bạn phải điền vào ô trống thường xuyên, tốn nhiều thời gian quá. Bạn cần phương án tối ưu hơn. Tại sao chúng ta không xử lý vấn đề này thông qua macro? Đoạn macro sau đây sẽ giúp bạn xử lý công việc dễ dàng hơn.

1/ Để sử dụng macro, bạn nhấn đồng thời 2 phím Alt-F11, sau đó chọn Insert -> Module.

2/ Nhập đoạn mã sau vào hộp thoại:

Mã:
Sub FillBlanks()
    Dim rRange1 As Range, rRange2 As Range
    Dim lReply As Integer
        If Selection.Cells.Count = 1 Then
            MsgBox "Ban can chon mot vung va vung do can co o rong"
            Exit Sub
        ElseIf Selection.Columns.Count > 1 Then
            MsgBox "Vung cua ban chi co the trong 1 cot duy nhat"
            Exit Sub
        End If
        Set rRange1 = Selection
        On Error Resume Next
        Set rRange2 = rRange1.SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If rRange2 Is Nothing Then
            MsgBox "Khong co o rong duoc tim thay"
            Exit Sub
        End If
        rRange2.FormulaR1C1 = "=R[-1]C"
        lReply = MsgBox("Ban co muon Paste Value cho cac o rong?", vbYesNo + vbQuestion)
        If lReply = vbYes Then rRange1 = rRange1.Value
End Sub

3/ Sau khi nhập mã xong, đóng lại và trở về Excel, lưu lại Bảng tính này.

4/ Bây giờ, vào thẻ Developer, chọn Code -> Macros hoặc dùng phím tắt Alt-F8. Sau đó, chọn Macro FillBlanks và Run.

GJkzGiIYmHTvTfSpcQHg3oKv86N9DdTPe9YHzif9cK9hKw7py2VM3kFl4oW6OkThYS9TQouivlWddLdK4-jxdbGivmAzbVj_lrQelYlJCoCdIGBoGF8z8fmWsJaQWKUd42E_9LX740GErqBgRJdrxUxY6I1o0HuOlLEW81A0y9RR4ZpaOmQPSyLBgmGSwHqT-5qj4niiMpiHGYgJS0DqZ5uSSon2p6fJbyWqXy72KtN7NyQeYB5ePRTDgkrhBwJCxedYTE0IWT9i1wI4j2hr4-GRB7yu1sTuDCKEP0c3dzs_N9gnpTA2jNbJm0Gq19zSJgDC883Scw5q4v0sWBEOlh5V3sAO8xb-rwiBcoAp8I6TwzWXjXILGjr9jCDEu25L3QXPx-dxGWK3evpN2gVYqjW7ijqPhW-lZwNv0awBGQ76z7q8MU2PH4ASl1OVRv7LsDmM1l4iAVC-Z59YjQWE7Jx2w-20AaZoOxgNMox9xVzbbANwhBj8KjoG8K0n4hNiRvkhDm-RMGVsedxsJIXxQVMutc2BvZkc8EQl867FFXQq37BTDwX8kwB1aQaJn0KCYcgz-FlpPwB33d7AskWz4WkIWKLcUVaIIdQrkT71j4T4z0xfGBzY=w917-h660-no

LƯU Ý: Phải chọn danh sách có chứa những ô trống trước khi mở hộp thoại Macro và nhấn nút Run, và chỉ chọn duy nhất 1 cột có chứa những ô trống để thực hiện lệnh.

Nguyễn Bảo Khanh


Một số bài viết có liên quan:
1/ Chiêu thứ 75: Đối chiếu dữ liệu cũ và mới
2/ Chiêu thứ 74: Di chuyển công thức chứa địa chỉ tương đối mà không làm thay đổi tham chiếu

3/ Chiêu thứ 73: Thêm mô tả vào công thức của bạn
4/ Chiêu thứ 72: Tạo số tổng cộng cho biểu đồ cột nhiều thành phần (Stacked Column Chart)
5/ Chiêu thứ 71: Đánh dấu tên trục theo điều kiện
6/ Chiêu thứ 70: Thay thế điểm bằng hình
7/ Chiêu thứ 69: Biểu đồ cơn lốc
8/ Chiêu thứ 68: Vị trí thông số của trục
9/ Chiêu thứ 67: Chỉnh lại trục X khi sử dụng dữ liệu ngày tháng
10/ Chiêu thứ 65: Thêm mũi tên chỉ hướng cho biểu đồ đường
 
Lần chỉnh sửa cuối:
Upvote 0
hay quá, vậy mà trước mình cứ loay hoay tìm trên google mãi không được.
 
Web KT
Back
Top Bottom