【VBA】メールアドレスのアルファベットからイニシャルを作成

Question

前提・実現したいこと

VBAを使用して、メールアドレスからアルファベットを抜き取りイニシャルを作りたいです。

例）

アドレス	イニシャル
[e-mail]
[e-mail]
[e-mail]
:

↓　隣の列に大文字、文字の間に"・"を入れる（最終行まで繰り返し）

アドレス	イニシャル
[e-mail]	Y・T
[e-mail]	T・H
[e-mail]	S・T
:

試したこと

以下のような方法を考えましたが、スキルが不足しておりできませんでした…。
①　@より右側の文字列を削除
②　①削除後、"."より右側をイニシャル列へ入力
③　アドレス列の1文字目とイニシャル列の1文字目を連結し、イニシャル列へ入力

よろしくお願いいたします。

Answer 1

=UPPER(LEFT(A1,1)&"・"&MID(A1,FIND(".",A1)+1,1))

Sub sample()
    Dim ws As Worksheet, c As Range, arr As Variant
    Set ws = ActiveSheet
    For Each c In Intersect(ws.UsedRange, ws.Columns(1)).Cells
        arr = Split(StrConv(c.Value, vbUpperCase), ".")
        c.Offset(, 1).Value = Join(Array(Left(arr(0), 1), Left(arr(1), 1)), "・")
    Next
End Sub

Comments

[wawa2150]

jinoji様
回答ありがとうございます！早速試してみます。

以下のコードが何をしているのか分からなかったので教えていただけないでしょうか。
Join(Array(Left(arr(0), 1), Left(arr(1), 1)), "・")

[jinoji]

Join(Array( Left( arr(0) , 1), Left( arr(1) , 1) ), "・")
Join(Array( Left("taro", 1) , Left( "yamada@yahoo", 1) ), "・")
Join(Array("t", "y"), "・")
"t・y"