Sub CopyValues()
Dim xSheet As Worksheet
Dim ySheet As Worksheet
Dim xRange As Range
Dim yRange As Range
Dim xCell As Range
Dim yCell As Range
Dim i As Integer
' シートを指定
Set xSheet = ThisWorkbook.Sheets("書面")
Set ySheet = ThisWorkbook.Sheets("記録")
' コピー元とコピー先の範囲を指定
Set xRange = xSheet.Range("A1:C3")
'Set yRange = ySheet.Range("A1:I1") ' 列の範囲をA1からI1に変更
' コピー先の先頭列の設定(A列)
i = 1
' 値をコピー
For Each xCell In xRange
ySheet.Cells(1, i) = xCell.Value
' Set yCell = yRange.Cells(1, i)
' yCell.Value = xCell.Value
i = i + 1
Next xCell
ySheet.Select
End Sub
Sub selectSheet()
ThisWorkbook.Sheets("書面").Select
End Sub