thientoan65
Thành viên mới

- Tham gia
- 7/7/15
- Bài viết
- 30
- Được thích
- 1
Bạn thử:anh chi giúp e chuyển như file đính kèm
Sub Test()
Dim Rg As Range
Range("F2:F14").Value = Range("A2:A14").Value
For Each Rg In Sheet1.UsedRange.Columns(6).SpecialCells(4)
Rg(0).Copy Rg
Next
End Sub