' 宛先のセル範囲を指定
Set rng = Range("A1:A10") ' 適切なセル範囲を指定してください
' 宛先を取得
For Each cell In rng
If cell.Value <> "" Then
recipient = recipient & cell.Value & ";"
Else
Exit For
End If
Next cell
More than 1 year has passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme