Cách sắp xếp sheet (bảng tính) trong file Excel theo thứ tự A đến Z hoặc ngược lại

Trong quá trình làm việc với Excel, đôi khi, chúng ta sẽ có nhu cầu sắp xếp lại bảng tính (sheets) trong 1 file Excel theo thứ tự từ A đến Z hoặc từ Z tới A để nhằm mục đích tra cứu 1 cách dễ dàng hơn. Trong bài viết này, Gitiho.com sẽ hướng dẫn các bạn làm điều đó một cách đơn giản và nhanh chóng bằng cách sử dụng ngông ngữ lập trình VBA trong Excel

Bước 1: Mở trình soạn thảo VBA trong Excel. Cách mở trình soạn thảo cũng như bật thẻ Developer bạn tham khảo bằng cách bấm vào link này. Sau đó mở cửa sổ Project – VBA Project

Mở cửa sổ Project Explorer trong VBA Excel

Bước 2: Bấm chuột phải vào trong cửa sổ Project – VBA Project và chọn tạo 1 module mới

Cách tạo Module mới trong VBA – Excel

Bước 3: Copy đoạn code VBA để sắp xếp các sheet theo thứ tự A tới Z hoặc Z về A

Code sắp xếp bảng tính theo thứ tự từ A tới Z

	Sub SheetAscending()

	For i = 1 To Application.Sheets.Count
	For j = 1 To Application.Sheets.Count - 1
	If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
	Sheets(j).Move after:=Sheets(j + 1)
	End If
	Next
	Next
	MsgBox "Xong"

	End Sub

view raw SheetAscending.bas hosted with ❤ by GitHub

View the code on Gist.

Code sắp xếp bảng tính theo thứ tự từ Z về A

	Sub SheetsDescending()

	For i = 1 To Application.Sheets.Count
	For j = 1 To Application.Sheets.Count - 1
	If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
	Application.Sheets(j).Move after:=Application.Sheets(j + 1)
	End If
	Next
	Next

	MsgBox "Xong"
	End Sub