素人のVBA備忘録

客先や社内での研修用のVBAのコードを書き留めています。初心者にも分かりやすく書いているつもり?です。参考になれば嬉しいです。

カンマ区切り結合(Join)カンマ区切り分解(Sprit)

メールをCCやBCCなどで一斉送信するときが多いのですが、都度宛先が変わったり、また多いときは50件くらいまとめての送信になったり…これってかなり面倒です。 お隣のパートのおばちゃんは、1件ずつコピペしてたので、こうやるといいよ。と教えてやったら、そんなに早く終わったら稼げなくなっちゃうからこれでいいんです!だって…

それってただの給料ドロボーなんじゃないの?って思うんですけどね。 そんな時に便利なのがコレです。そのままコピペですぐに使えますのでよろしければ是非どうぞ。

f:id:gray-to:20210505215316g:plain

カンマ区切りでメールアドレスを結合するVBAコード

Sub カンマ区切り結合()

    Dim MyArray()   As Variant
    Dim MyStr       As String
    Dim i           As Long
    Dim LastCell    As Long
    
    LastCell = Cells(Rows.Count, 1).End(xlUp).Row
    
    ReDim MyArray(0 To LastCell - 1)
    
    For i = 1 To LastCell
    
        MyArray(i - 1) = Cells(i, 1)
    
    Next i
    
    MyStr = Join(MyArray, ",")
    
    Cells(1, 3) = MyStr

End Sub

カンマ区切りのデータを一列に分解するVBAコード

Sub カンマ区切りデータ分解()
    
    Dim MyStr() As String
    Dim i As Integer
  
    MyStr = Split(Cells(1, 3), ",")
    
    For i = 0 To UBound(MyStr)
       
    Cells(i + 1, 2) = MyStr(i)
        
    Next

End Sub