Sub 列ごとコピー() Dim ws1 As Worksheet 'ワークシートの変数宣言1 Dim ws2 As Worksheet 'ワークシートの変数宣言2 Dim val As String Dim col As Long Set ws1 = Sheets("Sheet1") Set ws2 = Sheets("Sheet2") val = ws1.Range("G10").Value '値を取得 c…