Sub メモ帳に出力() Dim 出力文字列 As String Dim ファイル名 As String Dim ファイル番号 As Integer Dim i As Integer Dim シート As Worksheet ' 対象のセルの値を取得 Set シート = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更 出力文字列 = "…

Sub データをコピー() Dim シート1 As Worksheet, シート2 As Worksheet Dim 対象値 As Variant Dim 範囲 As Range, セル As Range Dim コピー範囲 As Range ' シートを指定 Set シート1 = ThisWorkbook.Sheets("Sheet1") Set シート2 = ThisWorkbook.Sheets…

Sub CopyTo37() Dim ws As Worksheet Dim rng28to35 As Range Dim rng37 As Range Dim セル As Range Dim カウント As Integer ' 対象のワークシートを指定 Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更 ' L列の28行目から35行目の範囲を取…