摘要： Function GetColumnLetterByColumnNumber(ColumnNumber As Integer) As String   If ColumnNumber > 26 Then     ' 1st character:  Subtract 1 to map the characters to 0-25,  ... 阅读全文

摘要： 处理大数据量时，为了更快的运行，VBA通常在开始加两句 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 结尾处再恢复 Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True c... 阅读全文