Cần anh/chị hướng dẫn chèn dấu "." lần lượt vào một chuỗi trong excel (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Cái này là lãng phí tài nguyên, tôi nghĩ không nên giúp.
 
Rất tiếc xin lỗi bạn, vì lý do:
Dạ,em tạo mail rác để khảo sát các bác ạ chứ ko có hại gì hết á :(
Nên tôi không thể giúp được.


Không phải "Nguy hiểm" mà là "Hết sức nguy hiểm"... Tôi & các Thành viên GPE hóng hồi sáng tới bây chừ...mà chưa được thưởng thức..ấy chứ...
a01.gif
a01.gif
a01.gif

Không nguy hiểm đâu có thể làm công thức ra đủ 9 nhóm trường hợp như HungQuoc49 phân tích ở đây, tất nhiên mỗi email tạo ra ở 1 cell riêng lẻ. Nhưng rất tiếc là không giúp được bạn ấy vì tôi không muốn bị mail rác. Riêng sms rác cũng mệt rui
Hình như công thức chưa tính hết các trường hợp yêu cầu của chủ thớt thì phải.
Theo như bài 1 thấy có ít nhất ~ 9 nhóm trường hợp
Nhóm 1 là có 1 dấu "." chạy từ sau ký tự thứ nhất tới sát ký tự trước @
Nhóm 2 là có 2 dấu "." cũng chạy như trên
Nhóm 3 là có 3 dấu "." cũng chạy như trên...
cho tới có 9 dấu "."

Không thấy chủ thớt phản hồi nên đoán đại vậy.
Nếu đúng là thế thì vẫn rất muốn ppc0312 thể hiện 1 lần cho mở rộng tầm mắt

---
Chỉ là mượn bài của bác BaTê để có cơ hội tìm hiểu thêm công thức của ppc0312, không có ý gì khác.

chính xác là 9 nhóm như người hỏi yêu cầu
Bây h e muốn tạo dấu chấm "." lần lượt chèn vào giữa các kí tự như sau
1)
c.onghung02@gmail.com , co.nghung02@gmail.com , con.ghung02@gmail.com .v.v..
2) c.o.nghung02@gmail.com , c.on.ghung02@gmail.com , c.ong.hung02@gmail.com v.v
...
đến
9)
c.o.n.g.h.u.n.g.0.2@gmail.com
 
Lần chỉnh sửa cuối:
Rất tiếc xin lỗi bạn, vì lý do:

Nên tôi không thể giúp được.




Không nguy hiểm đâu có thể làm công thức ra đủ 9 nhóm trường hợp như HungQuoc49 phân tích ở đây, tất nhiên mỗi email tạo ra ở 1 cell riêng lẻ. Nhưng rất tiếc là không giúp được bạn ấy vì tôi không muốn bị mail rác. Riêng sms rác cũng mệt rui
Thật là đáng tiếc khi không thể chiêm ngưỡng được công thức của bạn.
Có lẽ cũng nên phô diễn tí kỹ năng để khẳng định câu nói của mình.
Liệu bạn có thể ?
 
Thật là đáng tiếc khi không thể chiêm ngưỡng được công thức của bạn.
Có lẽ cũng nên phô diễn tí kỹ năng để khẳng định câu nói của mình.
Liệu bạn có thể ?

Không có gì cao siêu đâu, kỹ năng thường thường ấy mà: left, mid, và & , kết hợp linh động tính toán ra vị trí dấu "." với rows(..) ,columns(...) là được (nhờ 2 hàm này trải ra trên vùng bảng tính thì sẽ có kết quả). bật mí nữa thành không còn bí mật.
 
Không có gì cao siêu đâu, kỹ năng thường thường ấy mà: left, mid, và & , kết hợp linh động tính toán ra vị trí dấu "." với rows(..) ,columns(...) là được (nhờ 2 hàm này trải ra trên vùng bảng tính thì sẽ có kết quả). bật mí nữa thành không còn bí mật.
Thêm tí nữa cho nó vui: right(),int(),mod() cho bài này.
Xưa có "thuyết trăm voi", tưởng là xạo, giờ mới biết là thật.


 
Thêm tí nữa cho nó vui: right(),int(),mod() cho bài này.
Xưa có "thuyết trăm voi", tưởng là xạo, giờ mới biết là thật.

Nếu muốn thì bạn có thể mở chủ đề mới, với bài gần tương tự , không liên quan mail rác tôi sẽ đưa công thức lên (chỉ trường hợp không thấy nguy hại chung , còn thấy thì cũng không), còn ở chủ đề này thì dính đến mail rác nên không thể. Vì trăm voi hay nghìn voi thì cũng không thể ảnh hưởng rác cho cộng đồng được.
 
