Cần Giúp Hàm Range Trong VBA | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Cần Giúp Hàm Range trong VBA (1 người xem)

• Thread starter Thread starter tavantan376
• Ngày gửi Ngày gửi 14/7/21
• Thẻ Thẻ exccel vba

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) T

tavantan376

Thành viên mới

Tham gia 23/12/20 Bài viết 5 Được thích 0 Chào mọi người mình có đoạn mã VBA như này muốn copy cả khối nhưng lại không được. Mã: Sao chép. Sub test_1() Dim i, lr, vitricantim, vitri1, vitri2 As Integer Dim sohang As Variant On Error GoTo loi Columns("D:D").Delete Shift:=xlToLeft Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Columns("B:B").ColumnWidth = 4 Columns("C:C").ColumnWidth = 4 Columns("D:D").ColumnWidth = 8 Columns("E:E").ColumnWidth = 4 Columns("F:F").ColumnWidth = 4 lr = Worksheets("SheetB").Range("A" & Rows.Count).End(xlUp).Row For i = 3 To lr sohang = Worksheets("SheetB").Range("A" & i) vitricantim = WorksheetFunction.Match(sohang, Worksheets("SheetA").Range("A:A"), 0) Worksheets("SheetA").Range(Cells(vitricantim, 2), Cells(vitricantim, 6)).Copy Worksheets("SheetB").Range("D" & i) Next i Exit Sub loi: MsgBox "Co loai sat khong co ten trong danh sach", vbCritical End Sub Sắp xếp theo thời gian sắp xếp theo bầu chọn

Maika8008

Thành viên gạo cội

Tham gia 12/6/20 Bài viết 4,839 Được thích 5,824 Donate (Momo) Giới tính Nam Trước Cells(vitricantim, 2), Cells(vitricantim, 6) đều phải chỉ rõ sheet nào, chứ không là VBA không hiểu. Như code bạn thì phải viết là Sheets("SheetA").Range(Sheets("SheetA").Cells(vitricantim, 2), Sheets("SheetA").Cells(vitricantim, 6)).Copy Upvote 0 V

VetMini

Đang đi tìm hòn đá

Tham gia 21/12/12 Bài viết 17,867 Được thích 24,788 Nghề nghiệp Thầy bói bài ta Sửa chỗ này: For i = 3 To lr sohang = Worksheets("SheetB").Range("A" & i) vitricantim = WorksheetFunction.Match(sohang, Worksheets("SheetA").Range("A:A"), 0) Worksheets("SheetA").Range(Cells(vitricantim, 2), Cells(vitricantim, 6)).Copy Worksheets("SheetB").Range("D" & i) Next i thành: Set sh1 = Worksheets("SheetB") Set sh2 = Worksheets("SheetA") Set rg1 = sh1.Range("A;A") For i = 3 To lr sohang = sh1.Range("A" & i) vitricantim = WorksheetFunction.Match(sohang, rg1, 0) sh2.Range(sh2.Cells(vitricantim, 2), sh2.Cells(vitricantim, 6)).Copy sh1.Range("D" & i) Next i Nếu không, sẽ phải gọi hàm tính Worksheets(...) tất cả lr -2 lần Nếu muốn gọn hơn thì sửa thêm chỗ này: Columns("B:F").ColumnWidth = 4 Columns("D").ColumnWidth = 8 Upvote 0 T

tavantan376

Thành viên mới

Tham gia 23/12/20 Bài viết 5 Được thích 0

Maika8008 đã viết: Trước Cells(vitricantim, 2), Cells(vitricantim, 6) đều phải chỉ rõ sheet nào, chứ không là VBA không hiểu. Như code bạn thì phải viết là Sheets("SheetA").Range(Sheets("SheetA").Cells(vitricantim, 2), Sheets("SheetA").Cells(vitricantim, 6)).Copy Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn nhiều nhé! Bài đã được tự động gộp: 15/7/21

