| |
▼はむち さん：こんにちは。
>列がいくつもあるので、コピー・貼り付けの回数を減らしたいのです。
>もしあったら、教えてください。
マクロ組むしか、思いつきませんでした。(^^)
Sub PasteAsCombined()
'//コピーしたいセル複数のセル範囲をCtrlキーを押しながら選択後
'//このマクロを実行してみてください。(列全体の選択も可能)
'//[値]だけのコピーの場合はPasteSpecialかValueを使って書き換えてください。
'//ショートカットーキーに登録すると便利かもしれません。
Dim rng As Range, i As Long
If TypeName(Selection) <> "Range" Then Exit Sub
With Selection
Set rng = Application.InputBox("張付先セルを選択してください。", Type:=8)
If rng.Count > 1 Then Set rng = rng.Item(1)
For i = 1 To .Areas.Count
If .Areas(i).Columns.Count <> 1 Then
'A列,B列など列が隣り合っている場合も1列にしてペースト
For j = 1 To .Areas(i).Columns.Count
.Areas(i).Columns(j).SpecialCells(2).Copy rng
Set rng = rng.End(xlDown).Offset(1)
Next
Else
.Areas(i).SpecialCells(2).Copy rng
Set rng = rng.End(xlDown).Offset(1)
End If
Next
End With
Set rng = Nothing
End Sub
|
|
コロスケ
- 03/10/17(金) 16:43 -
