最終行を取得する With Sheets(<シート名>).UsedRange LogRow = .item(.count).Row End With ネタ元 https://excel-ubara.com/excelvba4/EXCEL222.html

クリアする方法は次の5種類Clear：全てクリア ClearContents：数式、文字列をクリア ClearFormats：書式をクリア ClearComments：コメント文をクリア ClearOutline：アウトラインをクリア Sub test() Worksheets("Sheet1").Cells.Clear End Sub ネタ元 http:…

#If Win64 Then Private Declare PtrSafe Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) #Else Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) #End If Private Function GetLocalTime() As String Dim …