Nhờ giúp code hoán đổi ngẫu nhiên dữ liệu trong một vùng

[titanic20072007]

Chào các bạn. Mình gặp tình huống chưa giải quyết được nhờ mọi người giúp:
Có 1 bảng dữ liệu được tạo ngẫu nhiên (trong tệp đính kèm). Mình muốn hoán đổi ngẫu nhiên các dữ liệu đó (các cột từ A1 đến A14) sao cho các ô chứa dữ liệu trên một đơn vị không lặp lại so với dữ liệu trước của đơn vị đó. Số lượng ô có dữ liệu của một đơn vị không thay đổi sau khi thực hiện hoán. Mình có tệp dữ liệu kèm theo. Mong các bạn giúp code để làm việc này. Cảm ơn các bạn.

 

[titanic20072007]

Mình đã chạy thử với tất cả Số lượng A có dữ liệu hoăc một số trống đều chính xác, tuy nhiên nếu cột này có một đơn vị nào đó giá trị 0 thì code lại không chạy được (code cũ chạy tốt trong trường hợp này). Mình đã thử thêm lệnh nagy đầu chương trình để kiểm tra các giá trị trong cột này nếu 0 thì Empty nhưng vẫn không được. Bạn có thể chỉnh lại giúp mình với. Do sơ xuất hôm trước đưa tệp lên mình không để ý. Cảm ơn bạn.

 

[HieuCD]

Mình đã chạy thử với tất cả Số lượng A có dữ liệu hoăc một số trống đều chính xác, tuy nhiên nếu cột này có một đơn vị nào đó giá trị 0 thì code lại không chạy được (code cũ chạy tốt trong trường hợp này). Mình đã thử thêm lệnh nagy đầu chương trình để kiểm tra các giá trị trong cột này nếu 0 thì Empty nhưng vẫn không được. Bạn có thể chỉnh lại giúp mình với. Do sơ xuất hôm trước đưa tệp lên mình không để ý. Cảm ơn bạn.

Chỉnh lại lệnh đếm số dòng có dữ liệu
sR = Application.Count(Range("B3:B26")) 'So don vi
Thành
sR = Application.CountIf(Range("B3:B26"), ">0") 'So don vi

 

[titanic20072007]

Chỉnh lại lệnh đếm số dòng có dữ liệu
sR = Application.Count(Range("B3:B26")) 'So don vi
Thành
sR = Application.CountIf(Range("B3:B26"), ">0") 'So don vi

Cảm ơn bạn nhiều. Mình đã sửa và code chạy tốt rồi.