Sub ログファイルの読込み() Dim wkF As String '読込み先のシートを空にする Workbooks(xMyXLS).Activate Sheet(xログ).Select Rows("1:1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete shift:=xlUp 'ログファイルを開いてシ…