|
▼Kein さん:
下記のようなプログラムを使ってます
Sheet1の選択した行のA列のセルをSheet2にコピーする
宜しくお願いします
------------------
Sub コピー()
Dim act As Variant
Dim act2 As Variant
Worksheets("Sheet1").Select
Application.ScreenUpdating = Flase
act = ActiveCell.Address
Range(act).EntireRow.Select
act2 = Application.Intersect(Selection, Range("A:A")).Value
MsgBox act2 & "をコピーします"
Sheets("Sheet1").Select
Range(act).EntireRow.Select
Application.Intersect(Selection, Range("A:A")).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
|
|