Nhờ viết VBA thay hàm vlookup (1 người xem)

[Nam168]

Dạ em chào các anh chị trong diễn đàn!
Em có một số khó khăn khi nhập và sắp xếp dữ liệu nên xin nhờ anh chị giúp em một số vấn đề sau ạ:

1/ Tại sheet “Danh Sach” em đang dùng công thức phép tính ở cột H và dùng hàm vlookup tại cột B tham chiếu từ sheet “DSSP- SỐ THÙNG” ở cột B,C. Vì “Danh Sach” tổng hợp dữ liệu cả năm có thể lên đến vài ngàn dòng nên em nghĩ cách em đang làm có thể file sẽ bị nặng nên nhờ anh chị viết giùm em VBA thay cho những công thức em đang áp dụng với ạ.

2/ Với còn 1 thao tác em đang thực hiện ở sheet “ THẺ KHO” là tại cột G em lấy dữ liệu ở cột D của sheet “Danh Sach” filter Lot từ giá trị nhỏ nhất đến lớn nhất trong thùng rồi nhập tay, không biết các anh chị có cách nào tham chiếu giữa 2 thông tin này mà không cần lọc rồi nhập tay giúp em được hông ạ.

3/ Cột H ở sheet “THẺ KHO” em sẽ nhập tay, làm sao khi em nhập dữ liệu ở cột này thì bên sheet “Danh Sach” cột J cũng tự động copy dữ liệu theo.

Mong các anh chị giúp em
Em cảm ơn !

 

[VetMini]

File của bạn nặng là tại nó màu mè nhiều quá chứ chưa hẳn tại VLookup.
Vả lại, công ty của bạn làm việc ngược đời. Người ta dùng mã tra ra tên sản phẩm chứ ai lại dùng tên sản phẩm tra ra mã bao giờ? Nếu làm vậy té ra mã sản phẩm chỉ là cái huy hiệu gán chơi cho vui?

 

[Hoàng Tuấn 868]

File của bạn nặng là tại nó màu mè nhiều quá chứ chưa hẳn tại VLookup.
Vả lại, công ty của bạn làm việc ngược đời. Người ta dùng mã tra ra tên sản phẩm chứ ai lại dùng tên sản phẩm tra ra mã bao giờ? Nếu làm vậy té ra mã sản phẩm chỉ là cái huy hiệu gán chơi cho vui?

Chủ bài nhờ giúp 3 ý dài dằng dặc, còn bản thân thì thấy bế cún đi chơi nên cũng ngại xem.

 

[VetMini]

Chủ bài nhờ giúp 3 ý dài dằng dặc, còn bản thân thì thấy bế cún đi chơi nên cũng ngại xem.

Hổng sao đâu. Dạo này bà con hơi đói bài.

 

[xuongrongdat]

Chủ bài nhờ giúp 3 ý dài dằng dặc, còn bản thân thì thấy bế cún đi chơi nên cũng ngại xem.

Thật là vô lý nhã kỳ cục kẹo !!! hihi
Giúp 1 ý ngắn đi anh.

 

[le_vis]

Dạ em chào các anh chị trong diễn đàn!
Em có một số khó khăn khi nhập và sắp xếp dữ liệu nên xin nhờ anh chị giúp em một số vấn đề sau ạ:

1/ Tại sheet “Danh Sach” em đang dùng công thức phép tính ở cột H và dùng hàm vlookup tại cột B tham chiếu từ sheet “DSSP- SỐ THÙNG” ở cột B,C. Vì “Danh Sach” tổng hợp dữ liệu cả năm có thể lên đến vài ngàn dòng nên em nghĩ cách em đang làm có thể file sẽ bị nặng nên nhờ anh chị viết giùm em VBA thay cho những công thức em đang áp dụng với ạ.

2/ Với còn 1 thao tác em đang thực hiện ở sheet “ THẺ KHO” là tại cột G em lấy dữ liệu ở cột D của sheet “Danh Sach” filter Lot từ giá trị nhỏ nhất đến lớn nhất trong thùng rồi nhập tay, không biết các anh chị có cách nào tham chiếu giữa 2 thông tin này mà không cần lọc rồi nhập tay giúp em được hông ạ.

