cái này đơn gian mà, bạn có thể sử dụng công thức sau:
Nếu là: 20-1904 B3 lò gốm mình gọi ô chứa dữ liệu này là A1, bạn có thể đãnh công thức sau: =right(left(A1, 7),4)
Nếu là: 1902 7/3 cmt8 bạn chỉ cần gõ ct: =left(A1,4)
ak đọc là ặc hay AK47?
- Cách tôi làm là dùng hàm textJoin của office 2019 trở lên, và viết công thức cho từng dòng chứ không viết cho cả 1 khối ngàn dòng
- Hàm bạn sưu tầm về có 3 tham số và dùng cho trường hợp cụ thể theo yêu cầu chứ không dùng lung tung được
- Viết code thì tôi viết được, nhưng trước tiên bạn cho biết mục đích của file này là gì? Có phải thống kê số đề hay không? Vì nếu tôi viết tức là tôi tiếp tay cho 1 việc phạm pháp.
ak đọc là ặc hay AK47?
- Cách tôi làm là dùng hàm textJoin của office 2019 trở lên, và viết công thức cho từng dòng chứ không viết cho cả 1 khối ngàn dòng
- Hàm bạn sưu tầm về có 3 tham số và dùng cho trường hợp cụ thể theo yêu cầu chứ không dùng lung tung được
- Viết code thì tôi viết được, nhưng trước tiên bạn cho biết mục đích của file này là gì? Có phải thống kê số đề hay không? Vì nếu tôi viết tức là tôi tiếp tay cho 1 việc phạm pháp.
File trên là e lấy chuỗi tạm để minh hoạ cho cách nối chuỗi mà thôi chứ không có ý khác,vì mỵc đích là để tìm kí tự giống nhau trong một chuỗi quá dài vượt kí tự của hàm textjoin.e thấy trên googlesheet có hàm lọc có thể làm được,nhưng excel thì lại ko,nên không biết code VBA mong thầy giúp ak.
Mình muốn nối all các hàng thành một ô,nhưng thử các cách rồi, đã lấy hàm tự tạo textjoin trong diễn đàn nhưng hình như textjoin không nối được vì quá 255 kí tự.cái này mình nghĩ phải dùng code vba.máy mình xài excel 2007.huhuhu
Mình người mới. Mình muốn hỏi điều này
ví dụ tên nhân viên : Nguyễn Thị Hà mã NV: NTH
Những tên nhân viện khác: Nguyễn Thu Hương--> Mã NV cũng lại là NTH ( mình muốn nó thành NTH01).
Bác nào chỉ giúp em với ạ ( viết lệnh VBA)
Mình người mới. Mình muốn hỏi điều này
ví dụ tên nhân viên : Nguyễn Thị Hà mã NV: NTH
Những tên nhân viện khác: Nguyễn Thu Hương--> Mã NV cũng lại là NTH ( mình muốn nó thành NTH01).
Bác nào chỉ giúp em với ạ ( viết lệnh VBA)
Tại mình mới dùng VBA. Bạn có thể ghi giúp mình không ạ.
Mình mới chỉ tách được tên. Nhưng những tên trùng thì nó không hiện ra được số (
Function Name(Str As String) As String
Dim i As Byte
Str = Trim(Str): Name = Left(Str, 1)
For i = 1 To Len(Str)
If Mid(Str, i, 1) = " " Then Name = Name + Mid(Str, i + 1, 1)
Next
End Function
Tại mình mới dùng VBA. Bạn có thể ghi giúp mình không ạ.
Mình mới chỉ tách được tên. Nhưng những tên trùng thì nó không hiện ra được số (
Function Name(Str As String) As String
Dim i As Byte
Str = Trim(Str): Name = Left(Str, 1)
For i = 1 To Len(Str)
If Mid(Str, i, 1) = " " Then Name = Name + Mid(Str, i + 1, 1)
Next
End Function
Function xử lý từng ô thì không cần dùng dic, cần thêm tham số các mã được tạo trước đó
Mã:
Function Name(str As String, rng As Range) As String
If str = Empty Then Exit Function
Dim i As Long, k As Long, tmp As String, cel As Range
str = Trim(str): tmp = Left(str, 1)
For i = 1 To Len(str)
If Mid(str, i, 1) = " " Then tmp = tmp + Mid(str, i + 1, 1)
Next
For Each cel In rng
If cel.Value = tmp Then
k = k + 1
ElseIf cel.Value Like tmp & "##" Then
k = k + 1
End If
Next cel
If k = 0 Then
Name = tmp
Else
Name = tmp & Format(k, "00")
End If
End Function