Tách chuỗi vào từng cột

[quocthan92]

Sub test()
Dim text1 As String, text2 As String, text3 As String
text1 = "480 488 498 508 508 506 506 508 510 512"

End Sub

 

[ndu96081631]

Không hiểu nói gì luôn ???

 

[Hoang2013]

Ba số bạn đang cần lấy là những vị trí nào sau đây:

3 số đầu hay 3 số cuối?
Số đầu, đuôi & giữa?
Số có tổng là 9 hay nào khác?
Số gồm ngày trong năm, tháng trong 60 năm & năm trong thế kỷ?
Số luôn tiến hay luôn chẵn hoạc luôn lẽ,. . . .
. . . . . . . .

 

[quocthan92]

Không hiểu nói gì luôn ???

Ý mình là điền vào ô A1:480 B1:488 C1:498 D1:508 ....J1:512 từ biến text1 = "480 488 498 508 508 506 506 508 510 512"

 

[phulien1902]

Ý mình là điền vào ô A1:480 B1:488 C1:498 D1:508 ....J1:512 từ biến text1 = "480 488 498 508 508 506 506 508 510 512"

Thử với:

Sub abc()
  Columns("A").TextToColumns , xlDelimited, , True, False, False, False, True, False
End Sub

 

[Ba Tê]

Ý mình là điền vào ô A1:480 B1:488 C1:498 D1:508 ....J1:512 từ biến text1 = "480 488 498 508 508 506 506 508 510 512"

Thử như vầy xem sao:

Sub test()
   Dim Text1 As String, Tmp
   Text1 = "480 488 498 508 508 506 506 508 510 512"
   Tmp = Split(Text1, " ")
   Range("B2").Resize(, UBound(Tmp) + 1) = Tmp
End Sub

 

[quanluu]

Ý mình là điền vào ô A1:480 B1:488 C1:498 D1:508 ....J1:512 từ biến text1 = "480 488 498 508 508 506 506 508 510 512"

Bạn dùng chức năng có sẵn của excel thui.
Vào data\text to column\Delimited\space\ok