|
右クリックイベントを使うと、便利になります。コードは
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
With Target
If .Areas.Count <> 2 Then Exit Sub
If .Areas(1).Count = 1 Or .Areas(2).Count > 1 Then
Exit Sub
End If
With .Areas(1)
If WorksheetFunction.CountA(.Cells) < 2 Then
Exit Sub
End If
If .Columns.Count > 1 Then
If .Rows.Count > 1 Then Exit Sub
End If
If .Rows.Count > 1 Then
If .Columns.Count > 1 Then Exit Sub
End If
Cancel = True
.Copy
End With
End With
On Error Resume Next
ActiveCell.PasteSpecial Transpose:=True
Application.CutCopyMode = False
End Sub
初めに、縦でも横でも複数のセル(値が2つ以上入力されていること)を選択し、
Ctrlキーを押しながら貼り付け先のセルを一つ選択、そのまま右クリック
してみて下さい。コピー元のセル範囲が縦一列なら一行に、横一行なら一列に
行列変換して貼り付けることが出来ます。
|
|