効率的な配列のループ

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