- 683 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 23:03:57 ]
- 可能です
- は変数ハイフンに入れる
Dim ハイフン As String
3個の文字列を無条件で＆で結合せず
IFで条件分岐してから結合すればよい
ハイフン = "-"
If Mid(r(1).Offset(3).Value, 2, 10) = "" then ハイフン = ""
st4 = Mid(r(1).Offset(2).Value, 5, 10) & ハイフン & Mid(r(1).Offset(3).Value, 2, 10)
