Hỏi cách xác định vùng tiếp theo tính từ mảng đã có

[pinklove]

Mình có code như sau:

Sub Macro1()
Dim R1, R2, R3, R4 As Range

With Sheet2
    ActiveSheet.Range([A511], [F599].End(xlUp)).Clear
    Set R1 = Range([A4], [F500].End(xlUp))
    Set R2 = Range("A511")
    R1.Copy R2
    Set R3 = Range("A600:A603")
    Set R4 = ?????
    R3.Copy R4
End With

End Sub

Mình muốn copy cái mảng R3 sang vị trí ngay dưới mảng R2 (sau khi copy từ mảng R1 sang R2) mà mình không biết cách xác định mảng R4 như thế nào. Nhờ các bạn chỉ giúp

 

[ppc0312]

Mình có code như sau:

Sub Macro1()
Dim R1, R2, R3, R4 As Range

With Sheet2
    ActiveSheet.Range([A511], [F599].End(xlUp)).Clear
    Set R1 = Range([A4], [F500].End(xlUp))
    Set R2 = Range("A511")
    R1.Copy R2
    Set R3 = Range("A600:A603")
    Set R4 = ?????
    R3.Copy R4
End With

End Sub

Mình muốn copy cái mảng R3 sang vị trí ngay dưới mảng R2 (sau khi copy từ mảng R1 sang R2) mà mình không biết cách xác định mảng R4 như thế nào. Nhờ các bạn chỉ giúp

nên sửa lại thế này

Dim R1 As Range, R2 As Range, R3 As Range, R4 As Range
With Sheet2
ActiveSheet.Range([A511], [F599].End(xlUp)).Clear
Set R1 = .Range([A4], [F500].End(xlUp))
Set R2 = .Range("A511")
R1.Copy R2
Set R3 = .Range("A600:A603")
Set R4 = R2.(1).Offset(65000-R2.Rows.Count).End(Xlup)
R3.Copy R4
End With

Chú ý các màu đỏ xem lại và thay đổi cho thích hợp

Dim R1  As Range, R2 As Range, R3 As Range, R4 As Range
With Sheet2
    ActiveSheet.Range([A511], [F599].End(xlUp)).Clear
    Set R1 = .Range([A4], [F500].End(xlUp))
    Set R2 = .Range("A511")
    R1.Copy R2
    Set R3 = .Range("A600:A603")
    Set R4 = R2.(1).Offset(65000-R2.Rows.Count).End(Xlup)
    R3.Copy R4
End With

 

[pinklove]

nên sửa lại thế này

Dim R1 As Range, R2 As Range, R3 As Range, R4 As Range
With Sheet2
ActiveSheet.Range([A511], [F599].End(xlUp)).Clear
Set R1 = .Range([A4], [F500].End(xlUp))
Set R2 = .Range("A511")
R1.Copy R2
Set R3 = .Range("A600:A603")
Set R4 = R2.(1).Offset(65000-R2.Rows.Count).End(Xlup)
R3.Copy R4
End With

Chú ý các màu đỏ xem lại và thay đổi cho thích hợp

Dim R1  As Range, R2 As Range, R3 As Range, R4 As Range
With Sheet2
    ActiveSheet.Range([A511], [F599].End(xlUp)).Clear
    Set R1 = .Range([A4], [F500].End(xlUp))
    Set R2 = .Range("A511")
    R1.Copy R2
    Set R3 = .Range("A600:A603")
    Set R4 = R2.(1).Offset(65000-R2.Rows.Count).End(Xlup)
    R3.Copy R4
End With

Mình thực hiện theo code của bạn nhưng nó báo lỗi bạn ạ. Đã đổi 65000 thành 600

 

[pinklove]

Mình đã làm được rồi ạ

Sub Macro1()
Dim R1  As Range, R2 As Range, R3 As Range, R4 As Range
With Sheet2
    .Range("A512:F599").Clear
    Set R1 = .Range([A4], [F500].End(xlUp))
    Set R2 = .Range("A512")
    R1.Copy R2
    Set R3 = .Range("A600:A603")
    Set R4 = [A599].End(xlUp).Offset(1)
    R3.Copy R4
End With
End Sub

 

[thuyyeu99]

Array <= office 2010 được 65536

 

[befaint]

Array <= office 2010 được 65536

Về lý thuyết giới hạn kích thước 1 chiều của array là 2^31 - 1.
Còn trên mỗi máy tính thì phụ thuộc vào RAM nhưng luôn nằm trong khoảng trên.

MS Excel 2003 trở xuống có 65536 dòng, MS Excel 2007 trở lên có 1048576 dòng. Không liên quan gì tới array.

 

[thuyyeu99]

Về lý thuyết giới hạn kích thước 1 chiều của array là 2^31 - 1.
Còn trên mỗi máy tính thì phụ thuộc vào RAM nhưng luôn nằm trong khoảng trên.

MS Excel 2003 trở xuống có 65536 dòng, MS Excel 2007 trở lên có 1048576 dòng. Không liên quan gì tới array.

mình không biết giải thích mình test thì thấy vậy

 

[befaint]

mình không biết giải thích mình test thì thấy vậy

Bạn đã test như nào, gửi bài test đó lên đây được không?

Array Size in Visual Basic

docs.microsoft.com

 

[thuyyeu99]

Bạn đã test như nào, gửi bài test đó lên đây được không?

Hihi minh test cong thức mãng lớn hơn 65536 office 2010 value (array vẫn nhận đủ giá trị, công thức mảng của excel thi khong bị, mò hoài không hiểu tại sao ), còn cài office 2013 chung với Offices 2010 thì code chạy bình thường.