精华内容
下载资源
问答
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    函数功能与参数:判断指定区域中是否有重复单元格的函数只有一个参数即引用,结果True时表示有重复,否则无重复。 函数名称:File  函数功能与参数:用于创建带链接的文件目录,有三个参数,包括路径、文件名...
  • excel的使用

    2012-11-25 17:06:01
    Ctrl+*选定的区域为:根据选定单元格向四周辐射所涉及到的有数据单元格的最大区域。这样我们可以方便准确地选取数据表格,并能有效避免使用拖动鼠标方法选取较大单元格区域时屏幕的乱滚现象。(9) 快速清除单元格...
  • Excel VBA技巧实例手册

    2016-07-28 22:29:39
    技巧068判断工作表是否为空 技巧069设置工作表的标签颜色 技巧070按照工作表的标签排序 技巧071确定可视工作表的范围 技巧072保护工作表 技巧073取消工作表的保护 技巧074按照条件自动拆分工作表 技巧075删除工作表 ...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    04106判断某单元格是否合并单元格区域的一部分 04107获取单元格区域内的值,并使其矩阵化 04108获取单元格内的前缀字符 04109判断单元格内的数字是否文本字符 04110获取单元格的格式 04111获取单元格的字体...
  • EXCEL百宝箱8.0终极版

    2011-11-05 16:48:02
    函数功能与参数:判断指定区域中是否有重复单元格的函数只有一个参数即引用,结果True时表示有重复,否则无重复。 函数名称:File  函数功能与参数:用于创建带链接的文件目录,有三个参数,包括路径、文件名...
  • Excel删除重复值

    2017-04-24 13:39:00
    Sub Uniquedata()Dim rCell As Range'创建Dictionary对象Set d = CreateObject("Scripting.Dictionary")'遍历数据区域的单元格For Each rCell In Range("A2:I905")'判断单元格是否为空If rCell <> "" Then'...

    Sub Uniquedata()
    Dim rCell As Range
    '创建Dictionary对象
    Set d = CreateObject("Scripting.Dictionary")
    '遍历数据区域的单元格
    For Each rCell In Range("A2:I905")
    '判断单元格是否为空
    If rCell <> "" Then
    '如果Dictionary对象中不包含指定的关键字就添加该关键字和条目
    If Not d.exists(rCell.Value) Then d.Add rCell.Value, rCell.Value
    End If
    Next
    '清除指定列内容
    Range("J2:J" & Range("J2").End(xlDown).Row).ClearContents
    '将Dictionary对象中的条目写入指定列
    Range("J2").Resize(d.Count) = WorksheetFunction.Transpose(d.Items)
    End Sub

    转载于:https://www.cnblogs.com/music378/p/6756479.html

    展开全文
  • EXCEL函数公式集

    热门讨论 2010-03-16 03:26:38
    自定义区域为每一页的标题 一个单元格内格式问题 定制单元格数字显示格式 巧用定位选条件单元格 工作表的标签的字体和大小可以更改吗 隔行用不同颜色显示,请问如何做 将单元格设置为有“凸出”的效果或“凹进去”的...
  • Excel新增工具集

    2011-12-20 09:30:27
    9、删除删除某列为空或和为0的工作表:本操作将删除指定列从第n行起单元格中数字为空或为0的工作表,给合并有效的工作表扫清障碍。 10、检查两列同行两单元格是否相同:由ID号意义相同的从表向主表合并列记录时,往往...
  • Excel函数应用大全.doc

    2012-12-15 19:59:03
    如果指定的单元格区域内包括非逻辑值,AND将返回错误值#value!。  实例:如果A1=2、A=6,那么公式“=AND(A1A2)”返回FALSE。如果B4=104,那么公式“=IF(AND(1  2.FALSE  用途:返回逻辑值FALSE。  语法:FALSE()...
  • 第三参数开始引用区域,可以有1到254个区域Excel2003中是1到29个)。也还可以直接用文本做参数。 函数名称:取数 函数功能与参数:分离数字与文本。第一参数单元格;第二参数为可选参数,当0或者省略时...
  • 原理:根据Excel VBA的相关知识,对Excel COM组件中的相关对象进行引用,通过...  也许你会说,我一个个开始循环,然后判断数据是否为空,也就是读到有无数据的临界点。但这样的方法不适应于多个数据区域

    原理:根据Excel VBA的相关知识,对Excel COM组件中的相关对象进行引用,通过属性及方法,提取出转换成表格的相关信息,并通过Excel自身可以保存为HTML的功能分析其代码、属性样式,从而间接地得到生成的HTML

    说明:客户机器需要安装Excel软件才能正常使用。

    方法:

    1.获取可用数据区域的起始行、列及终止行、列。

          也许你会说,我一个个开始循环,然后判断数据是否为空,也就是读到有无数据的临界点。但这样的方法不适应于多个数据区域以及起始的位置存在空的情况。

           最简单的方法是使用COM组件的数据区域UsedRange以及适用于UsedRangeAreas集合,每一个Area又相当于是Range对象。对于Range对象可以获取总行数与总列数,Range对象名.Rows.CountRange对象名.Columns.Count。起始行、列可以通过Range对象的地址来间接获取,我们可以使用Range对象名.Address得到形如“$A$1或“$B$2:$F$8这样的地址。前者是表示单一的单元格,后者表示一个区域以左上角与右下角的地址组成。我们可以通过分析这样的地址来得到区域的起始行与起始列,再通过总行数与总列数,知道终止行与列。

    function getRow(Address)

    {

           //$A$5

           var lastIndexOfDollar=-1;

           var firstIndexOfDollar=-1;

           var indexOfComma=-1;

           var row;

      firstIndexOfDollar=Address.indexOf('$');

      lastIndexOfDollar=Address.indexOf('$',firstIndexOfDollar+1);     

           indexOfComma=Address.indexOf(':');

           if(lastIndexOfDollar==firstIndexOfDollar) return 1;

           if(indexOfComma>lastIndexOfDollar+1) row=parseInt(Address.substring(lastIndexOfDollar+1,indexOfComma));

           else row=parseInt(Address.substring(lastIndexOfDollar+1));

           if(isNaN(row)) return 1;

           return row;

    }

    function getColumn(Address)

    {

           //$A$5

           var lastIndexOfDollar=-1;

           var firstIndexOfDollar=-1;

           var columnMark="";

           var column=0;      

           firstIndexOfDollar=Address.indexOf('$');

           lastIndexOfDollar=Address.indexOf('$',firstIndexOfDollar+1);  

          

           if(lastIndexOfDollar==firstIndexOfDollar) return 1;

           columnMark=Address.substring(1,lastIndexOfDollar).toUpperCase();

           if(columnMark.length>2) return 1;

           for(var index=0;index<columnMark.length;index++)

           {  

                  column=column*26+columnMark.charCodeAt(index)-64;

      }

           return column;

    }

    2.合并单元格区域的判断

    我们通过上面的起始行、列与终止行、列,假设起始行、列分别为basicRowbasicColumn,终止行、列分别为endRow,endColumn

    使用循环方式得到的区域(xlsWorkBook为工作簿),通过MergeArea得到地址,如果为区域引用($..$..:$..$..)则与直接通过行列映射的地址不同。然后根据区域的行数与列数知道合并了多少行、多少列。对于列,获取数据后可以跳过合并的列数减1for循环步长为1)。对于行,通过得到其上方单元格的地址,如果获取的地址与当前相同,说明仍然在同一合并单元格内,可跳过本次循环,进行该行其他列的读取操作。

    var RangeArea=getMark(rowIndex,columnIndex);//getMark用于获取区域引用的地址

    var MergeArea=xlsWorkBook.WorkSheets(sheetIndex).Range(RangeArea).MergeArea;

    if(MergeArea.Address==getAddress(rowIndex,columnIndex))

    {

      //当前单元格为单一单元格

    }

    else

    {

      //当前单元格为拆分单元格

       var mergeRowCount=MergeArea.Rows.Count;

       var mergeColumnsCount=MergeArea.Columns.Count;

    if(mergeRowCount>1&&rowIndex>1)

       {

         var upMergeArea=xlsWorkBook.WorkSheets(sheetIndex).Range(getMark(rowIndex-1,columnIndex)).MergeArea;

         if(upMergeArea.Address==MergeArea.Address) continue;                       

       }

        if(mergeColumnsCount>1) columnIndex+=mergeColumnsCount-1;

    }

    /*根据Excel行、列,返回区域标记*/

    function getMark(column,row)

    {

           //A...Z AA...AZ

           if(row<=26)

           {

                  return String.fromCharCode(64+row)+column.toString();

           }

           return String.fromCharCode(64+row/26)+String.fromCharCode(64+row%26)+column.toString();

    }

    /*根据Excel行、列,返回引用地址*/

    function getAddress(column,row)

    {

           //A...Z AA...AZ

           if(row<=26)

           {

                  return "$"+String.fromCharCode(64+row)+"$"+column.toString();

           }

           return "$"+String.fromCharCode(64+row/26)+String.fromCharCode(64+row%26)+"$"+column.toString();

    }

    function getRow(Address)

    {

           //$A$5

           var lastIndexOfDollar=-1;

           var firstIndexOfDollar=-1;

           var indexOfComma=-1;

           var row;

      firstIndexOfDollar=Address.indexOf('$');

      lastIndexOfDollar=Address.indexOf('$',firstIndexOfDollar+1);     

           indexOfComma=Address.indexOf(':');

           if(lastIndexOfDollar==firstIndexOfDollar) return 1;

           if(indexOfComma>lastIndexOfDollar+1) row=parseInt(Address.substring(lastIndexOfDollar+1,indexOfComma));

           else row=parseInt(Address.substring(lastIndexOfDollar+1));

           if(isNaN(row)) return 1;

           return row;

    }

    3.相关属性

    名称

    VBA对应属性方法

    对应CSS样式或标签属性

    字体大小

    expression.Font.Size

    font-size:..pt;

    字体斜体

    expression.Font.Italic

    font-style:italic;

    字体粗体

    expression.Font.Bold

    font-weight:700;

    字体下划线

    expression.Font.Underline

    text-decoration:underline; text-underline-style:single;

    单元格背景色

    expression.Interior.ColorIndex

    background:RGB颜色值

    上边框颜色

    expression.Borders(xlEdgeTop).ColorIndex

    border-top:.5pt solid RGB;

    左边框颜色

    expression.Borders(xlEdgeLeft).ColorIndex

    border-left:.5pt solid RGB;

    右边框颜色

    expression.Borders(xlEdgeRight).ColorIndex

    border-right:.5pt solid RGB;

    下边框颜色

    expression.Borders(xlEdgeBottom).ColorIndex

    border-bottom:.5pt solid RGB;

    水平对齐

    expression.HorizontalAlignment

    align=left right center

    垂直对齐

    expression.VerticalAlignment

    valign=top middle bottom

    单元格宽度

    expression.Width

    width:…pt

    单元格高度

    expression.Height

    height:…pt

    自动换行

    expression.WrapText

    <TD nowrap>(如果为True)

    4.相关常量

      /*水平对齐方式*/

      var xlLeft = -4131;

      var xlRight = -4152;

      var xlCenter = -4108;

     

      var xlBottom = -4107 ;

      var xlTop = -4160;

      /*垂直对齐方式*/

      var xlVAlignBottom = -4107;

      var xlVAlignCenter = -4108;

      var xlVAlignTop = -4160;

      /*字体样式*/

      var isBold=false;

      var isItalic=false; 

      var isWrap=false;

      /*下划线*/

      var xlUnderlineStyleNone = -4142;

      var xlUnderlineStyleSingle = 2;

      var xlUnderlineStyleSingleAccounting = 4;

      var xlUnderlineStyleDouble = -4119 ;

      var xlUnderlineStyleDoubleAccounting = 5;

     /*边框*/

      var xlEdgeTop = 8;

      var xlEdgeLeft = 7;

      var xlEdgeRight = 10;

      var xlEdgeBottom = 9;

    展开全文
  • 重复判断指定区域中是否有重复单元格的函数只有一个参数即引用,结果True时表示有重复,否则无重复 <════════════┤ 安装不成功原因分析 ├════════════════>   对于无法安装的...
  • 1、函数定义 ...COUNT函数只能对数字数据进行统计,对于单元格、逻辑值或者文本数据将被忽略,因此可以利用该函数来判断给定的单元格区域中是否包含单元格。 2、语法逻辑 COUNT(value1,value2, ...)...

     1、函数定义

    COUNT函数,主要是统计数组或引用中的数字,对给定数据集合或者单元格区域中数据的个数进行计数,其语法结构为COUNT(value1,value2, ...)。

    COUNT函数只能对数字数据进行统计,对于空单元格、逻辑值或者文本数据将被忽略,因此可以利用该函数来判断给定的单元格区域中是否包含空单元格。

        2、语法逻辑

    COUNT(value1,value2, ...)

    value1 是必需参数,要计算其中数字个数的第一项、单元格引用或区域。

    value2, ... 为可选参数,要计算其中数字的个数的其他项、单元格引用或区域,最多可包含 255 个。

    3、实战应用

    在实际工作中,如下图所示为4名同学参加奥数竞赛的成绩表。

    现在要计算4名同学的平均成绩,方法有两个:

    1)使用AVERAGE函数

    输入:=AVERAGE(B2:B5),即可计算结果为59.25,具体如下图所示。

    备注:

    AVERAGE函数详情可参考:Excel第7享:AVERAGE函数及其应用,链接:https://blog.csdn.net/weixin_40845074/article/details/104585154

    2)使用COUNT函数

    输入:=SUM(B:B)/COUNT(B:B),SUM函数、COUNT函数可以选择要求和、计数的列B:B直接进行数字项求和、计数,具体如下图所示。

    当然,当所选区域有限便于选择时,可直接选择范围内单元格,如上例可输入: =SUM(B2:B5)/COUNT(B:B),SUM函数示例选择单元格范围B2:B5,COUNT函数选择列B:B,具体如下图所示。

    4、参考资料

    1)COUNT函数(Excel函数),https://baike.baidu.com/item/COUNT函数/8095129?fr=aladdin

    展开全文
  • • 实现多区域联合判断求值 • VLOOKUP函数实现向左查询 • 从生产配件编号中提取连续的数字编码 • 利用MATCH 函数提取连续数值 • 查询并汇总各产品销售额 • 利用MATCH函数汇总最后3 天的产品销售额 • 利用RANK...
  • 自定义区域为每一页的标题 一个单元格内格式问题 定制单元格数字显示格式 巧用定位选条件单元格 工作表的标签的字体和大小可以更改吗 隔行用不同颜色显示,请问如何做 将单元格设置为有“凸出”的效果或“凹进去”的...
  • 5.4.8 NUMBERVALUE——以与区域设置无关的方式将文本转换数字 179 5.4.9 T——将参数转换文本 179 5.4.10 LOWER——将文本转换小写 180 5.4.11 UPPER——将文本转换大写 180 5.4.12 PROPER——将文本中...
  • 函数作用:检查一个数组是否为空.....................90 '81.函数作用:字母栏名转数字栏名.......................91 '82.函数作用:数字栏名转文字栏名.......................91 '83.函数作用:判断一件活页夹中是否...
  • │ │ 技巧278 折线图中处理单元格的三种样式.xls │ │ 技巧279 让图表自动适应窗口大小.xls │ │ 技巧280 快速设置图表字体.xls │ │ 技巧281 隐藏接近于零的数据标签.xls │ │ 技巧282 在图表中处理负值...
  • 009 区分单元格与文本 13 010 让空白单元格不显示0 13 ◎函数屏幕提示的妙用 15 011 提示函数的语法结构 15 012 查看函数参数的意义 17 013 快速选定指定参数 17 014 快速获取函数的帮助信息 19 ...
  • 第三参数开始引用区域,可以有1到254个区域Excel2003中是1到29个)。也还可以直接用文本做参数。 函数名称:取数 函数功能与参数:分离数字与文本。第一参数单元格;第二参数为可选参数,当0或者省略时表示...
  • 易语言 茶凉专用模块

    2010-05-04 12:26:36
    参数 窗口句柄, 整数型, 可空, 为空则为系统级定时器(通常为空) .参数 时钟周期, 整数型, , 毫秒级单位 1秒=1000毫秒 .参数 定时器事件处理, 子程序指针, , 定时器触发事件 .子程序 创建多级目录, 逻辑型, 公开, ...
  • 80.检查一个数组是否为空 81.字母栏名转数字栏名 82.数字栏名转文字栏名 83.判断一件活页夹中是否还有子目录 84.判断一个文件是否在使用中 85.列出档案详细摘要信息 86.获取菜单ID编号及名称列表 87.状态列动态显示...
  • VBA常用技巧

    2013-03-25 21:10:12
    技巧165判断工作表是否为空表399 技巧166查找指定工作表400 技巧167查找指定工作簿是否打开402 技巧168取得应用程序的安装路径402 技巧169数组的使用404 169-1代码运行时创建数组404 169-2文本转换为数组405 169-3...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧165 判断工作表是否为空表 401 技巧166 查找指定工作表 402 技巧167 查找指定工作簿是否打开 404 技巧168 取得应用程序的安装路径 404 技巧169 数组的使用 406 169-1 代码运行时创建数组 406 169-2 文本转换为数...
  • word使用技巧大全

    热门讨论 2011-03-18 20:37:53
    86、判断成绩等级和统计各分数段人数 95 87、快速访问经常使用的文档 95 88、打造整齐的Word公式 95 89、快速精确调整表格宽度 95 90、改变文本框的形状 96 91、禁止Word中图形随段落移动 96 92、三种好学有用的...

空空如也

空空如也

1 2 3 4 5 6
收藏数 109
精华内容 43
关键字:

excel判断区域为空