cách viết code công thức chọn một vùng dữ liệu ở sheet này tới hết dòng cuối rồi dán vào cột cuối sheet data

[phamvandunghp84]

code này đang báo lỗi, Nhờ các bạn trên diễn đàn giúp mình code này phải sửa lại như nào mới chạy được? ( mình muốn chọn vùng dữ liệu từ ô A101 tới ô E cuối của sheet4 rồi dán vào cuối của cột A sheet data

Sub LocTrung03()
Dim lastRow As Long
Sheet4.Activate
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
Sheet4.[A101;"E&lastRow].Copy Destination:=Sheets("data").[A65000].End(xlUp).Offset(1, 0)
End Sub

 

[be_09]

code này đang báo lỗi, Nhờ các bạn trên diễn đàn giúp mình code này phải sửa lại như nào mới chạy được? ( mình muốn chọn vùng dữ liệu từ ô A101 tới ô E cuối của sheet4 rồi dán vào cuối của cột A sheet data

Sub LocTrung03()
Dim lastRow As Long
Sheet4.Activate
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
Sheet4.[A101;"E&lastRow].Copy Destination:=Sheets("data").[A65000].End(xlUp).Offset(1, 0)
End Sub

Hỏi về code sao bạn không đăng bài trong Box Lập trình với Excel mà đăng bài trong Box Hàm và công thức Excel?

 

[phamvandunghp84]

Hỏi về code sao bạn không đăng bài trong Box Lập trình với Excel mà đăng bài trong Box Hàm và công thức Excel?

mình phải dân chuyên lập trình nên không biết vấn đề ở đâu nữa, chỉ tìm trên google rồi sửa lại code, mình nghĩ cái này là do mình k biết viết công thức có cái chỉ số hàng tùy biến [A101;"E&lastRow].Copy Destination:=Sheets("data").[A65000].End(xlUp).Offset(1, 0) sao cho đúng nữa. hic

 

[giaiphap]

code này đang báo lỗi, Nhờ các bạn trên diễn đàn giúp mình code này phải sửa lại như nào mới chạy được? ( mình muốn chọn vùng dữ liệu từ ô A101 tới ô E cuối của sheet4 rồi dán vào cuối của cột A sheet data

Sub LocTrung03()
Dim lastRow As Long
Sheet4.Activate
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
Sheet4.[A101;"E&lastRow].Copy Destination:=Sheets("data").[A65000].End(xlUp).Offset(1, 0)
End Sub

Chắc chổ màu đỏ này.
Sheet4.["A101:E" & lastRow].Copy Destination:=Sheets("data").[A65000].End(xlUp).Offset(1, 0)

 

[phamvandunghp84]

Chắc chổ màu đỏ này.
Sheet4.["A101:E" & lastRow].Copy Destination:=Sheets("data").[A65000].End(xlUp).Offset(1, 0)

Nó vẫn báo lỗi bác ạ

 

[giaiphap]

Nó vẫn báo lỗi bác ạ
View attachment 233034

Up cái file của bạn lên đây xem thử.

 

[phamvandunghp84]

Up cái file của bạn lên đây xem thử.

đây Bác xem giúp em với

 

[giaiphap]

đây Bác xem giúp em với

Sửa lại thế này.

Sub LocTrung01()
Dim lastRow As Long
    With Sheet4
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("A101:E" & lastRow).Copy Sheets("data").[A65000].End(xlUp).Offset(1, 0)
    End With
End Sub

 

[phamvandunghp84]

Sửa lại thế này.

Sub LocTrung01()
Dim lastRow As Long
    With Sheet4
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("A101:E" & lastRow).Copy Sheets("data").[A65000].End(xlUp).Offset(1, 0)
    End With
End Sub

Nó đã chạy. quá tuyệt vời, cảm ơn Bác rất nhiều !

Bài đã được tự động gộp: 7/3/20

Sửa lại thế này.

Sub LocTrung01()
Dim lastRow As Long
    With Sheet4
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("A101:E" & lastRow).Copy Sheets("data").[A65000].End(xlUp).Offset(1, 0)
    End With
End Sub

cho mình hỏi nếu trong ô E có công thức, mình chỉ muốn copy giá trị thì viết lại như nào Bác?

 

[be_09]

code này đang báo lỗi, Nhờ các bạn trên diễn đàn giúp mình code này phải sửa lại như nào mới chạy được? ( mình muốn chọn vùng dữ liệu từ ô A101 tới ô E cuối của sheet4 rồi dán vào cuối của cột A sheet data

Sub LocTrung03()
Dim lastRow As Long
Sheet4.Activate
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
Sheet4.[A101;"E&lastRow].Copy Destination:=Sheets("data").[A65000].End(xlUp).Offset(1, 0)
End Sub

Bạn muốn làm gì thì nên giải thích cụ thể, rõ ràng hơn.
1/ Tại sao phải Copy từ A101 đến cột E trở xuống.
2/ Sheet data không nên sử dụng code với Table (trong Table bạn Insert mấy dòng trống) rồi chạy code thì sẽ hiểu.

 

[giaiphap]

cho mình hỏi nếu trong ô E có công thức, mình chỉ muốn copy giá trị thì viết lại như nào Bác?

Thử sửa lại thế này xem sao?

Sub LocTrung01()
Dim lastRow As Long, iRow%, Rng As Range
    With Sheet4
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        iRow = .Range("A101:E" & lastRow).Rows.Count
        Set Rng = Sheets("data").[A65000].End(xlUp).Offset(1, 0)
        .Range("A101:E" & lastRow).Copy Rng
        Rng.Resize(iRow, 5).Value = Rng.Resize(iRow, 5).Value
    End With
End Sub

 

[phamvandunghp84]

Thử sửa lại thế này xem sao?

Sub LocTrung01()
Dim lastRow As Long, iRow%, Rng As Range
    With Sheet4
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        iRow = .Range("A101:E" & lastRow).Rows.Count
        Set Rng = Sheets("data").[A65000].End(xlUp).Offset(1, 0)
        .Range("A101:E" & lastRow).Copy Rng
        Rng.Resize(iRow, 5).Value = Rng.Resize(iRow, 5).Value
    End With
End Sub

Cảm ơn Bác, em đang loay hoay mà k biết cách sửa lỗi này bác giúp em : tiếp với
nếu tăng C lên tới 2000 thì báo lỗi không chạy được. còn để 999 thì vẫn chạy được.
ActiveSheet.Range("A2:C999" & DongCuoi).RemoveDuplicates Columns:=1

 

[BuiQuangThuan]

Sao lại là c999&dongcuoi? Mà ko phải là c"&dongcuoi

 

[be_09]

đây Bác xem giúp em với

Thử code sau:

Sub Copy_VungChon()
    Sheets("copyValue").Range("A101", Range("E" & Rows.Count).End(xlUp)).Copy
    Sheets("data").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End Sub

 

[phamvandunghp84]

Sửa lại thế này.

Sub LocTrung01()
Dim lastRow As Long
    With Sheet4
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("A101:E" & lastRow).Copy Sheets("data").[A65000].End(xlUp).Offset(1, 0)
    End With
End Sub

Bạn ơi trong công thức trên là sao chép .Range("A101:E" & lastRow).Copy Sheets("data").[A65000].End(xlUp).Offset(1, 0) cho trong cùng 1 file excel, bây giờ trường hợp mình muốn copy sang dòng D cuối của một file excel khác thì mình viết lại công thức này như nào?

Mình đã thử như này nhưng không chạy
.Range("A101:E" & lastRow).Copy Workbooks("file vidu 2").Sheets("data").[D65000].End(xlUp).Offset(1, 0)

 

[Thanh Bình PV]

Phải công nhận là vấn đề lại đẻ ra thêm vấn đề. Anh có thể nêu rõ các trường hợp luôn được không ạ.

 

[giaiphap]

Bạn ơi trong công thức trên là sao chép .Range("A101:E" & lastRow).Copy Sheets("data").[A65000].End(xlUp).Offset(1, 0) cho trong cùng 1 file excel, bây giờ trường hợp mình muốn copy sang dòng D cuối của một file excel khác thì mình viết lại công thức này như nào?

Mình đã thử như này nhưng không chạy
.Range("A101:E" & lastRow).Copy Workbooks("file vidu 2").Sheets("data").[D65000].End(xlUp).Offset(1, 0)

Còn vẫn đề khác nửa không giúp luôn một thể, để giúp nửa lại phát sinh nửa thì sao?

 

[phamvandunghp84]

Còn vẫn đề khác nửa không giúp luôn một thể, để giúp nửa lại phát sinh nửa thì sao?

đúng là vấn đề lại phát sinh ra vấn đề
mình lục tung google để tìm cách sao cho khi VBA chạy xong nó tự đóng lại mà tìm hoài chưa tìm được code nào, hic

 

[ppc0312]

đúng là vấn đề lại phát sinh ra vấn đề
mình lục tung google để tìm cách sao cho khi VBA chạy xong nó tự đóng lại mà tìm hoài chưa tìm được code nào, hic

Đóng là cái gì đóng, "nó" ở đây là cái gì

 

[phamvandunghp84]

Đóng là cái gì đóng, "nó" ở đây là cái gì

mình muốn sau khi chạy xong thì excel tự đóng lại hoàn toàn bạn ạ giống như mình tắt bằng tay vậy.