Excel VBAを利用して複数セルを選択した場合、値があるものだけを変数に代入したい 削除
Message#2 2015年2月6日(金)00時59分 From: トライアル |
これでどうですか? 選択した範囲内をループさせています。 Sub Sample() Dim MyRange As Range, MyStr As String For Each MyRange In Selection If IsEmpty(MyRange ) = False Then MyStr = MyStr & MyRange .Value & "," End If Next If Len(MyStr) > 0 Then MsgBox "集めた値は、" _ & vbCrLf & vbCrLf & Replace(MyStr, ",", vbCrLf) End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。