Viết 1 hàm mảng tự tạo để thay cho hàm CSTACK() trong Excel 365

  • Thread starter SA_DQ
  • Ngày gửi
S

SA_DQ

Thành viên Cố vấn - Webketoan Mentors
29/6/05
592
104
43
67
HCM city
Chúng ta có 2 cột dữ liệu kiểu ngày-tháng-năm ở cột 'B' & 'D'
Nhiệm vụ đề ra là viết 1 hàm để gom dữ liệu 2 cột này thành 1 cột
Ngày tới hạnNgàyVSTACK
2025-01-0913/121/9/2025{=GomCot(B5:B18,D5:D9)}
2025-01-0916/121/9/2025
2025-02-0223/122/2/2025
2025-02-0402/012/4/2025
2025-02-0509/012/5/2025
2025-03-043/4/2025
2025-03-053/5/2025
2025-03-053/5/2025
2025-04-094/9/2025
2025-04-094/9/2025
2025-05-035/3/2025
2025-07-097/9/2025
2025-10-0910/9/2025
2025-11-0911/9/2025
12/13/2024
12/16/2024
12/23/2024
01/02/2025
01/09/2025

Hàm tự tạo này có nội dung như sau:

PHP:
Function GomCot(Rg0 As Range, Rg1 As Range) As Variant
 Dim W As Integer, J As Integer, Tg As Long
 
 W = Rg0.Rows.Count
 J = Rg1.Rows.Count
 ReDim Arr(1 To W + J, 1 To 1) As String
 For Tg = 1 To W
    Arr(Tg, 1) = Str(Rg0(Tg, 1).Value)
 Next Tg
 For Tg = (W + 1) To (W + J)
    Arr(Tg, 1) = Format(Rg1(Tg - W, 1).Value, "MM/DD/yyyy")
 Next Tg
 GomCot = Arr()
End Function
Vì cũng là hàm mảng, nên ta cũng cần kết thúc bỡi tổ hợp phím giành cho nó!
 
Khóa học Quản trị dòng tiền

Xem nhiều

Webketoan Zalo OA