お勉強コミュの入力

Sub valuerange1()
'ワークシート２のA1をシート１に入力する

Range("A1").Value = Worksheets(2).Range("A1").Value

End Sub
------------------------------------------------------
Sub シート2に入力()

Worksheets(2).Range("A1").Value = Range("A1").Value

End Sub

コメント(2)

最初
全て
最新の40件

[1] mixiユーザー 04月06日 23:28

Sub 最終行に入力()

Dim lastrow As String
Dim n As String

Worksheets(2).Select

'ActiveSheet.Range("A65536").End(xlUp).Row 最終入力セルの選択
n = ActiveSheet.Range("A65536").End(xlUp).Offset(1).Select

'Worksheets(2).Range(n).Value = Worksheets(1).Range("A1").Value
ActiveCell = Worksheets(1).Range("A1").Value

End Sub

[2] mixiユーザー 04月06日 23:29

Sub 行をコピーして最終行に貼り付ける()

Dim n As String
Dim C As Long

Worksheets(1).Select
Range("B9", Range("B9").End(xlToRight)).Select
Selection.Copy

Worksheets(2).Select

n = ActiveSheet.Range("A65536").End(xlUp).Offset(1).Select

'ActiveCell = ActiveSheet.Paste TRUEが入力される？
n = ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

ログインすると、みんなのコメントがもっと見れるよ