精华内容
下载资源
问答
  • 如何在excel中插一行
    2019-09-24 18:48:00
    如何在Excel中插入一行 VCL组件开发及应用
    http://www.delphi2007.net/DelphiVCL/html/delphi_20061221143745213.html
    请问用TExcelApplication、TExcelWorkbook和TExcelWorkSheet如何去操作Excel,使其可以在指定位置插入一行。以下为网上给出的办法,可是根本无法运行:  
       
      ExcelApplication1.ActiveSheet.Rows[2].Insert;   //在第二行处插入一空行  
       
      本人使用的环境为Delphi7+Office   2003。

     
      可以这样处理:  
      如想在第I   +   1   行插入一空白行  
      if   row   :=   i   +1   then    
      for   j   :=   0   to   lcol   do  
      TempWorkSheet.Cells[row,   J]   :=   '';  
       
      这样不就插入一空白行了吗?

    樓主太小氣。。。只有5分。  
      插入一行或一列:  
      a.   ExcelApp.ActiveSheet.Rows[2].Insert;  
      b.   ExcelApp.ActiveSheet.Columns[1].Insert;  
      删除一行或一列:  
      a.   ExcelApp.ActiveSheet.Rows[2].Delete;  
      b.   ExcelApp.ActiveSheet.Columns[1].Delete;  
     

    按照ghtghtmalone的方法,第i+1行的内容将会被清空,而maming2003得方法是目前网上普遍流行的方法,只可惜,Delphi7下根本无法编译。我目前最头疼的是不知如何将某一行或列作为一个对象返回。还请各位赐教。

    不知道你想干吗?  
      if   row   :=   i   +1   then    
      for   j   :=   0   to   lcol   do  
      TempWorkSheet.Cells[row,   J]   :=   '';  
      EXCEL不就是一个二维数组吗?  
       
      把想插入的数据放在数组中不就可以赋值了?  
       
      你想插入的值直接用下面的语句不就行了?  
      TempWorkSheet.Cells[row,   J]   :=   arr[rol,j];

    转载于:https://www.cnblogs.com/delphi2007/archive/2009/01/04/1368277.html

    更多相关内容
  • 用起来很顺手,使用这个对A表格其中一列进行了重新填写,但是后来发现,需要用到删除和插入空白行的操作,使用openpyxl比较困难,这个模块仅支持表格的最后一行继续添加新行,不支持中间插入和删除行。...
  • Excel插入行实例演示 插入行演示采用正序遍历操作,直接使用 xlwings 提供的 sheet.api.Rows("行数").Insert() 方法就能实现整行插入处理。 需要注意的是,如果是前插入,要避免再次检测到刚才匹配过的内容,...

    第一章:整行插入与删除

    ① Excel 的插入行实例演示

    插入行演示采用正序遍历操作,直接使用 xlwings 提供的 sheet.api.Rows("行数").Insert() 方法就能实现整行插入处理。
    需要注意的是,如果是前插入,要避免再次检测到刚才匹配过的内容,以防循环反复插入原位置。

    # -*- coding:utf-8 -*-
    # excel增行、删行实现
    
    import xlwings
    
    # 参数visible设置False不显示excel界面,默认是True显示的
    app = xlwings.App(visible=False)
    # 修改文件路径
    path_xl = 'C:\\Users\\Administrator\\Desktop\\增、删行测试.xls'
    # 加载excel文件
    wt = app.books.open(path_xl)
    # 加载第一个sheet页签
    sheet = wt.sheets[0]
    
    def xl_insert(m_col, m_text):
        '''
         作用:插入excel
         参数1:需要匹配的列
         参数2:需要匹配的内容
        ····
         创建:小蓝枣
         更改:2021-06-01
        '''
        global sheet;
        
        # 读取行数
        rows = sheet.used_range.last_cell.row
    
        # 如果从n行上面插入,需要想办法跳过n+1这一行,n+1正是插入后原来n行的脚本,不然会发生死循环
        k = 0   # 记录插入行
        for i in range(1, rows):
            
            # 检测到已插入的行进行跳过处理
            if(i == k):
                continue;
                
            if(sheet.range(m_col + str(i)).value == m_text):
                print("对第 " + str(i) + " 行进行了插入行操作!")
                sheet.api.Rows(i).Insert()
                k = i+1;
    
    # 匹配C列,对相关内容进行插入
    xl_insert('C', '//*[@fieldid="header-area"]//*[@fieldid="Add_btn"]')
    
    # 不指定路径,脚本会直接保存到原文件
    wt.save()
    # 释放资源,不然脚本无法打开,会处于锁定状态。
    wt.close()
    

    调整前:
    在这里插入图片描述
    处理过程:
    在这里插入图片描述
    调整后:
    在这里插入图片描述

    ② Excel 的删除行实例演示

    删除行演示采用逆序遍历操作,直接使用 xlwings 提供的 sheet.range("单元格").api.EntireRow.Delete() 方法就能实现整行删除处理。
    此次使用逆序遍历,直接避免了行错位引起的各种问题。【推荐】

    # -*- coding:utf-8 -*-
    # excel增行、删行实现
    
    import xlwings
    
    # 参数visible设置False不显示excel界面,默认是True显示的
    app = xlwings.App(visible=False)
    # 修改文件路径
    path_xl = 'C:\\Users\\Administrator\\Desktop\\增、删行测试.xls'
    # 加载excel文件
    wt = app.books.open(path_xl)
    # 加载第一个sheet页签
    sheet = wt.sheets[0]
    
    def xl_delete(m_col, m_text):
        '''
         作用:excel删行
         参数1:需要匹配的列
         参数2:需要匹配的内容
        ····
         创建:小蓝枣
         更改:2021-06-01
        '''
        global sheet;
        
        # 读取行数
        rows = sheet.used_range.last_cell.row
        # 正序的话本行删除后,后面的行就有变化了,采用倒叙匹配解决了该问题
        for i in range(rows, 1, -1):
            if(sheet.range(m_col + str(i)).value == m_text):
                print("对第 " + str(i) + " 行进行了删除行操作!")
                sheet.range(m_col + str(i)).api.EntireRow.Delete()
                k = i+1;
    
    # 匹配C列,对相关内容进行删行
    xl_delete('D', 'gys_qj_sckh002')
    
    # 不指定路径,脚本会直接保存到原文件
    wt.save()
    # 释放资源,不然脚本无法打开,会处于锁定状态。
    wt.close()
    

    调整前:
    在这里插入图片描述
    处理过程:
    在这里插入图片描述
    调整后:
    在这里插入图片描述
    喜欢的点个赞❤吧!

    展开全文
  • 产品提出新需求,要用户所有上传的订单附件的最前方加入订单号,本以为是小需求,结果确意外的踩了...理想很丰满,显示却很骨感,复制是复制下来了,但是如果第一行是两行合并的话,那就复制了个寂寞,依然会把第一

    产品提出新需求,要在用户所有上传的订单附件中的最前方加入订单号,本以为是小需求,结果确意外的踩了不少坑,下面说一下我踩坑的全部过程:

    1.使用CreateRow创建行

    最开始的预期是CreateRow(0)就可以完全实现这个小需求了,结果没想到的是,我们的需求是创建新行的同时,其他所有内容下移,CreateRow只能在所在位置创建行,如果该行有内容,将被替换。

    2.使用CopyRow复制行再编辑

    理想很丰满,显示却很骨感,复制是复制下来了,但是如果第一行是两行合并的话,那就复制了个寂寞,依然会把第一行替换掉。

    3.使用ShiftRows移动

    ShiftRows方法可以将当前行下移,之前考虑不周,只移动一行,发现会把下一行覆盖就pass了,结果走投无路后回想起来才发现自己是多么的愚蠢。将整个表格的内容全部下移不就可以了吗,最后操作下来证明这个思路是可行的。

    ShiftRows参数说明:

    startRow开始行

    endRow结束行

    n下移的行数

    copyRowHeight复制行高 (感觉不好用)

    resetOriginalRowHeight重置行高

            /// <summary>
            /// 向Excel插入行
            /// </summary>
            /// <param name="filePath">文件绝对路径</param>
            /// <param name="content">插入内容</param>
            public void AddHeadInfo(string filePath, string content)
            {
                string fileExt = Path.GetExtension(filePath).ToLower();//获取扩展名
                IWorkbook workbook;  
    
                    using (FileStream fs = new FileStream(filePath, FileMode.Open, FileAccess.Read))
                    {
                        if (fileExt == ".xlsx") { workbook = new XSSFWorkbook(fs); } else if (fileExt == ".xls") { workbook = new HSSFWorkbook(fs); } else { workbook = null; }
                        if (workbook == null) { return; }
                        ISheet sheet = workbook.GetSheetAt(0);
                        //将表格内容整体下移
                        sheet.ShiftRows(0, sheet.LastRowNum, 1);
                        var newrow = sheet.CreateRow(0);
                        newrow.CreateCell(0);
                        newrow.Cells[0].SetCellValue(content);
    
                        IFont font = workbook.CreateFont();//创建字体样式
                        font.Color = HSSFColor.Red.Index;//设置字体颜色
                        if (fileExt == ".xlsx")
                        {
                            newrow.HeightInPoints = 20;
                            font.FontHeight = 14;
                        }
                        else
                        {
                            newrow.HeightInPoints = 20;
                            font.FontHeight = 280;
                        }
                        ICellStyle style = workbook.CreateCellStyle();//创建单元格样式
    
                        style.SetFont(font);//设置单元格样式中的字体样式
                        newrow.Cells[0].CellStyle = style;//为单元格设置显示样式 
                        FileStream out2 = new FileStream(filePath, FileMode.Create);
                        workbook.Write(out2);
                        out2.Close();
                    }
    
            }

     

    展开全文
  • Excel中如何一行插入标题行
  • 展开全部在Excel中插入拷贝,可以参考用Spire.XLS.dll来做,这里做了demo,你可以对比636f707962616964757a686964616f31333365643630一下前后效果://初始化Workbook类实例,并加载Excel文档Workbookworkbook=new...

    展开全部

    在Excel中插入拷贝行,可以参考用Spire.XLS.dll来做,这里做了demo,你可以对比636f707962616964757a686964616f31333365643630一下前后效果://初始化Workbook类实例,并加载Excel 文档

    Workbook workbook = new Workbook();

    workbook.LoadFromFile(@"C:\Users\Administrator\Desktop\Sample.xlsx");

    //获取第一个工作表

    Worksheet worksheet = workbook.Worksheets[0];

    //在第三行插入新的一行

    worksheet.InsertRow(3);

    //将第一行数据复制到第三行

    worksheet.Copy(worksheet.Range["A1:D1"], worksheet.Range["A3:D3"], true);

    //插入两行,作为第四行和第五行

    worksheet.InsertRow(4, 2);

    //将第六、七行A6:E7范围的数据复制到第四、五行A4:E5范围

    worksheet.Copy(worksheet.Range["A6:E7"], worksheet.Range["A4:E5"], true);

    //保存并打开文档

    workbook.SaveToFile("result.xlsx", ExcelVersion.Version2010);

    System.Diagnostics.Process.Start("result.xlsx");

    测试文档:

    测试结果:

    展开全文
  • python openpyxl 操作excel 插入行,列

    千次阅读 2021-08-06 10:39:10
    import openpyxl wb = openpyxl.load_workbook("D:\村数据\实验.xlsx") ws = wb["Sheet1"] ws.insert_rows(3)#插入行 ws.insert_cols(4)#插入列 wb.save("D:\村数据\实验.xlsx")
  • 使用POI往EXCEL中插入行

    千次阅读 2021-02-28 18:35:47
    部分代码如下(POI的版本为3.2) public void ... } 参考了http://blog.csdn.net/daemon_boy/archive/2007/09/15/1786384.aspx的代码 posted on 2009-04-16 16:43 Ke 阅读(9388) 评论(0) 编辑 收藏 所属分类: java excel
  • 5678插入 格式(包括背景颜色)与这四相同,用下面的代码,没有插入 <code class="language-java"> // 创建对象 HSSFRow sourceRow = sheet.getRow(5); HSSFRow newRow = ...
  • 使用Excel过程,我们会遇到需要插入相同格式的多行或多列,如果一行行或一列列的插入,对于插入的数量较少的情况还是适用的。可是如果需要插入上百的行或列,使用此方法就比较费时费力啦。分享几个小技巧实现...
  • Excel中使用sumif()函数时,当插入一行数据后公式相应改变,但是原计算结果发生改变
  • 插入一行后vba如何自动修改 如何excle单元格编写的vba语言当插入一列的时候公式也自动改变? 解决办法: 1、把单元格或单元区域选中。 2、然后给单元格命名。 3a、这时可以检验刚才的命名。再框选测试区域以...
  • 欢迎观看 Microsoft Excel 教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何 Excel 中插入或删除和列。插入和删除和列以更好地组织工作表。
  • 下面我们以此表格为案例为大家演示一下如何间隔指定行插入一行空白行。 全选除标题行外的全部表格数据区域 点击下图选项(Excel工具箱,百度即可了解详细的下载安装方法,本文不做具体解说) ...
  • python xlwt,xlutils在excel里面如何插入一行数据import xlwt;import xlrd;from xlutils.copy import copy;#styleBoldRed= xlwt.easyxf('font: color-index red, boldon');#headerStyle = styleBoldRed;#wb =xlwt....
  • 欢迎观看 Microsoft Excel 中文版教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何 Excel 中插入或删除和列。插入和删除和列以更好地组织工作表。
  • excel 多行插入 在Excel中插入多行 (Insert More Than One Row in Excel) If you've used Excel for a while, you have lots of skills that you might assume everyone else shares. For example, you probably ...
  • 有时候我们需要分别隔行插入空白填写数据,一般都是个个的右键隔行插入空白,接下来教你另外个方法,轻松批量插入空白,一起学习Excel小技巧。 操作步骤:1.打开Excel表格。 2.右边空白列分别输入...
  • Excel如何当前的下方插入

    千次阅读 2022-01-10 17:20:38
    首先,定位到目标下面,此时需要注意目标序列右下角的个黑点(实心黑十字); 然后按住shift键,此时鼠标光标会变成双线上下箭头; 然后,按住鼠标左键不松手,一直拖动鼠标即可,想添加几行就拖动几行。 ....
  • 展开全部确实还真就没用过62616964757a686964616fe58685e5aeb...就是把插入行之后值重新输出来。import xlwt;import xlrd;from xlutils.copy import copy;#styleBoldRed = xlwt.easyxf('font: color-index red, bo...
  • 我尝试编写一个宏,双击一个单元格,该单元格下面插入一个新的行与一些公式 . 对我来说重要的是,如果我再次双击单元格,则使用正确的索引更新先前插入的行的公式 .例如,下面的代码中,双击A1将第2行中插入...
  • Excel如何快速插入行,删除

    千次阅读 2021-11-01 13:59:12
    选中excel表格需要其上方插入行的一整行(需要一行上方插入行) 然后按键盘上的ctrl+加号,(删除行则是ctrl+减号) 需要插入多行的,就按着ctrl的前提下,多按几次“+” 完毕 **对于文章出现的任何问题...
  • C#向EXCEL模板文件中插入数据

    热门讨论 2012-11-26 15:31:00
    EXCEL 模板文件 插入 数据,不破坏EXCEL模板原有的格式.
  • num(num) status = [u'A5B', u'A5C-3', u'A5C-5', u'A5C-8', u'K10'] # 生成字段名(第一行) for i in range(0, len(row0)): sheet1.write(0, i, row0[i]) # 生成第一列 for i in range(0, len(column0)): sheet1....
  • 使用shifRows方法,第1个参数是指要开始插入,第2个参数是结尾行数 HSSFSheet sheet = workbook.getSheetAt(0); sheet.shiftRows(12, 24, 1);
  • Data这是每个地区代码的所有项目我同一工作簿有一个“新项目”工作表,一个“数据”工作表和一个...我需要宏来添加一行,复制区域代码(A列;有超过30个区域,但默认情况下每个项目都添加到一个区域),...
  • POI的第一节入门,...那么这个章节里面,我将会给大家演示一下,如何用Apache POI已有的Excel文件中插入一行新的数据。具体代码,请看下面的例子。 [java] view plain copy print?import java.io.File; imp
  • Excel表格如何快速插入多个空白
  • 在EXCEL表格-每一行之前插入相同数据.doc

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 59,787
精华内容 23,914
关键字:

如何在excel中插一行