3/ Cột H ở sheet “THẺ KHO” em sẽ nhập tay, làm sao khi em nhập dữ liệu ở cột này thì bên sheet “Danh Sach” cột J cũng tự động copy dữ liệu theo.

Mong các anh chị giúp em
Em cảm ơn !

Theo mình thấy :
1) Nên thiết kế theo kiểu nhập liệu từ Form vào Danh sách lưu lại rồi từ đó trích xuất ra báo cáo nhập xuất tồn nghe có vẻ hợp lý và dễ hơn là bạn để thành cột tại Danh sách lưu -
2) Bạn đã có mã TP sao không quản lý theo mã mà đi gọi quản lý theo tên nhỉ - Bạn thử xem cách này có được không ?

 

[Hoàng Tuấn 868]

Thật là vô lý nhã kỳ cục kẹo !!! hihi
Giúp 1 ý ngắn đi anh.

Chiều lòng bạn Xuongrongdat. Làm câu 3. (File gì mà mầu mè như tranh Đông Hồ)

 

[Nam168]

Theo mình thấy :
1) Nên thiết kế theo kiểu nhập liệu từ Form vào Danh sách lưu lại rồi từ đó trích xuất ra báo cáo nhập xuất tồn nghe có vẻ hợp lý và dễ hơn là bạn để thành cột tại Danh sách lưu -
2) Bạn đã có mã TP sao không quản lý theo mã mà đi gọi quản lý theo tên nhỉ - Bạn thử xem cách này có được không ?

Dạ em cảm ơn gợi ý của anh và làm lại form giúp em, chỉ là do thói quen em nhập tên vì với em sẽ dễ nhớ hơn mã thôi ạ. Em sẽ thử ạ

Bài đã được tự động gộp: 2/5/22

Chiều lòng bạn Xuongrongdat. Làm câu 3. (File gì mà mầu mè như tranh Đông Hồ)

Em cảm ơn góp ý về sự màu mè đó của em và giúp em làm câu 3 ạ

 

[HUONGHCKT]

Dạ em chào các anh chị trong diễn đàn!
Em có một số khó khăn khi nhập và sắp xếp dữ liệu nên xin nhờ anh chị giúp em một số vấn đề sau ạ:

1/ Tại sheet “Danh Sach” em đang dùng công thức phép tính ở cột H và dùng hàm vlookup tại cột B tham chiếu từ sheet “DSSP- SỐ THÙNG” ở cột B,C. Vì “Danh Sach” tổng hợp dữ liệu cả năm có thể lên đến vài ngàn dòng nên em nghĩ cách em đang làm có thể file sẽ bị nặng nên nhờ anh chị viết giùm em VBA thay cho những công thức em đang áp dụng với ạ.

2/ Với còn 1 thao tác em đang thực hiện ở sheet “ THẺ KHO” là tại cột G em lấy dữ liệu ở cột D của sheet “Danh Sach” filter Lot từ giá trị nhỏ nhất đến lớn nhất trong thùng rồi nhập tay, không biết các anh chị có cách nào tham chiếu giữa 2 thông tin này mà không cần lọc rồi nhập tay giúp em được hông ạ.

3/ Cột H ở sheet “THẺ KHO” em sẽ nhập tay, làm sao khi em nhập dữ liệu ở cột này thì bên sheet “Danh Sach” cột J cũng tự động copy dữ liệu theo.

Mong các anh chị giúp em
Em cảm ơn !

Hên, sui, thử xem sao.
1/ Click chọn tên hàng C12.../Sh Danh Sach và xem các cột A, B và Cột H có thay đổi gì.
2/ thay đổi F7/Sh TheKho xem điều gì đã diễn ra ở G7
3/ Nhập gì đó vào H7/Sh TheKho và xem J12 đến J cuối thay đổi thế nào.
4/ Nhập thêm hoặc thay đổi cột B, C/Sh DSSP-SoThung và kiểm tra lại cột B, C/Sh Danh Sach xem có thay đổi gì không.
P/S: Khuyên bạn Tên Sheet không nên đặt là tên Tiếng Việt có dấu. Bạn đã dùng mã hàng sao không dùng mã

 

[Nam168]

