259个常用宏27567.xlsVIP

文本框 代码 目录 file_name1 filename [ filename ] filename [ filename 1.00 QQ 登录 临时 If I.Font.ColorIndex = Y Then COLOR = COLOR + I Next I 统计红色,输入：=COLOR(B2:B8,3) 统计蓝色,输入：=COLOR(B2:B8,5) 统计不同颜色的数字的和（自定义函数） 统计不同颜色的数字的和（自定义函数） ActiveCell.Activate Application.SendKeys ~ With TextBox1 .Left = ActiveCell.Left .Top = ActiveCell.Top .Width = ActiveCell.Width .Height = ActiveCell.Height n = Range(a65536).End(xlUp).Row Range(B1) = n Sub 返回A列数据的最大行数() 返回A列数据的最大行数 返回A列数据的最大行数 查找和引用 n = n rag.Value Chr(10) Sub 删除A列非数字单元行() i = [a65536].End(xlUp).Row Range(A1:A i).SpecialCells(xlCellTypeConstants,