배열을 통한 효율적인 루핑

Question

나는 이니셜로 대체하고자하는 전체 이름의 열을 가지고 있습니다. 나는 현재이 일을하고

:

Dim n As Long 
Dim varray As Variant 
Dim FullNameRange As Range 
Dim FullName As String 

varray = Range(NDLstaffCol & FirstLineItemRow & ":" & staffCol & LastRow + 1) 

For n = FirstLineItemRow To UBound(varray, 1) 
    Set FullNameRange = ActiveSheet.Range(staffCol & n) 
    FullName = FullNameRange.Value 
    FullNameRange = Left(FullName, 1) & Mid$(FullName, InStr(FullName, " ") + 1, 1) 
Next 

LastRow가 글로벌 변수로 마지막 레코드를 의미합니다.

동일한 모듈의 다른 서브 루틴과 비교할 때 처리하는 데 시간이 오래 걸립니다.

더 좋은 방법이 있나요?

하드 코딩 된 찾기/바꾸기가 작동하지 않으므로 전체 이름을 알 수는 없습니다. < 500 개의 레코드가 있습니다.

Answer 1

Dim n As Long, rng As Range 
Dim varray As Variant 
Dim FullNameRange As Range 
Dim FullName As String, v 

Set rng = Range(staffCol & FirstLineItemRow & ":" & staffCol & LastRow + 1) 
varray = rng.Value 

For n = 1 To UBound(varray, 1) 
    v = varray(n, 1) 
    varray(n, 1) = Left(v, 1) & Mid$(v, InStr(v, " ") + 1, 1) 
Next 

rng.Value = varray