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
611
104
43
68
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