(Excel制作小结.docxVIP

1）根据颜色求和：Function SumColor(col As Range, sumrange As Range) As Integer Dim icell As Range Application.Volatile For Each icell In sumrange If icell.Interior.ColorIndex = col.Interior.ColorIndex Then SumColor = Application.Sum(icell) + SumColor End If Next icellEnd Function2）去除下拉列表框的小箭头Sub HideAutoFilterDropdowns() Dim Rng As Range Set Rng = ActiveSheet.Range(A3:D3) With Rng .AutoFilter Field:=1, VisibleDropDown:=False .AutoFilter Field:=2, VisibleDropDown:=True .AutoFilter Field:=3, VisibleDropDown:=False .AutoFilter Field:=4, VisibleDropDown:=False End WithEnd Sub3）两张表相同内容合并For I = 1 To 44 For J = 1 To 50 If Sheet2.Cells(I + 1, 1) = Sheet1.Cells(J + 2, 3) Then Sheet2.Cells(I + 1, 11) = Sheet1.Cells(J + 2, 12) Sheet2.Cells(I + 1, 12) = Sheet1.Cells(J + 2, 13) Sheet2.Cells(I + 1, 13) = Sheet1.Cells(J + 2, 14) End If Next JNext I4）SUM函数 SUMIF函数 Sumif（求和对象，条件，求和的范围） SUMIF(A1:A10,四川,E1:E10)， SUM((A2:A75=山东)*(B2:B75=青岛)*(E2:E75)) 最后公式写完后，要同时按下Ctrl+Shift+Enter快捷键，出现大括号5）Excel查找函数三剑客之Vlookup函数的用法 Vlookup（查找对象，查找区域，列数，查找类别） 需要注意的是：Vlookup函数需要输入四个参数，第二个参数表示在哪个区域查找，注意查找的对象必须在该区域的第一列； 第三个参数表示函数最终得出的结果在查找区域中的列数是多少； 第四个参数表示精确查找还是模糊查找，0或者False表示精确查找，1或者true表示模糊查找 6）Vlookup（查找对象，查找区域，列数，查找类别） 第二个参数表示在哪个区域查找，注意查找的对象必须在该区域的第一列； 第三个参数表示函数最终得出的结果在查找区域中的列数是多少； 第四个参数表示精确查找还是模糊查找，0或者False表示精确查找，1或者true表示模糊查找 Vlookup（(A2,Sheet1!B:D,3,0)），然后下拉就可以全部自动套用该公式了7）冻结窗口 ActiveWindow.SplitRow = 2 ActiveWindow.SplitColumn = 1 ActiveWindow.FreezePanes = True8）在A1数字前面全部加上233 方法1：用函数“233”A1 方法2：单元格自定义23363712010@这个格式，双击即可9）如何将WORD文档转换成EXCEL文档？ 比如下面这组楼据，我希望进入到EXCEL里后，是分别对应到A、B、C三列里去，而不是全部Copy到A列？ 1 姓名 班级 2 小明 1班 3 小陈 2班 4 小夏 3班 5 小美 1班 6 小东 2班 STEP1：复制内容到A列 STEP2：到复制过来的内容里面复制一个空格 STEP3：数据/分列/分隔符号/下一步/勾选“空格”/完成10）如何得到空格前面/后面的内容 =LEFT(A1,FIND( ,A1)-1) =RIGHT(A1,LEN(A1)-FIND( ,A1))11）破解Excel工作表Option Private ModuleSUB（）。。。Dim?w1?As?Worksheet,?w2?As?Worksheet? Dim?i?As?Integer,?j?As?Integer,?k?As?Integer,?l?As?Integer? Dim?m?As?Integer,?n?As?Integer,?i1?As?Integer,?i2?As?Integer? Dim?i3?As?Integer,?i