精华内容
下载资源
问答
  • 用户要求将用户上传的excel文件做一个合并,1.xlsx 里有sheet1,2.xlsx...sheet里都是用户画的相对复杂的一些表格,他们就是想下载一个excel文件就可以看到所有excel文件里的sheet才有了这个需求,能实现吗,如何实现?
  • excel一个工作簿中的表格移动或复制另外一个工作簿的表中,如何保持原样?右点你要移动或复制的工作表的标签(sheet)选择"移动或复制工作表"就会出现上面的那个界面;要移动或复制在什么地方就选工作薄那里的那个下拉...

    excel一个工作簿中的表格移动或复制到另外一个工作簿的表中,如何保持原样?

     
     

    右点你要移动或复制的工作表的标签(sheet)选择"移动或复制工作表"就会出现上面的那个界面;

    要移动或复制在什么地方就选工作薄那里的那个下拉菜单.先工作薄(要先把要选择的工作薄打开)

    要复制就选上"建立副本",

    展开全文
  • 让我想起就是一个Excel文件中的各种sheet,有时候sheet数据的更新为了方便,会有分开sheet存储不同时间段的数据,甚至是分开不同的excel文件,在分析数据的时候,要把这么多分散的数据集中在一张sheet似乎是比较让人...

    6c268e3486a39bd6863182db109c47d6.png

    说起Eecel表,让我想起就是一个Excel文件中的各种sheet,有时候sheet数据的更新为了方便,会有分开sheet存储不同时间段的数据,甚至是分开不同的excel文件,在分析数据的时候,要把这么多分散的数据集中在一张sheet似乎是比较让人烦恼的,所以下面就介绍一下如何用R语言高效实现将Excel表的数据批量合并、更新,希望对大家工作有所帮助。

    一、合并多个excel文件的表成为一个sheet

    举个例子,我们有两个表格,分别是不同人记录的数据,现在我们需要将4个sheet合并成一个sheet。如果表格数量比较少,我们可以采用复制的方式将数据都整理在一个sheet,但如果表格数量太多,每个表格的数据量也很大的时候,这种方式就非常耗时了,下面就用R语言解决这个问题:

    94110c0fc03ffffb8236f683c1c3d7f7.png
    需要合并2个excel文件下的共4个sheet
    #设置自己路径,且路径中只能有需要合并的excel文件
    setwd("C:************")
    #查看路径下文件名字
    filenames = list.files()
    library(readxl)
    library(openxlsx)
    data2 = data.frame()
    #合并多个Excel文件中的多个表成为一个表
    for (i in 1:length(filenames)) {
       shtnames = excel_sheets(filenames[i]) # 查询excel文件下各个sheet的名字
       data1 = data.frame()
      for (j in 1:length(shtnames)) {
       data = read.xlsx(filenames[i],sheet = j)
       data$shtn = rep(shtnames[j],dim(data)[1])   #匹配数据对应sheet名称
       data1 = rbind(data1,data)
      }
       data2 = rbind(data2,data1)
    }

    执行完代码后就可以得到合并后的数据,如果需要导出可以使用write.xlsx()函数

    464a9ea6ea28d292c4b57e9bf81a0c86.png

    二、将多个excel文件合并成一个excel文件

    比如我们有下面的两个excel文件,现在需要将四个sheet到整合在一个excel表中,如果是一般的excel用户就会点右键选择移动或者复制的功能操作,同样如果是excel文件数量多的话就难办了,继续用R语言来帮助我们解决:

    520b0623304c2a251d34fd3341029291.png
    将4个sheet都放在一个excel文件
    #设置自己路径,且路径中只能有需要合并的excel文件
    filenames = list.files('C:***********')
    load = paste0('C:***********',filenames)
    listA = list()
    sheet1=c()
    a=1
    library(readxl)
    library(openxlsx)
    library(stringr)
    for (i in 1:length(load)) {
       shtnames = excel_sheets(load[i])
       for (j in 1:length(shtnames)) {
          listA[[a]] = read.xlsx(load[i],sheet = j)
          a = a+1
          sheet = paste(str_remove(filenames[i],".xlsx"),shtnames[j],sep = "_") #定义sheet名称
          sheet1=c(sheet1,sheet)
       }
    }
    names(listA) = sheet1
    write.xlsx(listA,"C:**************hb.xlsx")

    e91fa3724b0b6e987891b37625c81230.png

    最后就可以将四个sheet合并,sheet的名称是(原excel名+原sheet名)的组合,避免sheet名重复出错。

    三、将多个excel文件(按照同sheet名)合并

    有时候面对要将多个excel表合并,且要按照相同的sheet名合并更新,这个如果不会VBA的excel用户,只能乖乖一个个表格对,sheet名相同的数据就粘在一起,想到就难受了。下面就用R语言来处理这种事情,原本可能要10几分钟,现在就几秒的事情。下面是我们的例子:

    4645110aa47f6a8d67672c4d049288d4.png
    将三个excel文件合并,且sheet名一样的表合并为一个sheet
    #设置路径,且路径中只能有需要合并的excel文件
    filenames = list.files('C:***********')
    load = paste0('C:************',filenames)
    listA = list()
    sheet=c()
    a=1
    library(readxl)
    library(openxlsx)
    library(stringr)
    for (i in 1:length(load)) {
       shtnames = excel_sheets(load[i])
       for (j in 1:length(shtnames)) {
          listA[[a]] = read.xlsx(load[i],sheet = j)
          a = a+1
          sheet=c(sheet,shtnames[j])
       }
    }
    names(listA) = sheet
    list1=list()
    A = unique(sheet)
    for (i in 1:length(A)) {
       list1[[i]] = as.data.frame(do.call(rbind,listA[names(listA)==A[i]]))
    }
    names(list1) = A
    write.xlsx(list1,"C:************对应表合.xlsx")

    713ffd632505e59275263e7110a2f19d.png

    上面介绍的几种情况,如果觉得excel处理用麻烦,不仿试试R语言。

    展开全文
  • VC++常用功能实例

    2010-01-25 23:28:46
    从一个OCX调用另一个OCX的方法。 95 得到视 96 字符转化时间 96 二进制还是文本方式? 99 发送消息 99 怎样知道菜单运行时的状态 99 DLL编译出错 100 通用控件的显示窗口 100 如何禁止和使能控件 100 如何在OLE控件中...
  • 从一个OCX调用另一个OCX的方法。 95 得到视 96 字符转化时间 96 二进制还是文本方式? 99 发送消息 99 怎样知道菜单运行时的状态 99 DLL编译出错 100 通用控件的显示窗口 100 如何禁止和使能控件 100 如何在OLE控件中...
  • ⑤拷贝铜公名称:是把一个铜公的名称赋于另一个铜公。如一层中有多个共用的铜公时就要用到这个功能。 ⑧列示铜公与对应的层:以信息窗口的形式列出铜公所在的层。 ⑩铜公刻字:把铜公名称刻铜公基准台的侧边。 ...
  • 另一个平台进入 CODEChina? 如果您是从另一个平台进入 CODEChina,您会发现以下有用信息: 主题 描述 导入项目 从 GitHub,Bitbucket,GitLab.com,FogBugz 和 SVN 导入项目 从SVN迁移 将 SVN 存储库...

空空如也

空空如也

1 2 3 4
收藏数 61
精华内容 24
关键字:

如何移动sheet到另一个