Tách hộ mình chuỗi kí tự này với (1 người xem)

[nguyenxuanson]

Mình nhập dữ liệu ở cột B giờ mình muốn tách đường kính ống và chiều dày ra để tính khối lượng như ở cột I và cột J các bạn cho mình cách sử lý tình huống này để khi mình kéo xuống nó sẽ tự động tính hết và không phải gõ.
File đính kèm của nó đây

 

[hungpecc1]

Mình nhập dữ liệu ở cột B giờ mình muốn tách đường kính ống và chiều dày ra để tính khối lượng như ở cột I và cột J các bạn cho mình cách sử lý tình huống này để khi mình kéo xuống nó sẽ tự động tính hết và không phải gõ.
File đính kèm của nó đây

=TRIM(MID(SUBSTITUTE(SUBSTITUTE(B4,"(Ø",REPT(" ",255)),"x",REPT(" ",255)),255,255))

=TRIM(SUBSTITUTE(RIGHT(SUBSTITUTE(B4,"x",REPT(" ",255)),255),")",""))

 

[phihndhsp]

File này có rất nhiều dòng không theo chuẩn nên sẽ sai xót khá nhiều đó

 

[nguyenxuanson]

File này có rất nhiều dòng không theo chuẩn nên sẽ sai xót khá nhiều đó

Thế thì ban căng quá vì em cần phải chính xác tuyệt đối Mà mấy hàm anh dùng em chỉ biết mỗi hàm right nên phải ngâm cứu cái ý nghĩa của nó chứ hok hiểu mô tê răng rứa chi hết.

 

[dxvien]

Tại I4=MID(SUBSTITUTE(B4;"x";" ");1+FIND("Ø";B4);3)
Tại J4=MID(SUBSTITUTE(B4;")";" ");1+FIND("x";B4);4)

 

[nguyenxuanson]

Mình vừa tìm ra cái này thử chính xách lắm thank các bác nhiều

=MID(B4;FIND("Ø";B4;1)+1;FIND("x";B4;1)-FIND("Ø";B4;1)-1)

 

[nguyenxuanson]

Tại I4=MID(SUBSTITUTE(B4;"x";" ");1+FIND("Ø";B4);3)
Tại J4=MID(SUBSTITUTE(B4;")";" ");1+FIND("x";B4);4)

Cái của bác dễ hiểu nhờ nó mà em đã thông kinh mạch rồi

 

[khanhcang2]

Mình nhập dữ liệu ở cột B giờ mình muốn tách đường kính ống và chiều dày ra để tính khối lượng như ở cột I và cột J các bạn cho mình cách sử lý tình huống này để khi mình kéo xuống nó sẽ tự động tính hết và không phải gõ.
File đính kèm của nó đây

Bạn thử làm thế này:
B1: Alt+F11
B2: Phải chuột vào Workbook > insert Modul > Copy đoạn code sau paste vào cửa sổ VBA> save

Private Function CHIEUDAY(ten As String)
Dim j As Integer
Name = Trim(ten)
For j = Len(Name) To 1 Step -1
If Mid(Name, j, 1) = "x" Then
CHIEUDAY = Mid(Name, j + 1, Len(Name) - j - 1)
Exit For
End If
Next
End Function


Private Function Duongkinh(ten As String)
Dim j As Integer
Dim i As Integer
Name = Trim(ten)
For j = Len(Name) To 1 Step -1
If Mid(Name, j, 1) = "Ø" Then
Sakat = Mid(Name, j + 1, Len(Name) - j - 1)
Exit For
End If
Next
For i = 1 To Len(Sakat) Step 1
If Mid(Sakat, i, 1) = "x" Then
Duongkinh = Left(Sakat, i - 1)
Exit For
End If
Next
End Function


B3: Trở lại excel sử dụng 2 hàm "Chieuday" và hàm "Duongkinh"