Option Explicit
'***'
Sub vidu_Range()
Dim ma_don_vi As String, loai_hinh As String, i As Long '// khai bao cac bien'
With Sheet1
For i = 2 To 40 '// vong lap chay tu dong 2 toi dong 40'
ma_don_vi = .Range("A" & i).Value '// lay gia tri cua cell gan vao bien'
If Len(ma_don_vi) > 0 Then '// xet chuoi, neu len()>0 thi moi lay 4 ky tu ben phai'
loai_hinh = Right(ma_don_vi, 4) '// lay 4 ky tu ben phai'
.Range("C" & i).Value = loai_hinh '// gan ket qua vao cell tuong ung cua cot [C]'
End If
Next i
End With
End Sub
'****'
Sub vidu_Array()
Dim mang_du_lieu(), ket_qua() '// tao 2 mang cho de hinh dung'
Dim ma_don_vi As String, loai_hinh As String, i As Long, maxR As Long
With Sheet1
mang_du_lieu = .Range("A2:A40").Value '// gan mang du lieu vao mot bien mang'
maxR = UBound(mang_du_lieu, 1) '// lay chi so can trên chiêu thu nhât cua mang (= kich thuoc chiêu thu nhât cua mang)'
ReDim ket_qua(1 To maxR, 1 To 1) '// khai bao lai kich thuoc cua mang ket qua (= kich thuoc mang du lieu can xu ly)'
For i = 1 To maxR '// vong lap xet cac phan tu cua mang du lieu'
ma_don_vi = mang_du_lieu(i, 1) '// gan phan tu can xet cua mang du lieu vao môt biên trung gian'
If Len(ma_don_vi) > 0 Then
loai_hinh = Right(ma_don_vi, 4) '// lay 4 ky tu ben phai'
ket_qua(i, 1) = loai_hinh '// gan ket qua tach duoc vao mang ket qua'
End If
Next i
.Range("C2").Resize(maxR, 1).Value = ket_qua '// chep mang ket_qua xuong bang tinh, tu cell [C2]'
End With
End Sub
