Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Lộ trình học tập
Khám phá đỉnh cao tri thức cùng Gitiho qua hành trình học tập được thiết kế tỉ mỉ và toàn diện. Với kho tàng lộ trình đa dạng, chuyên sâu trên mọi lĩnh vực, chúng tôi sẽ đồng hành cùng bạn khai phá tiềm năng, chinh phục thách thức và khẳng định giá trị bản thân. Mỗi hành trình đều được nghiên cứu công phu, tạo nên bước đệm vững chắc để bạn tự tin bứt phá và tỏa sáng trên con đường phát triển sự nghiệp."
Gitiho for leading business
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.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
e muốn lưu nội dụng vào nhiều Sheet và e có nhiều dòng cuối được không
e muốn lưu nội dụng vào nhiều Sheet và e có nhiều dòng cuối được không thầy ?
7 câu trả lời
181 lượt xem
vỗ tay
chào bạn được các dòng cuối bạn ký hiệu khác nhau để lưu
vỗ tay
Vậy chỉ Cần Tạo Nhiều dòng Cuối thì có thể Lưu Cùng Lúc dữ Liệu cho nhiều Sheet đúng không Thầy !
vỗ tay
Chào bạn dòng cuối đó phải cụ thể cho sheets nào?
vỗ tay
Ví Dụ như e có 1 bảng Nhập Thông tin mà muốn Vừa Lưu Thông Tin ấy cho Cả Sheet Thông Tin KH và Sheet Q.L KH đó A
vỗ tay
Chào bạn bạn xem code mẫu nó thế này nhé.
Option Explicit
Sub luudulieu()
Dim dc1 As Long, dc2 As Long
dc1 = Sheet2.Range("A" & Sheet2.Rows.Count).End(xlUp).Row + 1
dc2 = Sheet3.Range("A" & Sheet3.Rows.Count).End(xlUp).Row + 1
Sheet2.Range("A" & dc1).Value = Sheet1.Range("A1").Value
Sheet3.Range("A" & dc2).Value = Sheet1.Range("A1").Value
End Sub
vỗ tay
vỗ tay
bạn nên khai báo thế để máy tính biết là kiểu nào? máy sẽ đỡ phải tự định nghĩa lại kiểu khi biết rồi
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông