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…

■バッチスクリプト:差分コピー @echo off set "source=\\10.88.99.99" set "destination=C:\test\back"robocopy "%source%" "%destination%" /E /ZB /COPY:DAT /MIR■NOT NULLを取り出すSQL SELECT * FROM users WHERE email IS NOT NULL;