XÓA TỪ TRONG CÁC Ô TRONG MS EXCEL 2010

Làm thế nào để xóa từ đầu tiên và từ thứ ba trong nhiều ô thuộc cùng một cột, ví dụ như Cột A?

mèo nhà chó
hoa táo chồn
xe phao cây
chó chim ong
thế giới rắn lợn

vân vân.

Các từ đều được phân cách bởi một khoảng trắng. Do đó, sau khi quá trình xóa hoàn tất, bạn sẽ thấy như sau:

con mèo
chồn hôi
trôi nổi
chim
thế giới

vân vân.



Trả lời:

Chọn các ô chứa ba từ và chạy đoạn mã macro nhỏ này:

 

Sub FixThem()
Dim r As Range
Đối với mỗi r trong lựa chọn
r.Value = Split(r.Value, " ")(1)
Kế tiếp
End Sub.

Sao không dùng một dòng lệnh thay vì vòng lặp (nó sẽ nhanh hơn vòng lặp)...

Sub GetMiddleWord()
Selection.TextToColumns Selection(1), xlDelimited, Space:=True, FieldInfo:= _
Mảng(Mảng(1, xlSkipColumn), Mảng(2, xlTextFormat), Mảng(3, xlSkipColumn))
End Sub

Trả lời:

Chọn các ô chứa ba từ và chạy đoạn mã macro nhỏ này:

 

Sub FixThem()
Dim r As Range
Đối với mỗi r trong lựa chọn
r.Value = Split(r.Value, " ")(1)
Kế tiếp
End Sub