[[20140422170054]]　『行列を入れ替えて値貼付け』（JJガール）　ページの最後に飛ぶ

『行列を入れ替えて値貼付け』（JJガール）

 よく参考にさせて頂いてます。
 マクロで横方向に範囲選択コピーしたデータを
 基点とするセル番地を手入力で打ち込み
 そこのセルを基点に横から縦方向に値貼付けしたいのですが
 つまずいております。
 横方向コピーを横方向に貼付けはできますが
 横縦入れ替えの方法をご教授いただけないでしょうか。
 （Windows7 エクセル2013）

 Sub TEST()

 Dim myR As Range, ws As Worksheet

    On Error Resume Next
    Set ws = Workbooks("ファイル名.xlsm").Sheets("シート１")
    If ws Is Nothing Then
        MsgBox "該当ファイルが開かれていないか、" & Chr(10) & _
            "開かれていても「シート１」シートが存在しません。"
        Exit Sub
    End If

    Set myR = Application.InputBox("セルを選択してください", Type:=8)
    If myR Is Nothing Then Exit Sub
    On Error GoTo 0
    With ws.Range("B26:AJ27")
        myR.Resize(.Rows.Count, .Columns.Count).Value = .Value
    End With

 End Sub

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 >       myR.Resize(.Rows.Count, .Columns.Count).Value = .Value

         myR.Resize(.Columns.Count, .Rows.Count).Value = Application.Transpose(.Value)
 かな？
（seiya） 2014/04/22(火) 18:53

 おはようございます。
 ありがとうございました。出来ました！
（JJガール） 2014/04/23(水) 08:43

コメント返信：

[ 一覧(最新更新順) ]

[[20140422170054]] 『行列を入れ替えて値貼付け』（JJガール） ページの最後に飛ぶ

[[20140422170054]]　『行列を入れ替えて値貼付け』（JJガール）　ページの最後に飛ぶ