Top 4 # Xem Nhiều Nhất Xóa Dòng Duplicate Trong Excel Mới Nhất 4/2023 # Top Like

Ẩn, hiện đường lưới Gridlines bằng lệnh View

Excel có công cụ lựa chọn dể bạn ẩn hiện đường lưới Grinlines cho toàn bộ worksheet của Excel. Bạn cài đặt theo các cách sau.

Chỉnh cài đặt Options của Excel để xóa đường lưới, cài đặt mầu đường lưới

Để chỉnh mầu cho đường lưới của Excel, bạn làm theo các bước sau:

Bước 1: Vào File, chọn  Options của Excel.

Bước 2: Chọn mục Advanced (1). Sử dụng thanh trượt tìm mục Display options for this worksheet (2). Chọn Worksheet mà bạn muốn cài đặt (3). Chọn dấu tích ở mục Show Gridlines (4) để hiện đường lưới và bỏ chọn nếu muốn ẩn đường lưới. Để chọn mầu cho đường lưới thì bạn phải nhớ chọn mục tích Show Gridlines, rồi chọn mầu ở mục Gridlines color (5). Sau khi chọn xong mầu mà bạn thích, bạn nhấn nút OK (6) để cài đặt và quay trở lại Worksheet.

Hình ảnh dưới là Thủ Thuật 123 đã đổi đường lưới của Sheet Doanh Thu sang mầu đỏ.

Sử dụng công cụ Fill để ẩn hiện đường lưới các ô đã chọn

Thay vì muốn bỏ chọn đường lưới cho toàn bộ bảng tính, bạn chỉ muốn ẩn đường lưới cho một số ô mà bạn cần. Vậy bạn có thể sử dụng công cụ Fill (bôi mầu) các ô mầu trắng. Ví dụ bạn có bảng tính sau và cần ẩn đường lưới cho các ô từ A3:F12.

Để hiện lại dòng kẻ lưới, bạn làm theo các bước ở trên và thay vì bôi mầu nền trắng bạn chọn No Fill. Bảng tính sẽ trở về như mặc định ban đầu.

Cách 1: Sử dụng Insert để thêm dòng

Đầu tiên, các bạn để con trỏ chuột ở một ô bất kỳ trong dòng cần chèn thêm lên trên. Sau đó các bạn nhấn chuột phải và chọn Insert.

Chỉ cần như vậy là một dòng mới đã được chèn thêm lên trên dòng chứa ô để con trỏ chuột.

Cách 2: Sử dụng phím tắt để thêm dòng

Để sử dụng phím tắt thêm dòng, các bạn chỉ cần đặt con trỏ chuột tại vị trí dòng muốn chèn lên trên. Sau đó sử dụng tổ hợp phím tắt Ctrl + Shift + =. Lúc này hộp thoại Insert hiện ra. Các bạn chọn mục Entire row rồi nhấn OK.

Chỉ cần như vậy là một dòng mới đã được chèn thêm lên trên dòng chứa ô để con trỏ chuột.

Cách 3: Sử dụng công cụ Insert để thêm dòng

Chỉ cần như vậy là một dòng mới đã được chèn thêm lên trên dòng chứa ô để con trỏ chuột.

Cách 4: Bôi đen dòng trước khi thêm

Ngoài ra, các bạn có thể bôi đen dòng cần chèn thêm dòng mới lên trên bằng cách nhấn vào số dòng ở thanh thước kẻ bên trái màn hình. Hoặc các bạn có thể để con trỏ chuột tại dòng đó rồi sử dụng tổ hợp phím tắt Shift + Space.

Bằng cách này thì dòng mới sẽ tự động được chèn vào luôn mà không có hộp thoại nào hiện ra cả.

Cách 5: Thêm nhiều dòng một lúc

Hoặc các bạn có thể bôi đen dòng cần chèn thêm dòng mới lên trên bằng cách nhấn vào số dòng ở thanh thước kẻ bên trái màn hình. Hoặc các bạn có thể để con trỏ chuột tại dòng đó rồi sử dụng tổ hợp phím tắt Shift + Space.