Lần chỉnh sửa cuối:
Nếu muốn thì bạn có thể mở chủ đề mới, với bài gần tương tự , không liên quan mail rác tôi sẽ đưa công thức lên (chỉ trường hợp không thấy nguy hại chung , còn thấy thì cũng không), còn ở chủ đề này thì dính đến mail rác nên không thể. Vì trăm voi hay nghìn voi thì cũng không thể ảnh hưởng rác cho cộng đồng được.
Bạn nói đến rác nhiều quá mà chẳng có thể hiện gì để chứng thực.
Với cá nhân tôi thì có lẽ bạn không thể giải quyết bài này bằng công thức.

Lập chủ đề mới có lẽ cũng chẳng có kết quả gì, mất công.
Nếu tôi sai thì bạn hãy chứng minh là mình đúng xem sao, với một bài công thức tương tự theo sở trường của bạn.
Liệu chứng minh được ?
 
Bạn nói đến rác nhiều quá mà chẳng có thể hiện gì để chứng thực.
Với cá nhân tôi thì có lẽ bạn không thể giải quyết bài này bằng công thức.

Lập chủ đề mới có lẽ cũng chẳng có kết quả gì, mất công.
Nếu tôi sai thì bạn hãy chứng minh là mình đúng xem sao, với một bài công thức tương tự theo sở trường của bạn.
Liệu chứng minh được ?

Rất tiếc tôi không cần chứng minh với bạn làm gì. Giúp cho người hỏi thì mới cần thiết. Nhưng không giúp được chủ topic vì lý do tôi đã nói.
 
Rất tiếc tôi không cần chứng minh với bạn làm gì. Giúp cho người hỏi thì mới cần thiết. Nhưng không giúp được chủ topic vì lý do tôi đã nói.
Thôi thì làm thử nhóm trường hợp có 1 dấu "."
Với 9 cái mail rác thì có lẽ cũng chẳng có gì là tội lỗi đối với > 6 tỉ người
Mã:
Public Sub ppc0312()
Dim Chuoi, Tam, kq(), i As Long

Chuoi = Split("conghung02@gmail.com", "@")(0)
i = (Len(Chuoi) - 1) * 2 + 1
ReDim Tam(1 To i), kq(1 To 65000, 1 To 1)

For i = 1 To Len(Chuoi)
Tam((i - 1) * 2 + 1) = Mid(Chuoi, i, 1)
Next i

For i = 1 To Len(Chuoi) - 1
Chuoi = Tam
Chuoi(i * 2) = "."
kq(i, 1) = Replace(Join(Chuoi), " ", "")
Next i

Sheet1.UsedRange.Clear
Sheet1.Range("A1").Resize(i, 1) = kq
End Sub
---
Nhờ bạn cho ý kiến để rộng đường hiểu biết
 
Các cụ đã bảo "Thùng rỗng thì kêu to " rồi mà....quả không sai phải không bạn?

To hay không, rỗng hay không thì cuối cùng là không khả năng làm được là rỗng thui.
Mỗi người một quan điểm với việc gây hại (xấu), tôi không thể không vì lợi ích chung, không thể tiếp tay cho hành động có nguy cơ phương hại cộng đồng. Ai khác, thích thì cứ làm, đừng suy lung tung.
 
Thôi bạn dẹp quách cái kiểu đạo đức "vì lợi ích chung"...."nguy cơ phương hại cộng đồng". Có cái công thức excel thôi mà...
Tôi thừa biết từ đầu là bạn chả biết tí gì hết...chẳng qua tham gia trả lời là muốn bạn hành đồng & lời nói của mình như thế nào ở GPE này thôi.
đã không biết thì nói không biết, còn bày đặt...làm ra vẻ ta đây...
NÓi túm lại: GPE không chấp người người nguy hiểm như bạn đâu...
Ngày xưa Các cụ có câu: "biết thì thưa thốt không biết thì dựa cột mà nghe"
Ngày nay Lớp trẻ nó lại có câu: "Ngu mà tỏ ra nguy hiểm"

Tuy hai câu nó không ăn nhậu gì với nhau hết...Nhưng kể ra dùng cũng được!!!

Thui dẹp luôn cái kiểu nói của bạn đi, dẹp đi
Tôi không thích giúp thì không thế thui, nói năng linh tinh. Không biết gì nhưng làm được là được, còn hơn cứ oai oái suy người khác mà thui. Dừng đi. rac mãi là rác mà thui.

Nhờ smod bỏ hoặc khoá cái chủ đề này đi. Mục đích rác thì không nên để.
 
Đúng là nên dừng lại đi các bạn!

Nói ít hiểu nhiều, mong các bạn cảm thông.
 
Khoan nói chuyện rải mail rác, và bỏ đi chuyện thổi phồng.
Nới trên cương vị giải thuật thì đây là mọt bài toán hóc búa (trừ phi có chỗ nào quá đơn giản mà tôi không thấy nổi). Bạn nào đã thử code chưa?

