|
抽出したデータのみを表示する専用シートを挿入し、マクロを実行する都度、セルを
クリアしてから必要な列をコピーしていけば良いのでは ?
例えばコピーしたい列は、1行目の項目を[Ctrl]キーを押しながら選択するとし、
その後に右クリックで Worksheets("DataView") へ転記する、というやり方なら
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
Dim C As Range
For Each C In Target
If Intersect(C, Rows(1).SpecialCells(2)) Is Nothing Then
MsgBox "1行目の項目のみを選択して下さい", 48
Exit Sub
End If
Next
Cancel = True
With Worksheets("DataView")
.Cells.ClearContents
Target.EntireColumn.Copy .Range("A1")
.Activate
End With
End Sub
を、表のあるシートのシートモジュールに入れます。
|
|