Sau đó các bạn nhấn chuột phải và chọn Insert. Hoặc nhấn tổ hợp phím tắt Ctrl + Shift + =. Hoặc chọn thẻ Home rồi nhấn vào công cụ Insert Cells như trên.

2. Cách xóa dòng trong Excel

Cách 1: Xóa dòng bằng Delete

Đầu tiên, các bạn cần đẻ con trỏ chuột tại một ô bất kỳ trong dòng muốn xóa. Sau đó nhấn chuột phải và chọn Delete.

Lúc này, hộp thoại Delete hiện ra. Các bạn nhấn chọn mục Entire row rồi nhấn OK là toàn bộ dòng chứa con trỏ chuột sẽ bị xóa đi.

Cách 2: Xóa dòng bằng phím tắt

Để xóa dòng bằng phím tắt, đầu tiên các bạn cũng cần bôi đen toàn bộ dòng muốn xóa. Sau đó các bạn sử dụng tổ hợp phím tắt Ctrl + –. Chỉ cần như vậy là những dòng bôi đen sẽ bị xóa đi.

Cách 3: Xóa dòng bằng công cụ Delete

Tags: các hàm excel, công cụ excel, công thức excel, excel, excel cho kế toán, file excel, lỗi excel, Mẹo excel, Microsoft Excel, phần mềm excel, tài liệu excel, thao tác với excel, thủ thuật excel

Rất rõ ràng với tiêu đề: Cách bỏ dấu cách xuống dòng (Alt+enter) trong chuỗi ký tự.

Ví dụ với chuỗi ký tự ở ô A2, có sử dụng dấu cách xuống dòng.

2. Cách thực hiện

Cần 2 hàm:

Hàm Substitue: hàm thay thế 1 nội dung cụ thể này bằng 1 nội dung cụ thể khác (ở đây là ký tự Alt+enter)

Hàm Trim: loại bỏ khoảng cách thừa trong chuỗi ký tự (nếu có)

3. Giải thích công thức

Char(10) là ký tự Alt+enter, được excel quy ước như vậy.

Substitue(A2,Char(10),” “) là thay thế ký tự Alt+enter trong chuỗi ký tự tại ô A2 bằng ký tự cách (khoảng trắng tạo bởi dấu cách)

Trim(Substitue(A2,Char(10),” “)) là để loại bỏ các khoảng trắng thừa trong chuỗi ký tự A2, đã được xử lý bỏ ký tự Alt+enter

Ở hình trên, bạn có thể thấy rõ tác dụng của việc có thêm hàm Trim để xử lý các khoảng trắng thừa.

Đây là một thao tác rất cơ bản trong Excel. Như các bạn biết, Excel có rất nhiều cách làm khác nhau khi xử lý một dữ liệu. Để có thể ứng dụng tốt Excel vào trong công việc, chúng ta cần nắm vững và sử dụng tốt các hàm và các công cụ của Excel. Những hàm nâng cao giúp áp dụng tốt vào công việc như SUMIFS, COUNTIFS, SUMPRODUCT, INDEX + MATCH … Những công cụ thường sử dụng là Data validation, Conditional formatting, Pivot table …

Với sứ mệnh: ” Mang cơ hội phát triển kỹ năng, phát triển nghề nghiệp tới hàng triệu người “, đội ngũ phát triển đã và đang làm việc với những học viện, trung tâm đào tạo, các chuyên gia đầu ngành để nghiên cứu và xây dựng lên các chương trình đào tạo từ cơ bản đến chuyên sâu xung quanh các lĩnh vực: Tin học văn phòng, Phân tích dữ liệu, Thiết kế, Công nghệ thông tin, Kinh doanh, Marketing, Quản lý dự án…

Gitiho tự hào khi được đồng hành cùng:

50+ khách hàng doanh nghiệp lớn trong nhiều lĩnh vực như: Vietinbank, Vietcombank, BIDV, VP Bank, TH True Milk, VNPT, FPT Software, Samsung SDIV, Ajinomoto Việt Nam, Messer,…

Đánh giá:

0

/

5

Voted:

0

Number:

0

