Tách tên la tinh thành hai phần. Phần 1 gồm tên chi + tên loài. Phần 2 là tên tác giả
o Tạo trường “Tên chi + tên loài”
§ Tại ô B1, nhập chuỗi “Tên chi + tên loài”
§ Tại ô B2, nhập công thức = IFERROR(LEFT(A2;FIND(" ";A2;FIND(" ";A2;1)+1));A2)
§ Sao chép công thức cho các ô còn lại của trường “Tên chi + tên loài”
o Tạo trường “Tên tác giả”
§ Tại ô C1, nhập chuỗi “Tên tác giả”
§ Tại ô C2, nhập công thức =IF(LEN(A2)-LEN(B2)>0;RIGHT(A2;LEN(A2)-LEN(B2));"")
§ Sao chép công thức cho các ô còn lại của trường “Tên tác giả”
2. Bấm Alt+F11, Cửa sổ Microsoft Visual Basic mở ra , bấm menu Insert > Module .
Dán những nội dung dưới đây
Sub TenLaTinh()
Dim i As Long, enR As Long
Range("C:C").Clear
enR = Sheet2.Range("A65536").End(xlUp).Row
For i = 1 To enR
With Cells(i, 3)
.FormulaR1C1 = "=RC[-2]&"" ""&RC[-1]"
.Value = .Value
End With
If Cells(i, 1) <> "" Then
With Cells(i, 3).Characters(Start:=1, Length:=Len(Cells(i, 1))).Font
.FontStyle = Cells(i, 1).Font.FontStyle
.ColorIndex = Cells(i, 1).Font.ColorIndex
End With
With Cells(i, 3).Characters(Start:=Len(Cells(i, 1)) + 2, Length:=Len(Cells(i, 2))).Font
.FontStyle = Cells(i, 2).Font.FontStyle
.ColorIndex = Cells(i, 2).Font.ColorIndex
End With
Else
With Cells(i, 3).Characters(Start:=1, Length:=Len(Cells(i, 2)) + 1).Font
.FontStyle = Cells(i, 2).Font.FontStyle
.ColorIndex = Cells(i, 2).Font.ColorIndex
End With
End If
Next
End Sub
3. Quay trở lại Excel
4. Bấm menu Tool > Macro > Macro , bạn sẽ chọn TenLaTinh và bấm Run
Các bài liên quan
Đổi tên các tập tin bằng macro
Tạo danh sách tên tập tinh bằng lệnh MS-Dos
Nhân bản trang tính
Giới thiệu về Macro
Forms ComboBox
ActiveX ComBoBox
Nối nhiều sheet thành một sheet
Tạo mục lục tự động trong Excel
Nối nhiều File Excel thành một
Cách hiện tất cả trang tính đã ẩn
Tạo công thức đọc số tiền thành chữ
0 comments :
Post a Comment