夜雨聆风家人们谁懂啊！做Excel办公的，谁没被“凑整”逼疯过？
比如算提成，老板说“不满3000的部分不算”；算库存，仓库说“只按10个一组统计”；算工时，人事说“不足1小时按0算”——你对着一堆带小数的数字抠破头，手动向下舍入到指定倍数，算完还得反复核对，生怕多算一分、少算一厘，浪费时间还容易出错。
其实你不用这么卷！Excel VBA里藏着一个“向下舍入神器”——Floor函数，堪称职场“向下兼容”大师，专门搞定“按指定倍数向下凑整”的活儿，你让它凑到几的倍数，它就乖乖听话，绝不越界，比实习生还听话！
今天就带大家吃透VBA里的Floor函数，从“啥是Floor”到“怎么用”，再到“避坑指南”，全程诙谐不枯燥，看完直接复制代码就能用，小白也能轻松拿捏～
先搞懂：VBA Floor函数，到底是个啥？
很多人一看到“函数”“代码”就头大，先给大家吃颗定心丸：Floor函数一点都不复杂，甚至可以说是“直肠子”——它的核心作用只有一个：把一个数字，向下舍入到你指定的“倍数”，而且是“无条件向下”，哪怕差一点点，也绝不“四舍五入”。
举个接地气的例子：你有3.7元，老板说“只按2元的倍数算”，Floor就会直接给你算2元（不是4元！）；你有-2.5元，按-2的倍数算，它就给你算-2元——简单说，它就是个“不贪心”的凑整工具，只往小了凑，不往大了靠。
这里要区分一个误区：很多人把Floor和RoundDown（向下舍入）搞混，其实二者差别很大：RoundDown是“按小数位数向下舍”，比如RoundDown(3.78,1)是3.7；而Floor是“按指定倍数向下舍”，比如Floor(3.7,2)是2，主打一个“倍数凑整”，针对性更强。
另外要注意：VBA里的Floor函数，本质是调用Excel工作表的函数，写法是「WorksheetFunction.Floor(参数1, 参数2)」，不是单独的“Floor对象”哦（很多小白会误叫成Floor对象，其实它是工作表函数的一种调用方式），这点记牢，别在同事面前闹笑话～
核心用法：2个参数，搞定所有向下凑整需求
VBA Floor函数就两个参数，简单到像“点外卖”——参数1是“你要凑整的数字”（相当于你点的餐），参数2是“凑整的倍数”（相当于你要的份量），输入完，它就给你出结果，全程零多余操作。
先上核心语法（记不住没关系，后面有现成代码）：
WorksheetFunction.Floor(Arg1, Arg2)
拆解一下两个参数，保证你一看就懂：
- Arg1（必选）：要进行向下舍入的数字，说白了就是“你要处理的原始数据”，可以是具体数字（比如3.7、-2.5），也可以是单元格值（比如Range("A1")），甚至是计算结果（比如Range("A1")+Range("B1")）。
- Arg2（必选）：凑整的“倍数基准”，就是你想让数字凑到哪个数的倍数，比如2、5、0.1、3000，都可以。但有个关键规则：Arg1和Arg2的符号必须一致，否则会报错（#NUM!），这个坑后面重点说。
光说不练假把式，给大家上3个办公高频场景，代码直接复制粘贴，改改单元格就能用，比你手动算快10倍！
场景1：计算销售提成（最常用）
老板规定：销售额每满3000元，提成200元；不满3000元的部分，不算提成。比如销售额5800元，只能按3000元算1次提成（200元）；销售额6000元，按6000元算2次提成（400元）。
以前你可能要手动除以3000、取整，现在用Floor函数，一行代码搞定：
Sub 计算销售提成()Dim 销售额 As DoubleDim 提成 As Double'获取A1单元格的销售额（可批量修改为循环，处理整列数据）销售额 = Range("A1").Value'用Floor函数按3000的倍数向下舍入，再计算提成提成 = (WorksheetFunction.Floor(销售额, 3000) / 3000) * 200'将提成结果写入B1单元格Range("B1").Value = 提成End Sub
解析：Floor(5800,3000)会返回3000（5800向下凑整到最近的3000倍数），除以3000得到1，再乘以200，就是提成200元；如果销售额是6000，Floor返回6000，提成就是400元，完美符合老板要求～
场景2：库存统计（按固定倍数归类）
仓库盘点，要求所有库存数量按10个一组统计，不满10个的，按0组算（比如18个算10个，7个算0个），方便入库和出库管理。
代码直接用，支持批量处理A列库存，结果写入B列：
Sub 库存按倍数统计()Dim 最后一行 As IntegerDim i As Integer'获取A列最后一行数据（避免空行）最后一行 = Range("A" & Rows.Count).End(xlUp).Row'循环处理A2到最后一行的库存数据（A1是表头）For i = 2 To 最后一行'按10的倍数向下舍入，写入B列Range("B" & i).Value = WorksheetFunction.Floor(Range("A" & i).Value, 10)Next iMsgBox "库存统计完成！"End Sub
这里用到了循环，批量处理整列数据，不用你一个个手动改，运行代码后，弹窗提示完成，省时又省力，再也不用对着几百行库存数据发呆了～
场景3：工时计算（不足1小时舍去）
人事统计员工加班工时，规定：不足1小时的部分，全部舍去（比如1.8小时算1小时，0.5小时算0小时），这时候Floor函数就派上用场了，参数2设为1即可。
简化版代码（可直接套用）：
Sub 工时向下舍入()'将A1单元格的工时，按1小时倍数向下舍入，结果写入C1Range("C1").Value = WorksheetFunction.Floor(Range("A1").Value, 1)End Sub
避坑指南：3个高频错误，90%的人都踩过
Floor函数虽然简单，但很多小白第一次用，总会报错，不是出现#NUM!，就是结果不对，其实都是踩了这3个坑，记牢就能避开：
坑1：参数1和参数2符号不一致（最常见）
比如你写「WorksheetFunction.Floor(2.5, -2)」，参数1是正数，参数2是负数，这时候就会报错#NUM!——Floor函数有个死规矩：两个参数必须同号（要么都是正数，要么都是负数）。
正确示例：Floor(-2.5, -2)（都为负，返回-2）、Floor(3.7, 2)（都为正，返回2）；错误示例：Floor(3.7, -2)、Floor(-3.7, 2)，都会报错。
坑2：参数不是数字（容易忽略）
如果参数1或参数2是文本（比如“3.7”带引号，或者单元格里有文字），Floor函数会返回#VALUE!错误——它只认数字，不认文本，哪怕是“看起来像数字”的文本也不行。
解决方法：先确认单元格是“数值格式”，如果是文本格式，用Val函数转换（比如Val(Range("A1").Value)）。
坑3：混淆VBA写法和工作表函数写法
很多人在VBA里直接写「Floor(3.7, 2)」，结果报错——因为VBA本身没有独立的Floor函数，必须加上「WorksheetFunction.」前缀，调用Excel工作表的Floor函数，正确写法是「WorksheetFunction.Floor(3.7, 2)」，少一个字都不行！
补充一句：Excel里还有Floor_Math、Floor_Precise两个升级版本的函数，精度更高，但如果只是日常办公，普通的Floor函数完全够用，不用特意去学复杂的升级版本，避免增加学习负担。
总结：Floor函数，懒人必备的“凑整神器”
其实VBA里的Floor函数，核心就是“向下舍入到指定倍数”，两个参数、一行核心代码，就能搞定办公中80%的凑整需求——销售提成、库存统计、工时计算、金额凑整，只要涉及“按倍数向下舍”，它都能轻松胜任。
最后给大家划重点，记牢这3句话，下次用的时候不踩坑：
- 1. 语法：WorksheetFunction.Floor(要凑整的数字, 凑整倍数)；
- 2. 规则：两个参数必须同号，否则报错；
- 3. 优势：批量处理、零误差，比手动凑整快10倍，小白也能上手。
很多人觉得VBA难，其实是没找对方法——像Floor这样的“小函数”，看似简单，却能解决实际工作中的大麻烦，这就是VBA的魅力：不用写复杂代码，不用懂高深理论，只要学会这些“小工具”，就能解放双手，告别重复劳动。
下次再遇到“凑整”的活儿，别再手动算了，复制本文的代码，改改单元格，点击运行，轻松搞定～ 赶紧收藏起来，下次用的时候直接找，省下来的时间，摸鱼不香吗？
关注我，下期分享更多VBA干货，轻松搞定各种办公难题，做职场里的“效率大神”！