Trước mắt thì khuynh hướng code là viết 1 hàm rải dẩu chấm lần lượt sau từng ký tự. Hàm này sẽ gọi dệ quy nó để rải chỗ còn lại.
vd chuỗi "quasuchocbua12":
Hàm rải dấu chấm vào sau q, và tự đệ quy nó để tính tiếp "uasuchocbua", cho ra dạng q.xxxxxxxx
Kế đó, nó rài dâu chấm sau u, và tự đệ quy nó để tính tiếp "asuchocbua", cho ra dạng qu.xxxxxxx
Tiếp tục cho đến ký tự cuối là 2

(*) đang suy nghĩ xem có cách nào rải bom (rải tùm lum) dấu cách rồi dùng hàm trim?
 
Nếu đề bài cho caigido@yahoo.com mà kết quả 2 kiểu là:
1) c.aigido@yahoo.com (1 cell); ca.igido@yahoo.com (1 cell); cai.gido@yahoo.com (1 cell).......caigid.o@yahoo.com (1 cell)
2) c.aigido@yahoo.com (1 cell); c.a.igido@yahoo.com (1 cell); c.a.i.gido@yahoo.com (1 cell).....c.a.i.g.i.d.o@yahoo.com (1 cell)
Thì dùng công thức hay code gì cũng.....đơn giản như nhau thôi
Híc
Như vậy chưa đủ đâu anh, còn cai.gi.do@yahoo.com (và những trường hợp khác) nữa.
 
Thôi thì làm thử nhóm trường hợp có 1 dấu "."
Với 9 cái mail rác thì có lẽ cũng chẳng có gì là tội lỗi đối với > 6 tỉ người
Mã:
Public Sub ppc0312()
Dim Chuoi, Tam, kq(), i As Long

Chuoi = Split("conghung02@gmail.com", "@")(0)
i = (Len(Chuoi) - 1) * 2 + 1
ReDim Tam(1 To i), kq(1 To 65000, 1 To 1)

For i = 1 To Len(Chuoi)
Tam((i - 1) * 2 + 1) = Mid(Chuoi, i, 1)
Next i

For i = 1 To Len(Chuoi) - 1
Chuoi = Tam
Chuoi(i * 2) = "."
kq(i, 1) = Replace(Join(Chuoi), " ", "")
Next i

Sheet1.UsedRange.Clear
Sheet1.Range("A1").Resize(i, 1) = kq
End Sub
---
Nhờ bạn cho ý kiến để rộng đường hiểu biết
Làm trường hợp của anh theo cách khác:
Mã:
Public Sub mail()
Dim i As Long, j As Long, mau As String, vt As Long, kq(), tmp As String
tmp = Sheet1.Range("A2")
vt = InStr(1, tmp, "@") - 1
mau = Left(tmp, vt)
ReDim kq(1 To vt, 1 To 1)
For i = 1 To vt
kq(i, 1) = Left(mau, i) & "." & Right(mau, vt - i) & "@gmail.com"
Next i
Sheet1.Range("B2").Resize(vt, 1) = kq
End Sub
Giả sử chuỗi mẫu đang nằm ở ô A2
 
Thôi bạn dẹp quách cái kiểu đạo đức "vì lợi ích chung"...."nguy cơ phương hại cộng đồng". Có cái công thức excel thôi mà...
Tôi thừa biết từ đầu là bạn chả biết tí gì hết...chẳng qua tham gia trả lời là muốn bạn hành đồng & lời nói của mình như thế nào ở GPE này thôi.
đã không biết thì nói không biết, còn bày đặt...làm ra vẻ ta đây...
NÓi túm lại: GPE không chấp người người nguy hiểm như bạn đâu...
Ngày xưa Các cụ có câu: "biết thì thưa thốt không biết thì dựa cột mà nghe"
Ngày nay Lớp trẻ nó lại có câu: "Ngu mà tỏ ra nguy hiểm"

Tuy hai câu nó không ăn nhậu gì với nhau hết...Nhưng kể ra dùng cũng được!!!

Bạn nói vậy không được đâu nha. Bởi người ta có nói rằng:
Nếu muốn thì bạn có thể mở chủ đề mới, với bài gần tương tự , không liên quan mail rác tôi sẽ đưa công thức lên (chỉ trường hợp không thấy nguy hại chung , còn thấy thì cũng không), còn ở chủ đề này thì dính đến mail rác nên không thể. Vì trăm voi hay nghìn voi thì cũng không thể ảnh hưởng rác cho cộng đồng được.
Vậy, bạn cứ làm hài lòng người ta bằng cách mở topic mới, đặt vấn đề tương tự nhưng không liên quan gì đến việc tạo mail rác, rồi người ta sẽ biểu diễn cho bạn thấy
Lưu ý cách đặt vấn đề sao cho không "phạm" vào chỗ màu đỏ là được!
 
Web KT

Bài viết mới nhất

Back
Top Bottom