hỏi về công thức ghép số (1 người xem)

[anhhien0510]

Mình có file này. Câu hỏi bên trong. Mong các bác giúp mình nhé

 

[anhhien0510]

Hỏi về công thức trộn số

 

[langtuchungtinh360]

Hỏi về công thức trộn số

nhấn vào tải Kapersky báo thế này

[COLOR=#2C2C2C][FONT=tahoma]Liên kết yêu cầu không được cung cấp[/FONT][/COLOR]

[B]Liên kết đối tượng:

[URL]http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=148752&d=1444734985[/URL]

[B]Lý do:

đối tượng bị nhiễm mã độc bởi [URL="http://redirect.kaspersky.com/?hl=vi-VN&target=securelist&rpe=1&function=search&VN=Virus.MSExcel.Agent.c"]Virus.MSExcel.Agent.c[/URL]

[/B][/B]

 

[anhhien0510]

Máy mình k có pm diệt virut. B thông cảmn

 

[anhhien0510]

Mình tạo lại file bằng đt nè. Bạn giúp mình nhé

 

[giaiphap]

Hỏi về công thức trộn số

Hàm này phải tự viết code VBA thôi.

 

[anhhien0510]

Hàm này phải tự viết code VBA thôi.

B giúp mình được k vậy. Mình k biết code

 

[giaiphap]

B giúp mình được k vậy. Mình k biết code

Bạn xem đúng ý chưa?

 

[anhhien0510]

Bạn xem đúng ý chưa?

Hi. Đúng đó b. B có thể hướng dẫn mình cách làm được k vậy. Hi
..

 

[befaint]

Thử với hàm tự tạo.
Chép đoạn sau vào 1 module:

Function ghepso(sodau As Range, socuoi As Range) As String
Dim sd, sc
Dim i&, j&, kq()
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
sd = Split(sodau, ",")
sc = Split(socuoi, ",")
For i = 0 To UBound(sd)
    For j = 0 To UBound(sc)
         Dic.Add sd(i) & sc(j), ""
    Next j
Next i
kq = Dic.keys
ghepso = Join(kq, ",")
End Function

Công thức bên trang tính:

D7 = ghepso(B7,C7)