[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『行列を入れ替えて値貼付け』(JJガール)
よく参考にさせて頂いてます。 マクロで横方向に範囲選択コピーしたデータを 基点とするセル番地を手入力で打ち込み そこのセルを基点に横から縦方向に値貼付けしたいのですが つまずいております。 横方向コピーを横方向に貼付けはできますが 横縦入れ替えの方法をご教授いただけないでしょうか。 (Windows7 エクセル2013)
Sub TEST()
Dim myR As Range, ws As Worksheet
On Error Resume Next Set ws = Workbooks("ファイル名.xlsm").Sheets("シート1") If ws Is Nothing Then MsgBox "該当ファイルが開かれていないか、" & Chr(10) & _ "開かれていても「シート1」シートが存在しません。" 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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.