ngmcuongbl
Thành viên chính thức
- Tham gia
- 19/12/08
- Bài viết
- 73
- Được thích
- 2
Bạn cho kết quả lại thật chính xác đi, khỏi mắc công làm nhiều lầnAnh/Chị giúp em cách tổng hợp dữ liệu trong excel file gởi kèm
Mình có cách nào tạo một “Tập hợp tổng” không? Xem giúp em nhé, xin cám ơn trước.
Option Explicit
Function TongHop(Rng As Range) As String
Const Chuoi As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim jJ As Byte, Cls As Range, StrC As String, KT As String
For Each Cls In Rng
StrC = StrC & Cls.Value
Next Cls
StrC = UCase$(StrC)
For jJ = 1 To 36
KT = Mid(Chuoi, jJ, 1)
If InStr(StrC, KT) Then _
TongHop = TongHop & KT
Next jJ
End Function