Làm cách nào để liệt kê tất cả các ngày giữa hai ngày trong Excel?

Trong một số trường hợp, nếu bạn có ngày bắt đầu cụ thể và ngày kết thúc, bạn có thể cần phải liệt kê tất cả các ngày giữa hai ngày cụ thể này trong Excel. Bây giờ hướng dẫn này nói về các phương pháp liệt kê tất cả các ngày giữa hai ngày trong Excel.

Liệt kê tất cả các ngày giữa hai ngày theo công thức

Liệt kê tất cả các ngày giữa hai ngày bằng Kutools cho Excel

Liệt kê tất cả các ngày giữa hai ngày bằng VBA

Liệt kê tất cả các ngày giữa hai ngày theo công thức

Ở đây tôi giới thiệu các công thức có thể nhanh chóng liệt kê tất cả các ngày giữa hai ngày nhất định cho bạn trong Excel.

1. Gõ ngày bắt đầu và ngày kết thúc vào hai ô, ở đây tôi gõ chúng vào ô A1 và A2. Xem ảnh chụp màn hình:

2. Sau đó chuyển đến ô C1 để nhập công thức này = A1 + 1 vào nó, sau đó nhấp vào đăng ký hạng mục thi Chìa khóa. Xem ảnh chụp màn hình:

3. Sau đó, trong ô C2, nhập công thức này =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) vào đó, sau đó kéo chốt tự động điền xuống các ô cho đến khi một ô trống xuất hiện. Xem ảnh chụp màn hình:

Sau đó, bạn có thể thấy tất cả các ngày giữa hai ngày nhất định được liệt kê trong cột.

Lưu ý:

Trong các công thức trên, A1 là ngày bắt đầu, A2 là ngày kết thúc và C1 là ngày đầu tiên trong phạm vi ngày.

Liệt kê tất cả các ngày giữa hai ngày bằng Kutools cho Excel

Trên thực tế, nếu bạn đã cài đặt Kutools cho Excel - một công cụ bổ sung tiện dụng, bạn cũng có thể sử dụng Chèn dữ liệu ngẫu nhiên để giải quyết vấn đề này.

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. Chọn một cột bạn muốn liệt kê các ngày giữa hai ngày và nhấp vào Kutools > Chèn > Chèn dữ liệu ngẫu nhiên. Xem ảnh chụp màn hình:

2. Sau đó trong Chèn dữ liệu ngẫu nhiên thoại, bấm Ngày , sau đó chọn ngày bắt đầu và ngày kết thúc từ Từ và To danh sách, sau đó nhớ kiểm tra Ngày làm việc, Cuối tuần và Giá trị duy nhất hộp kiểm. Xem ảnh chụp màn hình:

3. nhấp chuột Ok để đóng hộp thoại và một Kutools cho Excel hộp thoại bật ra, chỉ cần nhấp vào Có. Sau đó, bạn có thể thấy các ngày giữa ngày bắt đầu và ngày kết thúc được liệt kê. Xem ảnh chụp màn hình:

4. Bây giờ bạn cần sắp xếp danh sách ngày theo thứ tự bạn cần. Nhấp chuột Ngày > Sắp xếp Cũ nhất đến Mới nhất. Sau đó, bạn có thể thấy các ngày được sắp xếp từ ngày cũ nhất đến ngày mới nhất. Xem ảnh chụp màn hình:

Với Chèn dữ liệu ngẫu nhiên tiện ích, bạn cũng có thể chèn số nguyên ngẫu nhiên, chuỗi ngẫu nhiên và thời gian ngẫu nhiên, v.v. Nhấp vào đây để biết thêm về Chèn dữ liệu ngẫu nhiên.

Liệt kê tất cả các ngày giữa hai ngày bằng VBA

Nếu bạn quan tâm đến mã macro, bạn có thể sử dụng VBA bên dưới để liệt kê tất cả các ngày giữa hai ngày nhất định trong Excel.

1. Gõ ngày bắt đầu và ngày kết thúc bạn vào hai ô, ở đây tôi gõ vào ô A1 và B1. Xem ảnh chụp màn hình:

2. nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Sau đó nhấn vào Chèn > Mô-đun và sao chép và dán mã VBA bên dưới vào cửa sổ bật lên Mô-đun cửa sổ.

VBA: Liệt kê tất cả các ngày giữa hai ngày.

Sub WriteDates()
	'Updateby20150305
	Dim rng As Range
	Dim StartRng As Range
	Dim EndRng As Range
	Dim OutRng As Range
	Dim StartValue As Variant
	Dim EndValue As Variant
	xTitleId     = "KutoolsforExcel"
	Set StartRng = Application.Selection
	Set StartRng = Application.InputBox("Start Range (single cell):", xTitleId, StartRng.Address, Type: = 8)
	Set EndRng   = Application.InputBox("End Range (single cell):", xTitleId, Type: = 8)
	Set OutRng   = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
	Set OutRng   = OutRng.Range("A1")
	StartValue   = StartRng.Range("A1").Value
	EndValue     = EndRng.Range("A1").Value
	If EndValue - StartValue <= 0 Then
		Exit Sub
		End If
		ColIndex = 0
		For i = StartValue To EndValue
			OutRng.Offset(ColIndex, 0) = i
			ColIndex = ColIndex + 1
		Next
	End Sub

4. nhấp chuột chạy or F5 để chạy VBA và một hộp thoại bật ra để bạn chọn ngày bắt đầu, sau đó nhấp vào OK, sau đó chọn ngày kết thúc trong hộp thoại bật lên thứ hai. Xem ảnh chụp màn hình:

5. nhấp chuột OK, sau đó chọn một ô để hiển thị ngày tháng, sau đó bấm OK. Bây giờ bạn có thể thấy tất cả các ngày giữa hai ngày được liệt kê. Xem ảnh chụp màn hình:

Chú thích: Danh sách được tạo bởi VBA này bao gồm ngày bắt đầu và ngày kết thúc.

Liệt kê tất cả các ngày giữa hai ngày

Các bài báo tương đối:

• Tạo danh sách động các tên trang tính