Có bác nào giúp mình sao đoạn code sau lại lỗi dòng 5 ko:
Code như sau:
Public Function copy_range(x_range As Range, y_range As Range) As Variant
Dim result_temp As Range
Dim i As Integer
Set result_temp = Range("A1:A10")
For i = 1 To 5
result_temp.Cells(i) = 1 'Tai sao dong nay loi
Next
copy_range = 1
End Function