精华内容
下载资源
问答
  • EXCEl自动填充

    2020-07-01 14:10:31
    Excel自动填充功能 先利用公式计算出值,然后按CTRL+C 复制,再从另一列按CTRL+下箭头 ,移动到最后一行,然后移动左右键移动至填充的最后一个单元格。 如果数据没有筛选过的,则按Shift+CTRL+上箭头则会到第二行,...
      Excel自动填充功能
    

    先利用公式计算出值,然后按CTRL+C 复制,再从另一列按CTRL+下箭头 ,移动到最后一行,然后移动左右键移动至填充的最后一个单元格。

    如果数据没有筛选过的,则按Shift+CTRL+上箭头则会到第二行,最后按ctrl+V

    如果数据是筛选过的,则按SHIFT+CTRL+上箭头则会至第一行,再SHIFT+下键头移动第二行,最后按CTRL+v

    展开全文
  • Excel自动填充

    2017-08-14 21:00:33
    最近处理数据用到了excel2010,需要填充一列数据(等差等比……),其实后来才发现matlab实现更简单,花了十几分钟在网上搜答案,所以写一下笔记,以免下次忘记又要搜。   首先在需要填充的位置输入第一个数据,...

      最近处理数据用到了excel2010,需要填充一列数据(等差等比……),其实后来才发现matlab实现更简单,花了十几分钟在网上搜答案,所以写一下笔记,以免下次忘记又要搜。
      首先在需要填充的位置输入第一个数据,然后在菜单栏找到“填充”,如下图所示:

    这里写图片描述

      选择“系列”,弹出如下对话框:

    这里写图片描述

      选择自己要填充的行列,以及填充的步长、终止值,点击确定即可完成。

    展开全文
  • excel自动填充功能

    2019-03-17 22:33:06
    excel自动填充功能 能
  • EXCEL自动填充平分库存的问题,EXCEL自动填充平分库存的问题,
  • Excel自动填充的威力.rar,很多Excel用户对“自动填充”这个威力无比巨大的编辑功能知之甚少。本例展示了4种填充方式:等差数字填充、日期的自动填充、文字自动填充及特定内容的填充。
  • VC 操作Excel 自动填充

    2011-11-11 20:26:26
    VC 操作Excel 自动填充 网上很难找到VC操作自动填充案例, 本例补充之。
  • VC操作Excel自动填充

    2011-11-26 18:50:37
    VC操作Excel自动填充,对上版本的细节进行修正, 有需要的朋友下载看看
  • 自定义 Excel 自动填充快捷键

    千次阅读 2019-07-14 05:53:02
    Technorati Tags: Excel,Marco,Auto Fill,Shortcut Key,Excel宏,自动填充,快捷键 Microsoft Excel 提供了丰富的快捷键,使得操作电子表格十分方便,尤其是在操作很大,很长的表时。 Excel自动填充功能,使得...

     

    Microsoft Excel 提供了丰富的快捷键,使得操作电子表格十分方便,尤其是在操作很大,很长的表时。

    Excel的自动填充功能,使得复制单元格内容、公式和填充序列的操作变得简单。但是,Excel只提供了通过拖动填充柄来实现填充,并没有为自动填充提供快捷键。在操作十分频繁的时候,右手必须在键盘和鼠标之间来回移动,容易疲劳。系统不提供,作为程序员,可以自己编写一个VBA宏执行自动填充,并为该宏指定快捷键,从而实现通过快捷键执行自动填充操作。

     

    1: 新建一个Excel工作簿;在VBA编辑器中添加一个模块,编写宏代码。

    源码:

    ' Author: Ken Yang
    ' http://www.cnblogs.com/kenyang
    ' 使用和分发,请保留完整作者信息。
    
    Sub AutoFill()
    
        Dim SourceArea As Range, TargetArea As Range
        
        Set SourceArea = Selection.Areas.Item(1)
        
        Dim SourceBottomLeftCell As Range, SourceBottomRightCell As Range
        
        Set SourceBottomLeftCell = SourceArea.Cells(SourceArea.Rows.Count, 1)
        Set SourceBottomRightCell = SourceArea.Cells(SourceArea.Rows.Count, SourceArea.Columns.Count)
        
        Dim TargetLastRow As Long, TargetLastCell As Range
        
        If SourceBottomLeftCell.Offset(1, 0).Value = vbEmpty Then
        
            If SourceBottomLeftCell.End(xlDown).Value = vbEmpty Then
                If SourceBottomLeftCell.Column = 1 Then
                    If SourceBottomRightCell.Offset(1, 1).Value <> vbEmpty Then
                        Set TargetLastCell = SourceBottomRightCell.Offset(0, 1).End(xlDown).Offset(0, -1)
                    End If
                Else
                    If SourceBottomLeftCell.Offset(1, -1).Value <> vbEmpty Then
                        Set TargetLastCell = SourceBottomLeftCell.Offset(0, -1).End(xlDown).Offset(0, SourceArea.Columns.Count)
                    End If
                
                End If
            Else
                Set TargetLastCell = ActiveSheet.Cells(SourceBottomLeftCell.End(xlDown).Offset(-1, 0).Row, SourceBottomRightCell.Column)
            End If
        
        Else 'If SourceBottomLeftCell.Offset(1, 0).Value <> vbEmpty Then
        
            Dim LastCell As Range
            Set LastCell = SourceBottomLeftCell.End(xlDown)
        
            Dim i As Long, LastRow As Long
            LastRow = SourceBottomLeftCell.End(xlDown).Row
            
            For i = 2 To SourceArea.Columns.Count
                If SourceArea.Cells(SourceArea.Rows.Count, i).Offset(1, 0).Value = vbEmpty Then
                    LastRow = SourceBottomLeftCell.Row
                    Exit For
                Else
                    Dim CurrentLastCell As Range
                    Set CurrentLastCell = SourceArea.Cells(SourceArea.Rows.Count, i).End(xlDown)
                    If CurrentLastCell.Row < LastCell.Row Then
                        LastRow = CurrentLastCell.Row
                    End If
                End If
            Next i
            
            Set TargetLastCell = ActiveSheet.Cells(LastRow, SourceBottomRightCell.Column)
        
        End If
        
        If Not TargetLastCell Is Nothing Then
        
            Dim TargetAreaName As String
            
            TargetAreaName = SourceArea.Cells(1, 1).Address(0, 0) & ":" & TargetLastCell.Address(0, 0)
            Set TargetArea = Range(TargetAreaName)
            
            On Error GoTo ErrHandler
            
            SourceArea.AutoFill Destination:=TargetArea
        
            TargetArea.Select
        
        End If
    
    ErrHandler:
    
    End Sub

     

    2: 为宏指定快捷键 Ctrl + E。 使用Ctrl + E 作为快捷键的原因是 Ctrl + E 没有被Excel内置功能占用,并且Ctrl 键和 E 键都在键盘的左边区域,左手单手就可以操作。

    3: 将工作簿另存为 Excel 加载宏。

    4: 将Excel加载宏 复制到 %programfiles%\Microsoft Office\Office12\XLSTART 目录(Excel 2003 目录:%programfiles%\Microsoft Office\Office11\XLSTART),以便Excel启动时,自动加载宏代码。

     

    也可从这里下载宏文件,解压后直接放置到%programfiles%\Microsoft Office\Office12\XLSTART 目录,即可使用。下载的宏文件只支持Excel 2007。如果是Excel 2003, 请按照前面的步骤操作。

     

    这样,可以在Excel 中按下 Ctrl + E 实现向下自动填充了。

     

    缺陷:

    VBA宏代码执行的操作,不支持撤销(undo)。

     

    报告bug,请留评论。

    转载于:https://www.cnblogs.com/kenyang/archive/2012/05/16/2503846.html

    展开全文
  • 2.EXCEl自动填充数据示例 1)EXCEL行号为7的行项目号=INT(ROW(BH7)/7)+6的公式来写,除数7和调整数6需要视具体情况进行调整(或者简单地写多行固定值),以保证同一条资产记录在AS100导入模版多行数据上的行项目号...

    ​AS100资产模版如下,不区分当年资产和以前年度资产
    在这里插入图片描述
    2.EXCEl自动填充数据示例
    1)EXCEL行号为7的行项目号=INT(ROW(BH7)/7)+6的公式来写,除数7和调整数6需要视具体情况进行调整(或者简单地写多行固定值),以保证同一条资产记录在AS100导入模版多行数据上的行项目号唯一(资产数据记录第1条)。又如EXCEL行号4160的行项目号=INT(ROW(BH4160)/8)+54,其对应的资产记录数为第574条。
    2)数据引用使用=INDIRECT(“B”&BG8),即EXCEL的列字母&上述公式写的行项目号。
    此公式的关键注意点有2点
    必须将资产数据和公式写在同一个SHEET页上,
    行项目号一定要写对,也可以固定手写多行,但要注意当年资产多一行4的记录,同时都需多加一个空行。
    很多时候,需求触发想象力,即使您从来没这样做过,但只要动手,就能解决所有问题。
    在这里插入图片描述

    展开全文
  • 有如下表格,目标是快速的向C列填充上自己需要的值。pandas本身提供了fillna的方法,但是不是特别灵活,例如两个空格需要填充上不同的值,fillna方法就不一定能用的上了现提供一种新...# 读取excel数据 >>>...
  • 代码实现用excel表格中数据自动填充 网页表单
  • VBA实现 Excel自动填充

    2020-05-11 11:07:25
    数百次的向下自动填充,手动敲? 简单的VBA代码搞定: Sub 自动填充() Dim i As Integer For i = 2 To 743 If Range("b" & i) = "" Then '此时只循环判断,填充了B列,只需手动更改一下代码中的"b".(下一段...
  • 背景:同行写的《如何用Excel快速生成SQL语句,用过的...目标:灵活使用文本处理工具,如Excel、UE、Shell等高效处理文本读者对象:只用过Excel自动填充,未用过文本拼接等函数的只用过普通替换,没用过正则替换的平...
  • excel 自动填充序号

    2017-11-07 12:25:00
    是不是某列的某个单元格有数据就相应生成1个序号,没有数据就不生成序号呀如果是这样,给你举个例吧:假如A列是需要根据B列(假如是姓名)各单元格中是否有数据而自动生成序号再假如第一行至三行为表头,从第四行...
  • Excel自动填充功能

    2017-08-27 18:33:00
    3.这时我们点击右下角的自动填充按钮,选择[按月填充],就可以实现按每个月最后一天的方式递增了. 最终结果: 本文转自黄聪博客园博客,原文链接...
  • 先设置首尾,就是填充的开始跟结束的地方 先选择这一列,然后选择【设置单元格格式】 设为常规 选中要填充的数据,然后按【ctrl+c】 再按【CTRL+G】,选择【空值】,点击【定位】 再直接按【CTRL+V】粘贴即可 ...
  • python pandas 实现Excel自动填充功能

    千次阅读 2020-04-10 06:57:57
    有如下表格,目标是快速的向C列填充上自己需要的值。pandas本身提供了fillna的方法,但是不是特别灵活,例如两个空格需要填充上不同的值,fillna方法就不一定能用的上了 ...# 读取excel数据 >>...
  • 有如下表格,目标是快速的向C列填充上自己需要的值。pandas本身提供了fillna的方法,但是不是特别灵活,例如两个空格需要填充上不同的值,fillna方法就不一定能用的上了现提供一种新...# 读取excel数据 >>>...
  • Excel懒人工具:http://www.excelfb.com/点击:自动填充不连续单元格(向下填充) 一键搞定
  • excel自动填充长数字

    千次阅读 2013-10-25 10:08:27
    前面重复出现的数字设置为固定的附加字符 选定数据位置的列,右键,选择“ 设置单元格格式 ”命令开启单元格属性对话框,在“数字”标签的分类里...接着就可以按着“Ctrl”键,用填充柄进行步长值为1的数列填充
  • excel表格中如何自动顺序填充序号首先打开Excel 2007,创建如图所内容。当家也可以根据自己的实际情选择练习的内容。在此为了上的需要,特制作两列,第一列就“序号”,第二列是“名称”。然后依次在“序号”的下面...
  • Excel 中,除数字可以自动填充外,日期和时间也可以自动填充;其中日期可按日、月、年和工作日填充,时间可按每次递增时分秒填充。日期填充方法有三种,一种是用拖动的办法自动填充,第二种是用双击单元格填充柄...
  • excel自动填充脚本(awk)

    千次阅读 2014-06-19 09:50:12
    项目中需要整理一些资料,把word文档中的一些关键字段提取到excel,制成一个表单。额,本来想手动改的,无奈数据太...把new_xx.txt 复制到excel中就完成了自动填充。 效果如下: 好了,到此结束。
  • Excel中,有一个自动填充功能,不仅能复制内容,还能让数字、日期、星期等按序列填充,不管是按行、按列填充,还是填充几千个、几万个都可以轻松完成。今天小编就分享几种方法,下次再碰到填充序列可以试试哟!一...
  • excel自动填充单元格的宏

    千次阅读 2010-01-28 10:10:00
    Sub Macro1()n = [a65536].End(3).Row Selection.AutoFill Range(Selection.Address, Cells(n, Selection.Column))End Sub向下填允选中的单元格---------------------------可以你想填充到第几行就把65536改成那行...
  • 文章出处 ...请 输 有时候我们想在一列输入每个月的月底日期,如下列所示: ...则我们可以通过下方操作...3.这时我们点击右下角的自动填充按钮,选择[按月填充],就可以实现按每个月最后一天的方式递增了. 最终结果:

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,288
精华内容 515
关键字:

excel自动填充