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á.
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
Dim cotcuoi As Longcotcuoi = Sheets("sheet2")Range("G" & ColumnsCount)End(xlUp)ColumnEnd
Dim cotcuoi As Long
cotcuoi = Sheets("sheet2").Range("G" & Columns.Count).End(xlUp).Column
End Sub
1 câu trả lời
199 lượt xem
vỗ tay
Code tìm cột cuối bạn cần viết theo dạng:
cotcuoi = Sheets("sheet2").Cells(1, Columns.Count).End(xlToLeft).Column
viết theo dạng Cells vì chưa xác định tên cột
trong cells, dòng làm căn cứ tìm cột cuối thường là dòng tiêu đề. Ở trên mình viết số 1 nhưng bạn sửa theo vị trí dòng tiêu đề là dòng thứ mấy nhé.
Còn phương pháp tìm cột cuối là xlToLeft. Kết quả trả về là số thứ tự cột.
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