變量定義 Dim i as Interger Dim rng as Range Dim biao as WorkSheet
Workbooks.Open Filename = 'd:\data\1.xlsx' ActiveWorkbook.Close ActiveWorkbook.Add ActiveWorkbook.Save ActiveWorkbook.SaveAs .
For Each For Each A in Range("a1:a10") For Each A in Worksheets