Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
code này khi chạy bị báo lỗi 424 thì xử lý như nào ạSub VD_1 ()Dim dongcuoi
Cho e hỏi code này khi chạy bị báo lỗi 424 thì xử lý như nào ạ Sub VD_1 () Dim dongcuoi as long Dongcuoi=sheet.cells(rows.count,1)end(clip) +1 Sheet1.range("A"&"dongcuoi").value=sheet2.range("B2").value End sub
Chào bạn bạn thử với code dưới nhé: Option Explicit
Sub VD_1() Dim dongcuoi As Long dongcuoi = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row Sheet1.Range("A" & dongcuoi).Value = Sheet2.Range("B2").Value End Sub
vỗ tay
Trịnh Văn An09:04 - Apr 22, 2020
Vâng. Thầy giải thích chỗ thay +1 bằng .row được k ạ
vỗ tay
Trịnh Văn An10:04 - Apr 22, 2020
Chào bạn Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row nghĩa là tìm dòng cuối bạn đã viết sau cú pháp nên không được. sheet bạn không chỉ rõ tên, chỗ đóng ngoặc không có dấu . chữ End(xlUp) chứ không phải end(clip)