' 設定千分位格式
ws.Range("D2:F" & LastRow).NumberFormat = "#,##0"
' 自動調整欄寬
ws.Columns("A:F").AutoFit
' 加上框線 (Borders)
ws.Range("A1:F" & LastRow).Borders.LineStyle = xlContinuous