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 = ThisWorkbo…