有些繁琐的数据处理当中，会遇到excel的提示，显示为“循环引用”警告，很是头疼。 最简单的方法就是开启迭代计算。 需要找到“excel选项”，点击“公式”选项，在“计算选项”中， 可以看到“启用迭代计算”前面是没有勾选上的，将其勾选上之后，就能解决“循环引用”警告的问题了，表示excel默认可以进行循环引用。
标签：Excel
[Excel]VBA自定义BOM
闲话少说，上代码。 新建模块，粘贴如下代码。 Option Explicit Function SerNo(A, B As Integer) Dim T1 As Single Dim T2 As Single, T2a Dim T3 As Single Dim T4 As Single Dim T5 As Single Dim T6 As Single A = A & "-0-0-0-0-0-0-0-0-0-0-0" T1 = InStr(A, "-&quo
[Excel]请假按考勤区间计算时间
这个是最近遇到的一个问题，就是请假的有效计算，要求看图。 解决方法如下： 函数：=ROUND(((E3-INT(C3))*480+SUMPRODUCT(FREQUENCY(ROW(INDIRECT(ROUND(MOD(D3,1)*1440+1,)&":"&F3*1440)),{450,690,780,1020})*{0;1;0;1;0})-(F3&l
[Excel]单列按不同条件取最大值
最近有个朋友在用excel做自己的数据时，遇到从一堆序列中取末尾最大值。 见下图。 第一列中的值末尾按部门取最大值。 1.我们要做的是先分离出部门。 公式如下：{=MID(A2,MATCH(2,LENB(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1
快速合并与拆分同值单元格
每当遇到查询数据输出成Excel格式时，发现有部分数据列是重复值，一行一行的实在看着花，就会想着手动合并下，但是遇到大数据我们不是要累死？ 所以我们得求助VBA解决了一劳永逸。 合并代码： Sub hb() Application.DisplayAlerts = False Dim r() As Range Set d = CreateObject("Scripting.Dictionary") For Each cel In Range("A1:F10"
Auto_open宏病毒的解决方法
对于办公室一族office基本天天面对，但是office也会像其他程序一样中毒，比如宏病毒，如Auto_open宏病毒。病毒代码如下： Sub auto_open() Application.OnSheetActivate = "ck_files" End Sub Sub ck_files() c$ = Application.StartupPath m$ = Dir(c$ & &qu
间隔一行插入一个空行
平时数据在excel都是一行一行紧紧挨在一起，但是当我们希望有区分的是时候，由于数据太大，在每一个数据之间手动插入空行未免太过于繁琐了。 实现方式有2个，一个是用宏代码来实现；另一个就是使用辅助列实现，这个对于没有宏基础的人来说，最实用也最容易上手。 方法如下：假设有100行数据，在A列插入一个辅助列，在A1~A100用1，2，3，4…….一直填充到100，在A101～A199处填写1.5，2.5，3.5…….99.5，然后选择数据区域，按