常用宏
'查找当前表最末行行号。a65536中的a代表查找最末数据的所在列，可修改成诸如b,c,d等'
ActiveSheet.Range("a65536").End(xlUp).Row
'引用Excel公式。如引用最大值公式'
Application.WorksheetFunction.Max(1,2)
'查找当前表最末行行号。a65536中的a代表查找最末数据的所在列，可修改成诸如b,c,d等'
ActiveSheet.Range("a65536").End(xlUp).Row
'引用Excel公式。如引用最大值公式'
Application.WorksheetFunction.Max(1,2)