Nhờ các anh chị chỉnh lại code (1 người xem)

[Nguyen Rem]

Em chào các anh chị ^^ .
Các anh chị vào modul4 hoặc nhấn run ở trên màn hình để chạy code giúp em với .
Ý tưởng của em là tách họ tên của một người rồi điền lần lượt vào cột B , C , D . Em có làm được một phần rồi nhưng mà hiện tại nó vẫn đang có một số chỗ em vẫn chưa biết viết code ra sao .

Khi mà em nhấn run thì nó bắt đầu chạy từ ô A2 . Các anh chị có cách nào sửa đoạn code của em để bắt nó chạy từ ô A1 theo đúng ý tưởng của em đã đề ra được không ạ . Nếu mà code nó cao siêu quá thì mong các anh chị giải thích giúp em . Em là người mới nên cũng chưa biết nhiều ạ kaka
Em cảm ơn các anh chị nhiều lắm ^^

 

[Ba Tê]

Em chào các anh chị ^^ .
Các anh chị vào modul4 hoặc nhấn run ở trên màn hình để chạy code giúp em với .
Ý tưởng của em là tách họ tên của một người rồi điền lần lượt vào cột B , C , D . Em có làm được một phần rồi nhưng mà hiện tại nó vẫn đang có một số chỗ em vẫn chưa biết viết code ra sao .
View attachment 274978
Khi mà em nhấn run thì nó bắt đầu chạy từ ô A2 . Các anh chị có cách nào sửa đoạn code của em để bắt nó chạy từ ô A1 theo đúng ý tưởng của em đã đề ra được không ạ . Nếu mà code nó cao siêu quá thì mong các anh chị giải thích giúp em . Em là người mới nên cũng chưa biết nhiều ạ kaka
Em cảm ơn các anh chị nhiều lắm ^^

Bạn chạy thử Sub này coi sao

Sub GPE()
Dim Ten As String, i As Long, j1 As Long, j2 As Long, R As Long
R = Range("A100000").End(xlUp).Row  'Xac dinh dong cuoi cot A'
Range("B1:D" & R).ClearContents
For i = 1 To R
    If Range("A" & i) <> Space(0) Then  'Cell co du lieu'
        Ten = Range("A" & i).Value
        j1 = InStr(Ten, " ")    'Vi tri dau cachs dau tien trong cell'
        If j1 = 0 Then 'Trong cell khong co dau cach'
            Range("B" & i) = Ten
        Else
            Range("B" & i) = Left(Ten, j1 - 1)
            j2 = InStrRev(Ten, " ") 'Vi tri Dau cach cuoi trong cell'
                If j2 > j1 Then
                    Range("C" & i) = Mid(Ten, j1 + 1, j2 - j1)
                    Range("D" & i) = Right(Ten, Len(Ten) - j2)
                Else
                    Range("C" & i) = Right(Ten, Len(Ten) - j1)
                End If
        End If
    End If
Next i
End Sub

 

[Nguyen Rem]

Bạn chạy thử Sub này coi sao

Sub GPE()
Dim Ten As String, i As Long, j1 As Long, j2 As Long, R As Long
R = Range("A100000").End(xlUp).Row  'Xac dinh dong cuoi cot A'
Range("B1:D" & R).ClearContents
For i = 1 To R
    If Range("A" & i) <> Space(0) Then  'Cell co du lieu'
        Ten = Range("A" & i).Value
        j1 = InStr(Ten, " ")    'Vi tri dau cachs dau tien trong cell'
        If j1 = 0 Then 'Trong cell khong co dau cach'
            Range("B" & i) = Ten
        Else
            Range("B" & i) = Left(Ten, j1 - 1)
            j2 = InStrRev(Ten, " ") 'Vi tri Dau cach cuoi trong cell'
                If j2 > j1 Then
                    Range("C" & i) = Mid(Ten, j1 + 1, j2 - j1)
                    Range("D" & i) = Right(Ten, Len(Ten) - j2)
                Else
                    Range("C" & i) = Right(Ten, Len(Ten) - j1)
                End If
        End If
    End If
Next i
End Sub

Em đã đọc bài của anh rồi ạ . Em cảm ơn anh nhiều lắm ^^