Nhờ anh chị chỉnh lại đoạn code để copy được (1 người xem)

[tu205489039]

Dạ nhờ anh chị sửa giúp e đoạn code này với ạ

Sheet1.Range("V1") = "A" & (z - 1) * 255 + 4
        Sheet1.Range("V2") = "U" & z * 255 + 4
            c = Sheet1.Range("V1") & ":" & Sheet1.Range("V2").Value
        ws.Range("A1:U3").Value = Sheet1.Range("A1:U3").Value
        ws.Range("A4:U258").Value = Sheet1.Range(c).Value

Đoạn này e phải sửa lại như thế nào để đoạn copy nó chạy ạ
e cảm ơn

 

[befaint]

Dim scell1 as string, scell2 as string, rng as string
scell1  = "A" & ((z - 1) * 255 + 4)
scell2  = "U" & (z  *  255 + 4)
rng  = scell1 & ":" & scell2
ws.Range("A1:U3").Value = Sheet1.Range("A1:U3").Value
ws.Range("A4:U258").Value = Sheet1.Range(rng).Value

 

[tu205489039]

em cảm ơn anh nhiều ạ