công thức nhảy ô trong exel (1 người xem)

[hoangnguyen131187h]

Chào mọi người, hôm nay mh lại có một bài muốn hỏi mọi người:
Giả sử ở ô A1 có chuỗi: a1+a2+a3+a4+a5+a6+a7
Vậy có cách nào để các ký tự sau dấu + như a2, a3, a4... sẽ tự động nhảy xuống ô dưới A2,A3,A4 không ạ? kiểu như này:
a1
a2
a3
a4
a5
a6
a7

 

[lenongree]

Chào mọi người, hôm nay mh lại có một bài muốn hỏi mọi người:
Giả sử ở ô A1 có chuỗi: a1+a2+a3+a4+a5+a6+a7
Vậy có cách nào để các ký tự sau dấu + như a2, a3, a4... sẽ tự động nhảy xuống ô dưới A2,A3,A4 không ạ? kiểu như này:
a1
a2
a3
a4
a5
a6
a7

Bạn dùng CT này ở A2:

A2=TRIM(MID(SUBSTITUTE($A$1,"+",REPT(" ","20")),(ROW(A1)-1)*20+1,20))

Rồi fill xuông

 

[phulien1902]

Chào mọi người, hôm nay mh lại có một bài muốn hỏi mọi người:
Giả sử ở ô A1 có chuỗi: a1+a2+a3+a4+a5+a6+a7
Vậy có cách nào để các ký tự sau dấu + như a2, a3, a4... sẽ tự động nhảy xuống ô dưới A2,A3,A4 không ạ? kiểu như này:
a1
a2
a3
a4
a5
a6
a7

Thêm 1 cách cho bạn tham khảo:

Sub Tach()
    Dim St$, i%, a
    ' St = Range("A1").Value
    St = ActiveCell.Value
    a = Split(St, "+")
    For i = 0 To UBound(a)
        Cells(i + 2, 1).Value = a(i)
    Next i
End Sub

 

[hoangnguyen131187h]

Bạn dùng CT này ở A2:

A2=TRIM(MID(SUBSTITUTE($A$1,"+",REPT(" ","20")),(ROW(A1)-1)*20+1,20))

Rồi fill xuông

Rất cảm ơn bạn. nhưng cho mh hỏi, mình áp dụng cho dãy sau:
[TABLE="width: 377"]
[TR]
[TD]KB034-1211+ K 6867+ 6902+ 6916+ 6901+ 6910+ 6913
Thì nó nhảy như sau:
[TABLE="width: 462"]
[TR]
[TD]KB034-1211[/TD]
[/TR]
[TR]
[TD]K 6867[/TD]
[/TR]
[TR]
[TD]69[/TD]
[/TR]
[TR]
[TD]02[/TD]
[/TR]
[TR]
[TD]6916[/TD]
[/TR]
[TR]
[TD]6901[/TD]
[/TR]
[TR]
[TD]6910[/TD]
[/TR]
[TR]
[TD]69[/TD]
[/TR]
[TR]
[TD]13[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
có phải do kí tự ở dãy trên không đúng với công thức của bạn nên bị sai không?

 

[quanluu]

Rất cảm ơn bạn. nhưng cho mh hỏi, mình áp dụng cho dãy sau:
[TABLE="width: 377"]
[TR]
[TD]KB034-1211+ K 6867+ 6902+ 6916+ 6901+ 6910+ 6913
Thì nó nhảy như sau:
[TABLE="width: 462"]
[TR]
[TD]KB034-1211[/TD]
[/TR]
[TR]
[TD]K 6867[/TD]
[/TR]
[TR]
[TD]69[/TD]
[/TR]
[TR]
[TD]02[/TD]
[/TR]
[TR]
[TD]6916[/TD]
[/TR]
[TR]
[TD]6901[/TD]
[/TR]
[TR]
[TD]6910[/TD]
[/TR]
[TR]
[TD]69[/TD]
[/TR]
[TR]
[TD]13[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
có phải do kí tự ở dãy trên không đúng với công thức của bạn nên bị sai không?

bạn sủa số 20 bằng 1 số lớn hơn: 50 hoăc 100... nhé

 

[hoangnguyen131187h]

Thêm 1 cách cho bạn tham khảo:

Sub Tach()
    Dim St$, i%, a
    ' St = Range("A1").Value
    St = ActiveCell.Value
    a = Split(St, "+")
    For i = 0 To UBound(a)
        Cells(i + 2, 1).Value = a(i)
    Next i
End Sub

cảm ơn bnaj. mh sẽ thử

 

[hoangnguyen131187h]

bạn sủa số 20 bằng 1 số lớn hơn: 50 hoăc 100... nhé

đã xong. cảm ơn mọi người nhiều nhé. mở mang được thêm bao nhiêu kiến thức ^^