Hên, sui, thử xem sao.
1/ Click chọn tên hàng C12.../Sh Danh Sach và xem các cột A, B và Cột H có thay đổi gì.
2/ thay đổi F7/Sh TheKho xem điều gì đã diễn ra ở G7
3/ Nhập gì đó vào H7/Sh TheKho và xem J12 đến J cuối thay đổi thế nào.
4/ Nhập thêm hoặc thay đổi cột B, C/Sh DSSP-SoThung và kiểm tra lại cột B, C/Sh Danh Sach xem có thay đổi gì không.
P/S: Khuyên bạn Tên Sheet không nên đặt là tên Tiếng Việt có dấu. Bạn đã dùng mã hàng sao không dùng mã

Dạ cảm ơn anh em sẽ thử ạ
Mà cho em hỏi từ nãy giờ mấy anh ở trên cũng đều thắc mắc sao không dùng mã để gọi tên, vậy lý do là gì vậy anh

 

[batman1]

Chiều lòng bạn Xuongrongdat. Làm câu 3. (File gì mà mầu mè như tranh Đông Hồ)

Biết ngay mà. Cờ nằm lăn lóc nhưng bĩu môi, chê ỏng chê eo, đến khi người khác cầm cờ lên phất thì chạy cong đít lên.

 

[Hoàng Tuấn 868]

cong đít lên.

Em chiều bạn Xuongrongdat đó, nhân dịp ngày 1 tháng 5 anh ạ.

 

[Nam168]

Hên, sui, thử xem sao.
1/ Click chọn tên hàng C12.../Sh Danh Sach và xem các cột A, B và Cột H có thay đổi gì.
2/ thay đổi F7/Sh TheKho xem điều gì đã diễn ra ở G7
3/ Nhập gì đó vào H7/Sh TheKho và xem J12 đến J cuối thay đổi thế nào.
4/ Nhập thêm hoặc thay đổi cột B, C/Sh DSSP-SoThung và kiểm tra lại cột B, C/Sh Danh Sach xem có thay đổi gì không.
P/S: Khuyên bạn Tên Sheet không nên đặt là tên Tiếng Việt có dấu. Bạn đã dùng mã hàng sao không dùng mã

Dạ anh ơi, em gặp trường hợp như này: vì Lot sẽ có trường hợp có số 0 đứng đầu nhưng khi sắp xếp qua THEKHO thì lại mất số 0 nên thứ tự từ nhỏ đến lớn không còn đúng nữa ạ. Anh xem giúp em được không ạ. Em cảm ơn anh

 

[Nam168]

Theo mình thấy :
1) Nên thiết kế theo kiểu nhập liệu từ Form vào Danh sách lưu lại rồi từ đó trích xuất ra báo cáo nhập xuất tồn nghe có vẻ hợp lý và dễ hơn là bạn để thành cột tại Danh sách lưu -
2) Bạn đã có mã TP sao không quản lý theo mã mà đi gọi quản lý theo tên nhỉ - Bạn thử xem cách này có được không ?

Anh ơi, anh xem form giúp em với ạ
1/ Sao em nhập mã Tp thì Lot tự xuất hiện ngẫu nhiên vậy ạ ( mã TP em nhập sẽ trùng nhưng Lot là duy nhất, em không có nhu cầu truy xuất lại mã TP hoặc Lot đã nhập ạ)
2/ Anh giúp em làm thêm các câu lệnh cảnh báo yêu cầu nhập thông tin giống như ô E6, E8 với các ô E9, E10, và với ô E8 khi nhập Lot trùng với số Lot đã nhập trước đó thì sẽ cảnh báo "Lot đã tồn tại" với ạ

Em cảm ơn anh !

 

[HUONGHCKT]

Dạ anh ơi, em gặp trường hợp như này: vì Lot sẽ có trường hợp có số 0 đứng đầu nhưng khi sắp xếp qua THEKHO thì lại mất số 0 nên thứ tự từ nhỏ đến lớn không còn đúng nữa ạ. Anh xem giúp em được không ạ. Em cảm ơn anh

