随笔分类 -  VBA

摘要：Sub 循环工作表() Dim sh As Worksheet For Each sh In Worksheets sh.Select For i = 2 To 10 If sh.Cells(i, 6) = "-" Then sh.Cells(i, 14) = "-" ... 阅读全文

摘要：Option Explicit Sub main() Dim wb As Workbook 'Application.DisplayAlerts = False Set wb = Workbooks.Open("D:\Python\downtest\data.xls") wb.Sheets(1).C 阅读全文