>>727
これはMathematicaフォーラム、
http://www.mathforum.jp/monitor/kyusyuuniv.html
にある、以下のコードです。用法はhpを参照ください。
−−−−−−−−−−−−−−−−−−−−−−−−−
　＜ソースコードはこちら＞　※　作成者様より公開許可は頂いております　※

　　Sub mathematica()
　　　　On Error Resume Next
　　　　Dim rg As Range, ms As String
　　　　　　Set rg = Selection
　　　　　　ms = ActiveSheet.Name & "=Import[""" & ActiveWorkbook.FullName & """" & ",""Data""]
　　　　　　　　　[[" & ActiveSheet.Index & ", Range[" & rg.Row & "," & rg.Rows.Count + rg.Row - 1 & "],
　　　　　　　　　Range[" & rg.Column & "," & rg.Columns.Count + rg.Column - 1 & "]]]"
　　　　　　Set mydata = New DataObject
　　　　　　　　mydata.SetText ms
　　　　　　　　mydata.PutInClipboard
　　　　　　　　MsgBox "コードは既にクリップボードにコピーした、Ctrl+V　を押してください"
　　　　　　Set mydata = Nothing
　　End Sub
−−−−−−−−−−−−−−−−−−−−−−−−−