Bạn đưa file có số thùng nhiều hơn 1 (tức là J12 đến Jn /Sh DanhSach có cả bằng 1, 2, 3), và dữ liệu số lot có cả sô 0 ở đầu lên đi. Chứ nó không có file rất khó tưởng tượng.
Bạn thử đưa chuột vào Ô F7/Sh TheKho và enter xem bên G7 nó ra cái gì.

 

[Nam168]

Bạn thử đưa chuột vào Ô F7/Sh TheKho và enter xem bên G7 nó ra cái gì

ô G7 sắp xếp đúng yêu cầu của em "giá trị nhỏ nhất - giá trị lớn nhất" trong 1 thùng rồi, nhưng nếu giá trị (số Lot) có số 0 ở trước thì khi qua G7 giá trị bị mất số 0 ở đầu dẫn đến hiển thị kết quả sai ạ

Em gửi lại anh file có bổ sung sô Lot có số 0 ở đầu, và kết quả ở ô G7, anh xem giúp em

Cảm ơn anh

 

[le_vis]

Nghĩa là để bạn tự nhập vào chứ không cần tự động lấy tên hàng và mã LOT phải không ?

 

[Nam168]

Nghĩa là để bạn tự nhập vào chứ không cần tự động lấy tên hàng và mã LOT phải không ?

Vẫn tự động như hiện tại file của anh làm cho em vậy, nhưng mà trường hợp số Lot bắt đầu bằng số 0 (vd 0xxxxxx) thì qua THEKHO ở cột G bị mất đầu số 0 nên hiển thị sai kết quả đó ạ, các trường hợp Lot bắt đầu từ 1 thì đúng rồi ạ

 

[le_vis]

Vẫn tự động như hiện tại file của anh làm cho em vậy, nhưng mà trường hợp số Lot bắt đầu bằng số 0 (vd 0xxxxxx) thì qua THEKHO ở cột G bị mất đầu số 0 nên hiển thị sai kết quả đó ạ, các trường hợp Lot bắt đầu từ 1 thì đúng rồi ạ

Giải quyết vấn đề này bằng cách khi nhập liệu số LOT bạn thêm cho nó dấu nháy trước số 0 như thế này xem '001256

 

[HUONGHCKT]

ô G7 sắp xếp đúng yêu cầu của em "giá trị nhỏ nhất - giá trị lớn nhất" trong 1 thùng rồi, nhưng nếu giá trị (số Lot) có số 0 ở trước thì khi qua G7 giá trị bị mất số 0 ở đầu dẫn đến hiển thị kết quả sai ạ

Em gửi lại anh file có bổ sung sô Lot có số 0 ở đầu, và kết quả ở ô G7, anh xem giúp em

Cảm ơn anh

Bạn xem file. đã sửa lại định dạng.

 

[Nam168]

Bạn xem file. đã sửa lại định dạng.

Cảm ơn anh, file đã chạy đúng rồi ạ
Anh có thể chỉ em định dạng thế nào được không anh

 

[Nam168]

Bạn xem file. đã sửa lại định dạng.

Em cảm ơn anh, file đã chạy đúng rồi ạ

Hướng dẫn em định dạng thế nào được không anh

 

[HUONGHCKT]

Em cảm ơn anh, file đã chạy đúng rồi ạ

Hướng dẫn em định dạng thế nào được không anh

Bạn mở cửa sổ VBE ra (Alt+F11), nhấn đúp vào Sheet4 (TheKho) sẽ hiện ra hình, tìm đến dòng giống dòng tô xanh trong hình:

Target.Offset(0, 1) = Format(Minif(Rng, RngTc, DK), "0######") & "-" & Format(Maxif(Rng, RngTc, DK), "0######")

thì hiểu. Đây là trường hợp Nếu Số LOT chỉ có 7 ký tự và có số 0 ở đầu, nhiều hơn 7 thì bạn thêm dấu # vào phía sau.
P/S: Minif và MaxIf là 2 hạm tự tạo của bạn nào đó trên diễn đàn này (tôi không nhớ tên)tôi có cải tạo chút út.
Trong file tôi gửi cho bạn đã tính đến cả trường hợp bạn thay đổi (tên SP, hoặc Mã SP) ở cột B,C của Sh DSSP-SoThung thì Những giá trị ở cột B,C của sh DanhSach có liên quan cũng thay đổitương ứng. Bạn thử thay đổi 1 vài trường hợp và kiểm tra lại xem có đúng không.

 

