Copy một vùng sang vị trí dữ liệu cuối cùng của sheets khác (1 người xem)

[huongtinh1929]

em mốn copy giá trị từ ô

 

[befaint]

của cột H

Đã chắc chưa?

 

[huongtinh1929]

em muốn copy một vùng mà số dòng có thể thay đổi cột thì cố định sang một vị trí cells cuối cùng của sheets khác mà mo mãi không biết viết thế nào mong bác chỉ giúp

 

[huongtinh1929]

Đã chắc chưa?

em muốn copy một vùng mà số dòng có thể thay đổi cột thì cố định sang một vị trí cells cuối cùng của sheets khác mà mo mãi không biết viết thế nào mong bác chỉ giúp
mà là cột E em nhầm hihiih

 

[Hoang2013]

Thử vầy xem sao:

Sub Test()
  Sheets("data").[i16].CurrentRegion.Copy Destination:=Sheets("tes").[H65500].End(xlUp).Offset(1)
End Sub

 

[befaint]

cột E

Sub Test()
Dim lR As Long, aTmp(), eRow As Long
With Sheet2
    lR = .Range("I" & Rows.Count).End(xlUp).Row
    aTmp = .Range("I16:K" & lR).Value
End With
With Sheet1
    eRow = .Range("E" & Rows.Count).End(xlUp).Row + 1
    .Range("E" & eRow).Resize(UBound(aTmp, 1), UBound(aTmp, 2)) = aTmp
End With
End Sub

 

[huongtinh1929]

Em xin chân thành cảm ơn 2 bác Hoang2013 và bác befaint
nhờ 2 bác mà em hiểu thêm được nhiều điều. vba đã chạy rồi 2 bác ạ!

 

[huongtinh1929]

các bác cho em hỏi
Resize(UBound(aTmp, 1), UBound(aTmp, 2)) ý nghĩa là như thế nào với ạ. Em tim trên google mãi mà không hiêu? và số 1,2 để là gì với ạ

 

[phulien1902]

các bác cho em hỏi
Resize(UBound(aTmp, 1), UBound(aTmp, 2)) ý nghĩa là như thế nào với ạ. Em tim trên google mãi mà không hiêu? và số 1,2 để là gì với ạ

Theo cách hiểu của tôi thì:
UBound(aTmp, 1): tương đương giá trị cuối của dòng(hoặc số dòng)
UBound(aTmp, 2): tương đương giá trị cuối của cột(hoặc số cột)

 

[SA_DQ]

các bác cho em hỏi
Resize(UBound(aTmp, 1), UBound(aTmp, 2))
ý nghĩa là như thế nào với ạ. Em tim trên google mãi mà không hiêu? và số 1,2 để là gì với ạ

Sao bạn không hỏi gần mà hỏi đâu xa xôi thế;
Trong những trường hợp tương tư, bạn hoàn toàn có thể nhờ MsgBox như:
MsgBox UBound(aTmp, 1), , UBound(aTmp, 2)

 

[phulien1902]

Sao bạn không hỏi gần mà hỏi đâu xa xôi thế;
Trong những trường hợp tương tư, bạn hoàn toàn có thể nhờ MsgBox như:
MsgBox UBound(aTmp, 1), , UBound(aTmp, 2)

Hoặc:
Debug.Print UBound(aTmp, 1), , UBound(aTmp, 2)

 

[huongtinh1929]

các bác cho em hỏi cách khai báo arry mà chỉ có một cột với dòng cuối với ạ.
em khai báo arry=sheet1.range("b4:b"&1r).value lại báo lỗi
với 1r là vị trí dữ liệu cuối cùng của cột B ạ.

 

[VetMini]

các bác cho em hỏi cách khai báo arry mà chỉ có một cột với dòng cuối với ạ.
em khai báo arry=sheet1.range("b4:b"&1r).value lại báo lỗi
với 1r là vị trí dữ liệu cuối cùng của cột B ạ.

Luật VBA: biến không được bắt đầu bằng 1 số. Biến 1r trên phạm luật này.
Nếu bạn chịu khó đeo kính vào nhìn cho kỹ, sẽ thấy rằng bài #6 dùng lR (en lờ + e rờ) không phải 1R (1 + e rờ)

 

[huongtinh1929]

dạ em xin đa tạ anh VetMini ạ. Khổ chác là mắt mờ chân chậm rồi.

 

[be_09]

các bác cho em hỏi cách khai báo arry mà chỉ có một cột với dòng cuối với ạ.
em khai báo arry=sheet1.range("b4:b"&1r).value lại báo lỗi
với 1r là vị trí dữ liệu cuối cùng của cột B ạ.

Của người ta khai báo biến là lr bạn không hiểu lại gõ là 1r nên lỗi là phải rồi.

Với điều kiện phải có nó trong khai báo biến.
Dim lr As Long

Còn muốn biết dùng loại dữ liệu gì (chữ Long trong khai báo biến) cho phù hợp với biến lr thì tìm hiểu về Data Type.