Sub 宏2()
For Each wsh In Sheets
wsh.Select
Range("P1").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-13],10)"
Range("P1").Select
Selection.AutoFill Destination:=Range("P:P"), Type:=xlFillDefault
Range("P:P").Select
Columns("F:F").Select
Selection.Copy
Range("Q1").Select
ActiveSheet.Paste
Next wsh
End Sub