[Nam168]

Trong file tôi gửi cho bạn đã tính đến cả trường hợp bạn thay đổi (tên SP, hoặc Mã SP) ở cột B,C của Sh DSSP-SoThung thì Những giá trị ở cột B,C của sh DanhSach có liên quan cũng thay đổitương ứng. Bạn thử thay đổi 1 vài trường hợp và kiểm tra lại xem có đúng không.

Oh cái này anh cũng làm luôn ạ, cảm ơn anh em sẽ thử ạ

 

[HUONGHCKT]

Oh cái này anh cũng làm luôn ạ, cảm ơn anh em sẽ thử ạ

Ở bài #9 tôi đã nêu 1,2,3,4 điểm, bạn cứ lần lượt thử cả 4 cái ấy xem sao.

 

[Nam168]

4/ Nhập thêm hoặc thay đổi cột B, C/Sh DSSP-SoThung và kiểm tra lại cột B, C/Sh Danh Sach xem có thay đổi gì không.

Cảm ơn anh, em đã thử thay đổi thông tin ở cột B, C/sh DSSP-sothung thì những nơi tham chiếu đều thay đổi theo ạ.
Anh @HUONGHCKT có thể chỉnh giống như này mà đối với cột G (số thùng) giúp em được không ạ. À còn 1 vấn đề nữa là cột G-số thùng khi thêm ký tự dạng text thì khi qua sh THEKHO không chạy như lúc dạng số ạ (em có kèm file bên dưới)

Anh @HUONGHCKT có thể cho em xin sđt được không ạ

 

[HUONGHCKT]

Cảm ơn anh, em đã thử thay đổi thông tin ở cột B, C/sh DSSP-sothung thì những nơi tham chiếu đều thay đổi theo ạ.
Anh @HUONGHCKT có thể chỉnh giống như này mà đối với cột G (số thùng) giúp em được không ạ. À còn 1 vấn đề nữa là cột G-số thùng khi thêm ký tự dạng text thì khi qua sh THEKHO không chạy như lúc dạng số ạ (em có kèm file bên dưới)

Anh @HUONGHCKT có thể cho em xin sđt được không ạ

Của bạn đây.
Đã sửa lại kiểu biến Điều kiện của Hàm Minif và maxif.
Số thùng (F7:F...của Sh TheKho) có là duy nhất không bạn? Bạn thử gõ gì đó vào các ô G7:G.../Sh TheKho và quay lại Sh DanhSach xem ở Cột J (từ J12: J...) có thay đổi gì không? Tôi tin là số kệ đã được tự động điền vào đúng với số thùng tương ứng như bên Sh TheKho

 

[Nam168]

Cảm ơn anh, em đã thử thay đổi thông tin ở cột B, C/sh DSSP-sothung thì những nơi tham chiếu đều thay đổi theo ạ.
Anh @HUONGHCKT có thể chỉnh giống như này mà đối với cột G (số thùng) giúp em được không ạ.

Anh ơi chỉnh thêm giúp em chỗ này luôn với ạ. Cảm ơn anh

 

[HUONGHCKT]

Anh ơi chỉnh thêm giúp em chỗ này luôn với ạ. Cảm ơn anh

Bạn xem file . Không biết có đúng ý không.
Bạn thay đổi 1 ô nào đó của cột G/Sh DSSP-SoThung và enter==> sau đó kiểm tra lại bên Sh DanhSach (cột I) và Bên Sh THEKHO (cột F) xem có thay đổi gì không.
Phần này tôi sử dụng lại code của anh Batman1.

 

[Nam168]

Bạn xem file . Không biết có đúng ý không.
Bạn thay đổi 1 ô nào đó của cột G/Sh DSSP-SoThung và enter==> sau đó kiểm tra lại bên Sh DanhSach (cột I) và Bên Sh THEKHO (cột F) xem có thay đổi gì không.
Phần này tôi sử dụng lại code của anh Batman1.

Cảm ơn anh, file đã đúng theo ý của em rồi ạ

 

[Nam168]

