Giúp đỡ sửa code (1 người xem)

[cuongnguyencuong]

Mọi người góp ý em sửa code này với. cám ơn mọi người rất nhiều

 

[ChanhTQ@]

Thử vầy xem sao:

Option Explicit
Public Sub GPE1()
    Dim Rng(), Arr(), I As Long, K As Long, N As Long
    Rng = Sheet1.Range(Sheet1.[A2], Sheet1.[A65000].End(xlUp)).Resize(, 3).Value
    N = UBound(Rng, 1)
    ReDim Arr(1 To N * 2, 1 To 3)
    For I = 1 To N
        K = K + 1
        Arr(K, 1) = Rng(I, 1): Arr(K, 2) = Rng(I, 3)
        K = K + 1
        Arr(K, 1) = Rng(I, 2): Arr(K, 3) = Rng(I, 3)
    Next
Sheet2.[e9].Resize(999, 2).ClearContents
If K Then Sheet2.[e9].Resize(K, 3).Value = Arr
End Sub

 

[mhung12005]

Mọi người góp ý em sửa code này với. cám ơn mọi người rất nhiều

Thì bạn gán vào Range trong sheet2 thôi:

Bạn thay dòng này:

If K Then Sheet1.[F3].Resize(K, 3).Value = Arr

thành:

If K Then Sheet2.[E9].Resize(K, 3).Value = Arr

 

[cuongnguyencuong]

Sheet2.[e9].Resize(999, 2).ClearContents

Nó báo lỗi ngay dòng này luôn, không được rồi bạn ơi

 

[SA_DQ]

Nó báo lỗi ngay dòng này luôn, không được rồi bạn ơi
Sheet2.[e9].Resize(999, 2.ClearContents

Có thể báo lỗi do 1 trong các trường hợp sau:
(*) . . . . . ???
(*) Vài ô trong vùng bị khóa

(*) Trong vùng có ô nào đó trộn với ô ngoài vùng

 

[cuongnguyencuong]

Đã sửa được rồi. cám ơn các bạn. Nhân đây mình muốn tay đổi 1 chút để hoàn thiện hơn. Ai biết thì giúp mình mõi người 1 chút nha. cám ơn rất nhiều