Your page rank:

Xóa dòng dựa trên điều kiện

Option Explicit Sub DelRows1() Dim rRange As Range Dim strCriteria As String Dim lCol As Long Dim rHeaderCol As Range Dim xlCalc As XlCalculation Const strTitle As String = "LeQuocThai.Com - Dieu kien xoa hang" On Error Resume Next Step1: 'We use Application.InputBox type 8 so user can select range Set rRange = Application.InputBox(Prompt:="Chon vung dieu kien bao gom Tieu de" _ , Title:=strTitle & " STEP 1 of 3", Default:=ActiveCell.CurrentRegion.Address, Type:=8) 'Cancelled or non valid rage If rRange Is Nothing Then Exit Sub 'Awlays use GoTo when selecting range so doesn't matter which Worksheet chúng tôi rRange.Rows(1), True Step2 'We use Application.InputBox type 1 so return a number lCol = Application.InputBox(Prompt:="Vui long dien so Dong va Cot" _ , Title:=strTitle & " STEP 2 of 3", Default:=1, Type:=1) 'Cancelled If lCol = 0 Then Exit Sub Step3: 'We use default InputBox type as we want Text strCriteria = InputBox(Prompt:="Vui long dien 1 dieu kien." & _ , Title:=strTitle & " STEP 3 of 3") If strCriteria = vbNullString Then Exit Sub 'Store current Calculation then switch to manual. 'Turn off events and screen updating With Application xlCalc = .Calculation .Calculation = xlCalculationManual .EnableEvents = False .ScreenUpdating = False End With 'Remove any filters ActiveSheet.AutoFilterMode = False With rRange 'Filter, offset(to exclude headers) and delete visible rows .AutoFilter Field:=lCol, Criteria1:=strCriteria .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete End With 'Remove any filters ActiveSheet.AutoFilterMode = False 'Revert back With Application .Calculation = xlCalc .EnableEvents = True .ScreenUpdating = True End With On Error GoTo 0 End Sub Sub DelRows2() Dim rTable As Range Dim rCol As Range, rCell As Range Dim lCol As Long Dim xlCalc As XlCalculation Dim vCriteria On Error Resume Next 'Determine the table range With Selection Set rTable = Selection Else Set rTable = .CurrentRegion On Error GoTo 0 End If End With 'Determine if table range is valid If rTable Is Nothing Or rTable.Cells.Count = 1 Or WorksheetFunction.CountA(rTable) < 2 Then MsgBox "Khong the xac dinh vung du lieu.", vbCritical, "LeQuocThai.Com" Exit Sub End If 'Get the criteria in the form of text or number. vCriteria = Application.InputBox(Prompt:="Nhap dieu kien de xoa Dong. " _ & "Neu dieu kien nam o mot O, clik chon o dieu kien do", _ Title:="LeQuocThai.Com - Dieu kien xoa Dong", Type:=1 + 2) 'Go no further if they Cancel. If vCriteria = "False" Then Exit Sub 'Get the relative column number where the criteria should be found lCol = Application.InputBox(Prompt:="Chon so luong Cot co lien quan " _ & "co chua dieu kien xoa.", Title:="LeQuocThai.Com - Dieu kien xoa Dong va Cot", Type:=1) 'Cancelled If lCol = 0 Then Exit Sub 'Set rCol to the column where criteria should be found Set rCol = rTable.Columns(lCol) 'Set rCell to the first data cell in rCol Set rCell = rCol.Cells(2, 1) 'Store current Calculation then switch to manual. 'Turn off events and screen updating With Application xlCalc = .Calculation .Calculation = xlCalculationManual .EnableEvents = False .ScreenUpdating = False End With 'Loop and delete as many times as vCriteria exists in rCol For lCol = 1 To WorksheetFunction.CountIf(rCol, vCriteria) Set rCell = rCol.Find(What:=vCriteria, After:=rCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Offset(-1, 0) rCell.Offset(1, 0).EntireRow.Delete Next lCol ` With Application .Calculation = xlCalc .EnableEvents = True .ScreenUpdating = True End With On Error GoTo 0 End Sub