Bạn xem file . Không biết có đúng ý không.
Bạn thay đổi 1 ô nào đó của cột G/Sh DSSP-SoThung và enter==> sau đó kiểm tra lại bên Sh DanhSach (cột I) và Bên Sh THEKHO (cột F) xem có thay đổi gì không.
Phần này tôi sử dụng lại code của anh Batman1.

ANH @HUONGHCKT file em chạy đang gặp vấn đề sau ạ:
1/ khi thêm dữ liệu cột B,C sh "DSSP-Sothung" thì dữ liệu này tự động sao chép qua cột B, C của sh "Danh Sach"
2/ khi thêm hàng ở cột G sh " DSSP-Sothung" thì phải enter tới 2 lần mới xuống dòng và không xóa được hàng ở cột G này
3/ Sau khi em thêm hàng và xóa hàng ở cột B,C sh " DSSP-Sothung" thì báo lỗi, em bấm "end" thì sh "THEKHO" khi em chọn thùng không còn tham chiếu qua sh "Danh Sach" để lấy LOT SP và tham chiếu KỆ được nữa ạ
Nhờ anh xem lại file giúp em với ạ
Em cảm ơn anh

 

[HUONGHCKT]

ANH @HUONGHCKT file em chạy đang gặp vấn đề sau ạ:
1/ khi thêm dữ liệu cột B,C sh "DSSP-Sothung" thì dữ liệu này tự động sao chép qua cột B, C của sh "Danh Sach"
2/ khi thêm hàng ở cột G sh " DSSP-Sothung" thì phải enter tới 2 lần mới xuống dòng và không xóa được hàng ở cột G này
3/ Sau khi em thêm hàng và xóa hàng ở cột B,C sh " DSSP-Sothung" thì báo lỗi, em bấm "end" thì sh "THEKHO" khi em chọn thùng không còn tham chiếu qua sh "Danh Sach" để lấy LOT SP và tham chiếu KỆ được nữa ạ
Nhờ anh xem lại file giúp em với ạ
Em cảm ơn anh

Bạn xem lại file:
1/ Đã sửa lại code (vẫn lấy đoạn code của anh @batman1) để bắt sự kiện ở 2 cột B và C/Sh DSSP-SoThung.
2/Tôi cũng không hiểu. Nhưng có lẽ do bạn đặt nó là 1 Table (Table3). Xóa dữ liệu trong Table thì được chứ xóa 1 hoặc 1 số hàng trong Table thì không được thì phải. Nếu phải enter 2 lần thì cũng có vấn đề gì to tát gì đâu.
Mà cũng nhân đây hỏi bạn: Bạn đặt nhiều Table ấy để làm gì nhỉ (trong khi có cái Table chỉ có 1 cột và rất ít hàng)? có cần thiết không? Bởi vì Data Validation cũng lấy cái Table3 này để làm List trong khi cái Data Validation này chỉ cần làm một cái namerange động là được.
Theo tôi nếu các Table không cần thiết thì nên xóa bỏ để nhẹ file
3/ Đã sửa lại code

 

[Nam168]

Theo tôi nếu các Table không cần thiết thì nên xóa bỏ để nhẹ file

Dạ em sẽ xem lại chỗ này cho phù hợp ạ.
Làm phiền anh quá, cảm ơn anh nhiều ạ

 

[HUONGHCKT]

Dạ em sẽ xem lại chỗ này cho phù hợp ạ.
Làm phiền anh quá, cảm ơn anh nhiều ạ

Không thấy báo lại kết quả chạy code, cũng chẳng hiểu mình đúng hay sai nữa.

 

[Nam168]

Không thấy báo lại kết quả chạy code, cũng chẳng hiểu mình đúng hay sai nữa.

Dạ em chưa thử lại file mới, mai em sẽ trả lời anh ạ

 

[Nam168]

Không thấy báo lại kết quả chạy code, cũng chẳng hiểu mình đúng hay sai nữa.

anh @HUONGHCKT, em vừa mở file đã báo lỗi thế này rồi ạ

 

[HUONGHCKT]

anh @HUONGHCKT, em vừa mở file đã báo lỗi thế này rồi ạ

