Giúp đỡ về replace space ( khoảng trống ), sửa chữ in nghiêng, gạch chân trong VBA (1 người xem)

[protq2]

Mong các bạn giúp đỡ, mình có đoạn code sau:

Sub Capnhat()
Dim wb As String
dim worksheets As String
wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
Application.ScreenUpdating = False
With Workbooks.Open(wb)
Sheets(1).Range("B2:B5000").Copy
' Sheets(1).Range("B2:E" & .Range("A" & Rows.Count).End(3).Row).Copy
ThisWorkbook.Sheets(1).Range("B65536").End(3).Offset(1, 0).PasteSpecial xlPasteValues
Application.ScreenUpdating = True
MsgBox "Da Ghi Xong!", , "Thong bao"
End Sub

Đoạn code trên là nhờ 1 b trên diễn đàn viết giúp mục đích là copy dữ liệu từ 1 file excel sang 1 file excel khác.
Nay mình muốn, thêm các lệnh để sửa các ký tự trong văn bản cần copy :
1. xóa ký tự khoảng trống "space" đó ah
2. fix lại ko cho chữ in nghiêng -> A-> A
3. fix lại ko cho chữ gạch chân -> B > B

Mong cả nhà giúp đỡ, mình cảm ơn!

 

[befaint]

Code trên:
1/ worksheets hết ký tự rồi sao mà dùng nó làm tên biến.
2/ wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
Không bẫy lỗi
3/ With... thiếu end with
4/ Gửi file excel lên. Nêu cụ thể yêu cầu cần làm gì.
...

 

[protq2]

Code trên:
1/ worksheets hết ký tự rồi sao mà dùng nó làm tên biến.
2/ wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
Không bẫy lỗi
3/ With... thiếu end with
4/ Gửi file excel lên. Nêu cụ thể yêu cầu cần làm gì.
...

Sorry bạn đây bạn ơi, đoạn code trên nhằm để chuyển dữ liệu từ file danh sách sang file template.
bây giờ mình muốn thêm đoạn code nữa để fix lỗi

1. xóa khoảng trống "space" để các chữ liền lại
2. fix chữ nghiêng thành chữ thẳng
3. fix chữ gạch chân thành ko có gạch chân ah

mình cảm ơn

 

[anhdepjai]

1. Bôi cả vùng, chọn lại chữ nghiêng thành chữ thẳng, chữ gạch chân thành chữ không gạch chân. (Ctrl + U và Ctrl + I)
2. Đặt ô bên cạnh = TRIM( của ổ cần bỏ khoảng trống)
3. Nếu loại bỏ ở trên mà vẫn chưa đúng, muốn loại bỏ hoàn toàn, dùng cái Replace, thay khoảng trằng bằng không có gì, replace all.

 

[befaint]

http://www.giaiphapexcel.com/forum/...-từ-các-cột-bên-1-excel-sang-1-file-excel-mới