Nhờ vozer giải giúp bài excel (googlesheet)

Bố em cũng tên L ạ. :D
Kết quả của bác giống bác bên trên, nhưng em không hiểu sao nó bị thừa 1 số cụm như em bôi vàng nè.
Screen Shot 2021-07-13 at 20.36.40.png
 
Khóc. :LOL: Làm thế nào để nó không dính kiểu thế hả bác. :LOL:)
Update lại, thím chạy cái này thử xem còn lỗi đó nữa không

Code:
Sub sayHello()
    Dim i As Integer
    Dim j As Integer
    Dim isContainsKey As Boolean
    Dim index As Integer
    Dim stringKeydai As String
    Dim stringKeyNgan As String
    Dim stringBefore, stringAfter As String
 
    For i = 2 To 221  'Vi tri bat dau va ket thuc list key dai
        stringKeydai = Cells(i, 1).Value
        For j = 2 To 9917 'Vi tri bat dau va ket thuc list key ngan
       
            stringKeyNgan = Cells(j, 2).Value
       
            index = InStr(stringKeydai, stringKeyNgan)
       
            If index = 0 Then 'Khong chua key
           
            Else
                'Kiem tra vi tri truoc, va sau phai la khoang trang hay khong
                If index > 1 Then
                    stringBefore = Mid(stringKeydai, index - 1, 1)
                End If
               
                If index + Len(stringKeyNgan) <= Len(stringKeydai) Then
                    stringAfter = Mid(stringKeydai, index + Len(stringKeyNgan), 1)
                End If
               
                If stringBefore = " " And stringAfter = " " Then
                    isContainsKey = True
                    stringKeydai = Application.Trim(Replace(stringKeydai, stringKeyNgan, ""))
                End If
               
               
            End If
       
        Next
   
        If isContainsKey = False Then
            Cells(i, 3) = stringKeydai
        Else
            Cells(i, 4) = stringKeydai
        End If
        isContainsKey = False
    Next
End Sub
 
ai bảo mua đâu, đặt tên cho vui thôi, check lại đi chắc ok rồi đấy :LOL:
đúng rồi đó ạ, mà làm thế nào để sau này em tự làm được hả bác? :LOL:) Em đang tìm cách làm để xử lý đống dữ liệu còn lại ý ạ.
 
Update lại, thím chạy cái này thử xem còn lỗi đó nữa không

Code:
Sub sayHello()
    Dim i As Integer
    Dim j As Integer
    Dim isContainsKey As Boolean
    Dim index As Integer
    Dim stringKeydai As String
    Dim stringKeyNgan As String
    Dim stringBefore, stringAfter As String
 
    For i = 2 To 221  'Vi tri bat dau va ket thuc list key dai
        stringKeydai = Cells(i, 1).Value
        For j = 2 To 9917 'Vi tri bat dau va ket thuc list key ngan
      
            stringKeyNgan = Cells(j, 2).Value
      
            index = InStr(stringKeydai, stringKeyNgan)
      
            If index = 0 Then 'Khong chua key
          
            Else
                'Kiem tra vi tri truoc, va sau phai la khoang trang hay khong
                If index > 1 Then
                    stringBefore = Mid(stringKeydai, index - 1, 1)
                End If
              
                If index + Len(stringKeyNgan) <= Len(stringKeydai) Then
                    stringAfter = Mid(stringKeydai, index + Len(stringKeyNgan), 1)
                End If
              
                If stringBefore = " " And stringAfter = " " Then
                    isContainsKey = True
                    stringKeydai = Application.Trim(Replace(stringKeydai, stringKeyNgan, ""))
                End If
              
              
            End If
      
        Next
  
        If isContainsKey = False Then
            Cells(i, 3) = stringKeydai
        Else
            Cells(i, 4) = stringKeydai
        End If
        isContainsKey = False
    Next
End Sub
huhu đã đúng rồi bác ơiiii. :LOL:))) Mai em mời bác uống trà nhé. :D
 
:LOL:) hic em đang tìm cách làm trên 1 mẫu nhỏ để áp dụng cho đống mấy trăm k key ý bác ơi. :(
bác muốn học thì theo một khóa nào đó trên mạng ấy, rồi làm dần là nó lên thôi, còn mấy trăm k thì bảo đệ nó làm cho bác à
 
Cái này chắc chắn phải dùng lập trình rồi so sánh. Chỉ công thức excel mà ko có vba e là lo làm nổi
 
bác muốn học thì theo một khóa nào đó trên mạng ấy, rồi làm dần là nó lên thôi, còn mấy trăm k thì bảo đệ nó làm cho bác à
Mấy trăm k key ý dùng excel có ổn k chị :( sao k chuyển sang file csv xong code sử lý số liệu :(

Team muốn test thử trước, nếu ok thì mới dám mò sang tech nhờ support. :LOL:) Làm xong không ra gì cũng đòi support linh tinh cno cười cho vào mặt mất hix. Chắc mình tách thành mấy file nhỏ hơn để chạy cho nó đỡ nặng. :D
 
Team muốn test thử trước, nếu ok thì mới dám mò sang tech nhờ support. :LOL:) Làm xong không ra gì cũng đòi support linh tinh cno cười cho vào mặt mất hix. Chắc mình tách thành mấy file nhỏ hơn để chạy cho nó đỡ nặng. :D
Có gì đâu, cười lại vào mặt chúng nó. B chạy script vẫn ổn. Nó tính đc cả triệu dòng mà
 
Back
Top