Do Cái Table ấy thừa 2 dòng không có dữ liệu
Bạn OK, rồi vào sheet DSSP-SoThung và xử lý với cái Table sao cho dòng cuối có dữ liệu cũng là dòng cuối của table.
Và để chắc chắn hơn bạn thay đoạn code trong code Add_Dic

....
For i = 1 To UBound(arr, 1)
If arr(i, 2) <> Empty Then
       Temp = arr(i, 2)
       Dic.Add (Temp), i
    For j = 1 To 2
        aResult(i, j) = arr(i, j)
    Next j
End If
Next i
End Sub

Thành

....
For i = 1 To UBound(arr, 1)
If arr(i, 2) <> Empty Then
       Temp = arr(i, 2)
       Dic.Add (Temp), i
    For j = 1 To 2
        aResult(i, j) = arr(i, j)
    Next j
End If
Next i
End Sub

Tức là thêm If arr(i, 2) <> Empty Then vào sau For i=1 to Ubound(arr,1) và thêm end if trước Next i
và chạy lại code Add_Dic

 

[Nam168]

Do Cái Table ấy thừa 2 dòng không có dữ liệu
Bạn OK, rồi vào sheet DSSP-SoThung và xử lý với cái Table sao cho dòng cuối có dữ liệu cũng là dòng cuối của table.
Và để chắc chắn hơn bạn thay đoạn code trong code Add_Dic

....
For i = 1 To UBound(arr, 1)
If arr(i, 2) <> Empty Then
       Temp = arr(i, 2)
       Dic.Add (Temp), i
    For j = 1 To 2
        aResult(i, j) = arr(i, j)
    Next j
End If
Next i
End Sub

Thành

....
For i = 1 To UBound(arr, 1)
If arr(i, 2) <> Empty Then
       Temp = arr(i, 2)
       Dic.Add (Temp), i
    For j = 1 To 2
        aResult(i, j) = arr(i, j)
    Next j
End If
Next i
End Sub

Tức là thêm If arr(i, 2) <> Empty Then vào sau For i=1 to Ubound(arr,1) và thêm end if trước Next i
và chạy lại code Add_Dic

em đã sửa lại rồi ạ

Bạn OK, rồi vào sheet DSSP-SoThung và xử lý với cái Table sao cho dòng cuối có dữ liệu cũng là dòng cuối của table.

Nhưng em vẫn thắc mắc sao lại không xóa được các hàng thừa trong 2 bảng ở sh "DSSP-sothung" vì em cũng không đặt tên bảng gì hết mà, giờ em vẫn để trống không được ạ, tại dữ liệu hiện tại không cần bổ sung gì hết

 

[HUONGHCKT]

em đã sửa lại rồi ạ

Nhưng em vẫn thắc mắc sao lại không xóa được các hàng thừa trong 2 bảng ở sh "DSSP-sothung" vì em cũng không đặt tên bảng gì hết mà, giờ em vẫn để trống không được ạ, tại dữ liệu hiện tại không cần bổ sung gì hết

Bạn thay rồi và chạy code thế nào? Người viết code thường nhiều khi nhác test (do không muốn tải file xuống....). Tôi đã nói rồi Những cái Table ấy nếu không liên quan đến tính toán công thức gì đó thì nên gỡ bỏ.
Còn xóa những hàng không có dữ liệu của Table thì tôi xóa thế này: mở Sh có Table có dòng trống, nhìn xuống dưới Table ấy bên góc phải có các hình nhỏ hình _| đưa chuột vào đó và kéo lên trên đến vị trí mon g muốn. Còn nếu không được bạn thử tìm kiếm cách xóa TableRange trên google chắc là có rất nhiều.
Chúc bạn thành công

 

[Nam168]

Bạn thay rồi và chạy code thế nào

Cảm ơn anh, hiện tại file hết hiện lỗi rồi ạ

Còn xóa những hàng không có dữ liệu của Table thì tôi xóa thế này: mở Sh có Table có dòng trống, nhìn xuống dưới Table ấy bên góc phải có các hình nhỏ hình _| đưa chuột vào đó và kéo lên trên đến vị trí mon g muốn. Còn nếu không được bạn thử tìm kiếm cách xóa TableRange trên google chắc là có rất nhiều.

Em sẽ thử tìm cách ạ
Chúc anh ngày mới vui vẻ