Bạn thử dùng cái Sub này xem sao:Dear ACE diễn đàn !
Mình có 1 file các cv con đang bị group lại. Mình chỉ muốn copy và paste cá cv cha, từ cột Q sang cột U.
Mình thử dùng Visible và copy, rồi paste nhưng vẫn ko được.
ACE nào biết xin giúp đỡ mình với
Chân thành cảm ơn diễn đàn.
Sub CV_Cha()
Dim i As Long, Er As Long
Application.ScreenUpdating = False
With Sheets("CTIET")
.Range("U5:U65535").ClearContents
Er = .Range("Q65535").End(3).Row
For i = 5 To Er
If .Range("B" & i) <> Empty And .Range("F" & i) = Empty Then
.Range("U" & i) = .Range("Q" & i)
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Dear ACE diễn đàn !
Mình có 1 file các cv con đang bị group lại. Mình chỉ muốn copy và paste cá cv cha, từ cột Q sang cột U.
Mình thử dùng Visible và copy, rồi paste nhưng vẫn ko được.
ACE nào biết xin giúp đỡ mình với
Chân thành cảm ơn diễn đàn.
View attachment 174669
Trời ạ:Dear ACE diễn đàn !
Mình có 1 file các cv con đang bị group lại. Mình chỉ muốn copy và paste cá cv cha, từ cột Q sang cột U.
Mình thử dùng Visible và copy, rồi paste nhưng vẫn ko được.
ACE nào biết xin giúp đỡ mình với
Chân thành cảm ơn diễn đàn.