kí tự 8 bit và 16 bit

[PhuongThaoQN]

Mình cần phải so sánh dữ liệu, tuy nhiên bị rắc rối khi so sánh giá trị

If range("A" & I).value = range("B" & I).Value then ....

Vấn đề là như thế này, giả sử ô A1 có giá trị là: vietnam, ô B1 có giá trị là: vietnam, về mặt ý nghĩa thì ô A1 và B1 là giống nhau, tuy nhiên vì ô A1 được gõ bình thường (8bit), ô B1 do sơ suất người ta bật bộ gõ tiếng Nhật (nhưng vẫn có thể gõ bình thường như tiếng anh (16bit), và vì thế chương trình hiểu giá trị ô A1 và B1 là khác nhau, trong khi chúng có nội dung giống nhau.

http://www.mediafire.com/?kv6vanv0hxxfc35

Có ai có cách chuyển đổi dữ liệu từ 16 bit sang 8 bit bằng VBA giúp mình với