┌─┬─┬─┬─┐
│  │  │  │  │
├─┌─┬─┬─┐
│  │a │b │c │  ┌───┐
├─├─┼─┼─┤  │a b c │
│  │d │e │f │→│d e f │
├─├─┼─┼─┤  │g h i │
│  │g │h │i │  └───┘
└─└─┴─┴─┘
セル範囲をテキストエディタに貼り付けて一つの文字列としたような変換のマクロ。
┌──────────────────────────────────────┐
│Const x始 As Long = 2, x終 As Long = 4                                      │
│Const y始 As Long = 2, y終 As Long = 4                                      │
├──────────────────────────────────────┤
│Sub 範囲を文字列に変換()                                                    │
│    Dim y As Long, 配列(y終 - y始) As String                                │
│    For y = y始 To y終                                                      │
│        配列(y - y始) = Join( _                                             │
│            WorksheetFunction.Index( _                                      │
│                Range(Cells(y, x始), Cells(y, x終)).Value, _                │
│                1, _                                                        │
│                0), _                                                       │
│            vbTab _                                                         │
│        )                                                                   │
│    Next y                                                                  │
│    MsgBox Join(配列, vbCrLf)                                               │
│End Sub                                                                     │
└──────────────────────────────────────┘