Tách số trong chuỗi ký tự (5 người xem)

[ki_calvin]

Nhờ a chị giúp em hàm bỏ chữ X ra chỉ lấy số đầu và số cuối.Em cám ơn cả nhả.

 

[huonglien1901]

Nhờ a chị giúp em hàm bỏ chữ X ra chỉ lấy số đầu và số cuối.Em cám ơn cả nhả.

Bạn thử dùng Text to column!

 

[phulien1902]

Nhờ a chị giúp em hàm bỏ chữ X ra chỉ lấy số đầu và số cuối.Em cám ơn cả nhả.

Bạn thử:

Sub abc()
    Dim LR As Long, i As Long
    LR = Range("C" & Rows.Count).End(3).Row
    For i = 5 To LR
         Range("D" & i).Resize(, 2) = Array(Split(Range("c" & i), "x")(0), Split(Range("c" & i), "x")(1))
    Next i
End Sub

 

[ki_calvin]

thank cả nhà để em thử

 

[ki_calvin]

Bạn thử:

Sub abc()
    Dim LR As Long, i As Long
    LR = Range("C" & Rows.Count).End(3).Row
    For i = 5 To LR
         Range("D" & i).Resize(, 2) = Array(Split(Range("c" & i), "x")(0), Split(Range("c" & i), "x")(1))
    Next i
End Sub

anh ơi a có thể add vào vba cho e luôn được không?máy e nãy giở mở không được đẻ chèn vô.em cám ơn

 

[phulien1902]

anh ơi a có thể add vào vba cho e luôn được không?máy e nãy giở mở không được đẻ chèn vô.em cám ơn

Bạn xem File

 

[ndu96081631]

Record macro quá trình Text to Colums, xong chỉnh lại một chút ra code thế này:

Sub Macro1()
  Range("C5:C11").TextToColumns Destination:=Range("D5"), OtherChar:="x"
End Sub

 

[ki_calvin]

Bạn xem File

cám ơn a nhiều

 

[ki_calvin]

Record macro quá trình Text to Colums, xong chỉnh lại một chút ra code thế này:

Sub Macro1()
  Range("C5:C11").TextToColumns Destination:=Range("D5"), OtherChar:="x"
End Sub

cám ơn anh nhiều