befaint
|||||||||||||
- Tham gia
- 6/1/11
- Bài viết
- 14,539
- Được thích
- 19,745
Chỗ này để phòng trường hợp người ta nhập thừa khoảng trắng ở cuối ấy.Bác xem trim(B4) có thể bỏ hàm này được không?
Chỗ này để phòng trường hợp người ta nhập thừa khoảng trắng ở cuối ấy.Bác xem trim(B4) có thể bỏ hàm này được không?
Ở hàm lấy tên ý:Chỗ này để phòng trường hợp người ta nhập thừa khoảng trắng ở cuối ấy.
H2="Cửa hàng:"&C2&"Mã cửa hàng"&B2&"Địa chỉ"&D2&","&E2&","&F2&","&G2Cho em hỏi ngược 1 tý
Em muốn gộp dử liệu C2,B2,D2,E2,F2,G2 vào cùng 1 ô H2
với C2 thêm cụm từ "Cửa hàng"
B2 thêm cụm từ "Mã cửa hàng" và
D2 thêm cụm từ "Địa chỉ
Nhờ các cao nhân chỉ giúp ạ
View attachment 200830
Tách tên như bạn là xưa rồi!Tách tên sử dụng:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ","")))))
Tách họ sử dụng:
=LEFT(A2,FIND(" ",A2)-1)
Xem thêm tại http://vnguider.vn/post/id/Tach-ho-va-ten-trong-excel/
A1=MorrisonFaithXin mấy thầy giúp đở tách họ và tên khác nhau ký tự viết hoa với ạ
MorrisonFaith
JustinManning
BlackSebastian
StewartNash
QuinnLily
SimonKing
RutherfordLuke
JosephParsons
BrandonYoung
GrantAnthony
thank
B1=LEFT(A1,MATCH(,INDEX(N(EXACT(LOWER(MID(A1,ROW($2:$100),1)),MID(A1,ROW($2:$100),1))),),))
C1=MID(A1,LEN(B1)+1,100)
Xin bạn giúp đở 1 file excel mình không biết làm sao cho hàm nó chạyA1=MorrisonFaith
A2=JustinManning
A3=BlackSebastian
A4=StewartNash
A5=........
Mã:B1=LEFT(A1,MATCH(,INDEX(N(EXACT(LOWER(MID(A1,ROW($2:$100),1)),MID(A1,ROW($2:$100),1))),),)) C1=MID(A1,LEN(B1)+1,100)
Thân
Anh @Phan Thế Hiệp đã làm đúng theo yêu cầu của bạn rồi mà. Do bạn không chịu gửi file lên.Xin bạn giúp đở 1 file excel mình không biết làm sao cho hàm nó chạy
=LEFT(A1,MATCH(1,--(CODE(MID(A1&"A",ROW($2:$99),1))<91),))
Bạn dùng code này xem đúng không nhé.Làm thế nào để tách chuỗi văn bản theo ký tự đặc biệt : Dấu ":" và dấu "|"
Tôi có những chuỗi như trong file đính kèm , bây giở tôi phai tách ra từng đoạn đươc cách nhau bởi cả dấu ":" và dấu "|"
các bạn giúp tôi với
xin cảm ơn nhiều
Sub tach()
Dim arr, i As Long, a As Long, arr1, T, LR As Long
With Sheet1
LR = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A2:A" & LR).Value
ReDim arr1(1 To UBound(arr, 1), 1 To 100)
For i = 1 To UBound(arr, 1)
a = 0
arr(i, 1) = Replace(arr(i, 1), ":", "|")
For Each T In Split(arr(i, 1), "|")
a = a + 1
arr1(i, a) = T
Next
Next i
.Range("B2").Resize(LR, 100).ClearContents
.Range("B2").Resize(i - 1, 100).Value = arr1
End With
End Sub
Rất cảm ơn bạnBạn dùng code này xem đúng không nhé.
Mã:Sub tach() Dim arr, i As Long, a As Long, arr1, T, LR As Long With Sheet1 LR = .Range("A" & Rows.Count).End(xlUp).Row arr = .Range("A2:A" & LR).Value ReDim arr1(1 To UBound(arr, 1), 1 To 100) For i = 1 To UBound(arr, 1) a = 0 arr(i, 1) = Replace(arr(i, 1), ":", "|") For Each T In Split(arr(i, 1), "|") a = a + 1 arr1(i, a) = T Next Next i .Range("B2").Resize(LR, 100).ClearContents .Range("B2").Resize(i - 1, 100).Value = arr1 End With End Sub
Cho dữ liệu vào Như bạn rồi bấm nút tách thế là xong cần gì biết code.Rất cảm ơn bạn
Nhưng bạn ơi tôi chưa biết gì về CODE cả - tôi mới chập chững học excel mà . Bạn có thể chỉ tôi cách dùng CODE không ? Bạn làm ơn chỉ theo từng bước một nhé - cảm on ban