見出し画像

VBA excel持ってないけど仕事で使うし VBA

値のコピー


‘タイトル
Sub 値のコピー()

‘「Target」これはセルの名ある
Dim Target As Range

‘「Target」にc3:c13のセルを代入
Set Target = Range(”c3:c13”)

‘「Target」をコピー
Target.Copy

‘E1に「Target」を貼り付け
Range("E1").PasteSpecial Paste:=xlPasteValues

‘これなんなん
Application.CutCopyMode = False

‘おわり
End Sub

選択してもろて値のコピー


‘タイトル
Sub 選択してもろて値のコピー()

‘「Target」これはセルの名ある
Dim Target As Range

‘「Target」に入力ボックスから入力してもらう、入れてもらうのはセル
Set Target = Application.InputBox("セルを選択してください", Type:=8)

‘「Target」をコピー
Target.Copy

‘E1に「Target」を貼り付け
Range("E1").PasteSpecial Paste:=xlPasteValues

‘これなんなん
Application.CutCopyMode = False

‘おわり
End Sub


この記事が気に入ったらサポートをしてみませんか?