lọc lấy text trong cột

[quen_tat_ca]

Mình có dữ liệu ở cột B của sheet1 vừa có số vừa có text, giờ mình muốn lọc lấy text ra cột D của sheet2, sau đó tách lấy số ra ờ cột E và text ở cột F, nhờ các bác hướng dẫn dùm. Xin cám ơn!

 

[CHAOQUAY]

Mình có dữ liệu ở cột B của sheet1 vừa có số vừa có text, giờ mình muốn lọc lấy text ra cột D của sheet2, sau đó tách lấy số ra ờ cột E và text ở cột F, nhờ các bác hướng dẫn dùm. Xin cám ơn!

Thử code dưới đây

Option Explicit

Sub abcd()
Dim sArr
Dim Res
Dim i, j, k

sArr = Sheet1.Range("B3").CurrentRegion
ReDim Res(1 To UBound(sArr), 1 To 3)

k = 1
For i = 1 To UBound(sArr)
    If IsNumeric(sArr(i, 1)) = False Then
        Res(k, 1) = sArr(i, 1)
        For j = Len(Res(k, 1)) To 1 Step -1
            If IsNumeric(Left(Res(k, 1), j)) Then
                Res(k, 2) = Left(Res(k, 1), j)
                Res(k, 3) = Right(Res(k, 1), Len(Res(k, 1)) - j)
                
                k = k + 1
                Exit For
            End If
        Next j
    End If
Next i

Sheet2.Range("H3").Resize(k, 3) = Res
End Sub

 

[longtay1111]

Mình có dữ liệu ở cột B của sheet1 vừa có số vừa có text, giờ mình muốn lọc lấy text ra cột D của sheet2, sau đó tách lấy số ra ờ cột E và text ở cột F, nhờ các bác hướng dẫn dùm. Xin cám ơn!

Bạn thử

D3=IF(COLUMN(A:A)=1,INDEX(Sheet1!$B$3:$B$18,AGGREGATE(15,6,ROW($1:$50)/(ISTEXT(Sheet1!$B$3:$B$18)),ROWS($1:1))),IF(COLUMN(A:A)=2,--LEFT(INDEX(Sheet1!$B$3:$B$18,AGGREGATE(15,6,ROW($1:$50)/(ISTEXT(Sheet1!$B$3:$B$18)),ROWS($1:1))),2),RIGHT(INDEX(Sheet1!$B$3:$B$18,AGGREGATE(15,6,ROW($1:$50)/(ISTEXT(Sheet1!$B$3:$B$18)),ROWS($1:1))))))

Bạn kéo công thức xuống và sang ngang.

Thân

 

[Duy Tùng 9x]

Mình có dữ liệu ở cột B của sheet1 vừa có số vừa có text, giờ mình muốn lọc lấy text ra cột D của sheet2, sau đó tách lấy số ra ờ cột E và text ở cột F, nhờ các bác hướng dẫn dùm. Xin cám ơn!

Công thức cũng được nè, nếu bạn có Office 365 và đã được update tới hàm Regex thì khỏe đó mà, không lại dài thêm chút. Mình ví dụ nên làm luôn bên sheet data đó.
=LET(a, FILTER(B3:B18,ISTEXT(B3:B18)), HSTACK(a, REGEXREPLACE(a,{"[^\d]","[^\D]"},)))

 

[quen_tat_ca]

Thử code dưới đây

Option Explicit

Sub abcd()
Dim sArr
Dim Res
Dim i, j, k

sArr = Sheet1.Range("B3").CurrentRegion
ReDim Res(1 To UBound(sArr), 1 To 3)

k = 1
For i = 1 To UBound(sArr)
    If IsNumeric(sArr(i, 1)) = False Then
        Res(k, 1) = sArr(i, 1)
        For j = Len(Res(k, 1)) To 1 Step -1
            If IsNumeric(Left(Res(k, 1), j)) Then
                Res(k, 2) = Left(Res(k, 1), j)
                Res(k, 3) = Right(Res(k, 1), Len(Res(k, 1)) - j)
              
                k = k + 1
                Exit For
            End If
        Next j
    End If
Next i

Sheet2.Range("H3").Resize(k, 3) = Res
End Sub

Mình test chạy rất ok, xin cảm ơn bác, nhưng khi mình bỏ trống 1 ô ( thí dụ như ô B6) thì nó không chạy, mong bác chỉ dạy thêm.

 

[CHAOQUAY]

Mình test chạy rất ok, xin cảm ơn bác, nhưng khi mình bỏ trống 1 ô ( thí dụ như ô B6) thì nó không chạy, mong bác chỉ dạy thêm.

Bạn tìm dòng trên, thay = dòng dưới rồi chạy lại xem sao

'sArr = Sheet1.Range("B3").CurrentRegion
sArr = Sheet1.Range("B3", Sheet1.Range("B" & Rows.Count).End(xlUp))