VetMini đã viết: Sửa chỗ này: For i = 3 To lr sohang = Worksheets("SheetB").Range("A" & i) vitricantim = WorksheetFunction.Match(sohang, Worksheets("SheetA").Range("A:A"), 0) Worksheets("SheetA").Range(Cells(vitricantim, 2), Cells(vitricantim, 6)).Copy Worksheets("SheetB").Range("D" & i) Next i thành: Set sh1 = Worksheets("SheetB") Set sh2 = Worksheets("SheetA") Set rg1 = sh1.Range("A;A") For i = 3 To lr sohang = sh1.Range("A" & i) vitricantim = WorksheetFunction.Match(sohang, rg1, 0) sh2.Range(sh2.Cells(vitricantim, 2), sh2.Cells(vitricantim, 6)).Copy sh1.Range("D" & i) Next i Nếu không, sẽ phải gọi hàm tính Worksheets(...) tất cả lr -2 lần Nếu muốn gọn hơn thì sửa thêm chỗ này: Columns("B:F").ColumnWidth = 4 Columns("D").ColumnWidth = 8 Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn nhiều nhé! Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA (5 người xem)

• • 

• Mr_Siro
• Hôm nay lúc 10:57
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 4 Đọc 62 8 phút trước SA_DQ K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ... (2 người xem)

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 5 Đọc 108 17 phút trước kaoehtkid K Tính định mức sản phẩm (1 người xem)

• • 

• Nguyenkhang2404
• 24/7/25
• Hàm và công thức Excel

Trả lời 10 Đọc 815 Hôm nay lúc 15:54 thaodang88 T P Tìm giá trị tồn kho đầu ngày (3 người xem)

• ptthuongtn
• Hôm nay lúc 15:15
• Hàm và công thức Excel

Trả lời 0 Đọc 26 Hôm nay lúc 15:15 ptthuongtn P Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu (1 người xem)

• skygatevn
• Hôm nay lúc 11:59
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 50 Hôm nay lúc 13:52 skygatevn Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 278 Hôm nay lúc 12:43 GPE-Trợ Lý D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 14 Đọc 368 Hôm nay lúc 10:20 dieppk.nb92 D Nếu diễn đàn GPE đóng cửa? (1 người xem)

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 17 Đọc 500 Hôm nay lúc 09:21 anhtuanle123 A CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025

• • 

• GPE-Trợ Lý
• 24/11/25
• Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 840 Hôm nay lúc 07:38 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Hôm qua, lúc 19:57 Maika8008 P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 5 Đọc 152 Hôm qua, lúc 13:59 phamdinh.huy.aladin@gmail P D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• Thứ sáu lúc 15:39
• Lập Trình với Excel

Trả lời 14 Đọc 293 Hôm qua, lúc 09:00 ptm0412

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (3 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 82K Hôm qua, lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 524 Thứ hai lúc 16:19 eagle12 E Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• HeSanbi
• Thứ bảy lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 1 Đọc 155 Thứ hai lúc 10:34 jonythanht J H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

• H_P
• Thứ bảy lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 126 Thứ hai lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

• Ngựa con 2002
• Thứ bảy lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 161 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

• QUANSUNG
• Thứ bảy lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 144 Chủ nhật lúc 00:02 dungpham01 D Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (1 người xem)

• Dinh Hong Nhung
• Thứ năm lúc 10:36
• Hàm và công thức Excel

Trả lời 14 Đọc 812 Thứ bảy lúc 10:43 Cúc Hr C Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 33
• thanthanhan 21
• dungpham01 19
• eagle12 16
• ongke0711 16
• nguyenanhtruong2409 14
• Phan Thế Hiệp 13
• ptm0412 13
• HUONGHCKT 12
• vic_it 11
• nhhnam 10
• pycckuu410 10
• Vũ Hải Sơn 9
• HeSanbi 8
• dieppk.nb92 8
• bsbnhh 7
• Gà Con yêu VBA 7
• Hana2610 6
• duongnhuxuyen 6
• Mr.hieudoanxd 5

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 63
• Maika8008 26
• thanthanhan 18
• ongke0711 17
• ptm0412 15
• HeSanbi 12
• dungpham01 11
• HUONGHCKT 9
• Cúc Hr 8
• eagle12 8
• dieppk.nb92 6
• befaint 5
• Mr.hieudoanxd 5
• pycckuu410 5
• Phuocam 4
• nguyenanhtruong2409 4
• SA_DQ 4
• nhhnam 2
• Gà Con yêu VBA 2
• huuthang_bd 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom