Copy tên nick trong fb

[hiénlinh197]

Nhờ các bạn làm bằng công thức hoặc VBA như trong file đính kèm.
Cảm ơn các bạn!

 

[befaint]

Bây giờ chủ thớt chỉ ghi một câu: "Kết quả giống y chang (100%) file đính kèm là xong" thì mới tính tiếp. Miễn oằn là tà là vằn đằng sau.

 

[phulien1902]

Nhờ các bạn làm bằng công thức hoặc VBA như trong file đính kèm.
Cảm ơn các bạn!

Bạn thử:

Sub abc()
    Dim LR
    LR = Range("B" & Rows.Count).End(3).Row
    For i = 1 To LR
        If Cells(i, 2) = "Qu" & ChrW(7843) & "n lý" Then
           Cells(i + 4, 1) = Cells(i, 2).Offset(3)
       End If
 Next
End Sub

 

[hiénlinh197]

Bạn thử:

Sub abc()
    Dim LR
    LR = Range("B" & Rows.Count).End(3).Row
    For i = 1 To LR
        If Cells(i, 2) = "Qu" & ChrW(7843) & "n lý" Then
           Cells(i + 4, 1) = Cells(i, 2).Offset(3)
       End If
Next
End Sub

Cảm ơn bạn
phulien1902
, bạn xem có cách nào lấy được tên nick của dòng đầu tiên không, Làm giúp luôn cho mình với nhé!

 

[phulien1902]

Cảm ơn bạn
phulien1902
, bạn xem có cách nào lấy được tên nick của dòng đầu tiên không, Làm giúp luôn cho mình với nhé!

Không rõ có phải là:

Sub abc2()
    Dim LR
    LR = Range("B" & Rows.Count).End(3).Row
    For i = 1 To LR
        If Cells(i, 2) = "Qu" & ChrW(7843) & "n lý" Then
           Cells(i - 1, 1) = Cells(i, 2).Offset(-1)
       End If
    Next
End Sub

 

[hiénlinh197]

Sub abc2()
Dim LR
LR = Range("B" & Rows.Count).End(3).Row
For i = 1 To LR
If Cells(i, 2) = "Qu" & ChrW(7843) & "n lý" Then
Cells(i - 1, 1) = Cells(i, 2).Offset(-1)
End If
Next
End Sub

 

[hiénlinh197]

Không rõ có phải là:

Sub abc2()
    Dim LR
    LR = Range("B" & Rows.Count).End(3).Row
    For i = 1 To LR
        If Cells(i, 2) = "Qu" & ChrW(7843) & "n lý" Then
           Cells(i - 1, 1) = Cells(i, 2).Offset(-1)
       End If
    Next
End Sub

Cảm ơn bạn
phulien1902
ý của mình là vẫn lấy như code của bài #2; Nhưng mình thấy là ô B1 phải tách tên sang ô " A1" là rất khó. Bạn vẫn dùng code bài #2 nhưng thêm đoạn tách tên ô "B1" và dán sang ô "A1"

 

[hiénlinh197]

Bạn thử:

Sub abc()
    Dim LR
    LR = Range("B" & Rows.Count).End(3).Row
    For i = 1 To LR
        If Cells(i, 2) = "Qu" & ChrW(7843) & "n lý" Then
           Cells(i + 4, 1) = Cells(i, 2).Offset(3)
       End If
Next
End Sub

Chào bạn
phulien1902
Bài này nói chung là đúng nhưng xử lý tên nickname đầu tiên là hơi khó,bạn có thế thêm cho mình là nều chiều dài của các ký tự lớn hơn 30 thì sẽ chuyển sang cột "A" được không?
Cảm ơn bạn!

 

[HieuCD]

Nhờ các bạn làm bằng công thức hoặc VBA như trong file đính kèm.
Cảm ơn các bạn!

Sub abc()
    Dim LR As Long, s As Variant, Str As String
    LR = Range("B" & Rows.Count).End(3).Row
    For i = 2 To LR
        If Cells(i, 2) = "Qu" & ChrW(7843) & "n lý" Then
            Str = Cells(i - 1, 2).Value
            s = Split(Str, " ")
            Cells(i - 1, 1) = Mid(Str, 1, InStr(Str, s(UBound(s))) - 2)
       End If
    Next
End Sub