如何在写excel的时候调整每个单元格的列宽

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题，写excel的时候调用的是xlsx包的write.xlsx函数，因为写到excel中的数据框有些单元格变量比较长，导出后的excel需要调整列宽后才能显示全，如何在把数据框写到excel中的时候就调整列宽？避免导出后还要手动调整

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL xcel exce cel 单元格

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   '整列列宽适应输入
    Target.EntireColumn.AutoFit
    '单个单元列宽适应输入
'    Target.EntireColumn.ColumnWidth = Len(Target) + 1
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   '整列列宽适应输入
    Target.EntireColumn.AutoFit
    '单个单元列宽适应输入
'    Target.EntireColumn.ColumnWidth = Len(Target) + 1
End Sub

openxlsx包可以做这个，但是比较麻烦，还是写出来自己手动调整吧

jiawei5990 发表于 2021-4-25 00:21
如题，写excel的时候调用的是xlsx包的write.xlsx函数，因为写到excel中的数据框有些单元格变量比较长，导出 ...

你在统计之都上问过这个问题了又来这里问。告诉你了用openxlsx是最优选择，你就是不听，非要固执的坚持用xlsx。你要以解决问题为导向，不要纠结于过程。
从解决问题的角度讲，你还可以考虑在导出到excel后紧接着调用vba来调整列宽。

屋檐滴语 发表于 2021-5-7 02:40
你在统计之都上问过这个问题了又来这里问。告诉你了用openxlsx是最优选择，你就是不听，非要固执的坚持用 ...

是先在这里发的贴再在cos论坛问的
现在已经解决了，谢谢
我并没有纠结用哪个包来解决这个问题
openxlsx处理的方法我发帖之前就已经看到了
同一个问题考虑用多种方法来解决我认为不是坏事

jiawei5990 发表于 2021-5-10 17:34
是先在这里发的贴再在cos论坛问的
现在已经解决了，谢谢
我并没有纠结用哪个包来解决这个问题

既然那边解决了，你应该在这边注明已解决，然后放出解决思路。这样其他坛友就没必要花时间为你想办法了，另外其他人可能也有类似的问题，就可以参考你这篇帖子了。

导出到excel后在excel里全选然后按两下列标题之间就可以把每一格都调整

1. library(openxlsx)
   
2. 
   
3. df = data.frame(x = rep(1,3), y=rep(paste(letters,collapse = '+'),3))
   
4. df
   
5. 
   
6. # method from help ?setColWidths
   
7. wb <- createWorkbook()
   
8. addWorksheet(wb, "Sheet 1")
   
9. writeData(wb, sheet = 1, x = df)
   
10. setColWidths(wb, sheet = 1, cols = 1:2, widths = "auto")
    
11. 
    
12. saveWorkbook(wb, "df.xlsx", overwrite = TRUE)

复制代码

分享一下 用xlsx包设置的代码

library(xlsx)
wb<-createWorkbook(type = "xlsx")
sheet<-createSheet(wb)
##设置字体（雅黑），边框，对齐方式（居右）
cs1<-CellStyle(wb)+Font(wb,name = "Microsoft YaHei UI")+
  Border(color = "Black",position = c("TOP","BOTTOM","LEFT","RIGHT"),
         pen = "BORDER_THIN")+Alignment(h="ALIGN_RIGHT")
cs2<-cs1+DataFormat("yyyy/m/d")  ##日期格式
cs3<-cs1+DataFormat("#,##0.00")  ##带分隔符的两位小数
cs4<-cs1+DataFormat("#,##0.0000")  ##带分隔符的四位小数
cs5<-cs1+Alignment(wrapText = TRUE)  ##自动换行
columnstyle<-rep(list(cs1),ncol(df))
names(columnstyle)<-as.character(1:ncol(df))
columnstyle$`1`<-cs5
columnstyle$`3`<-cs2
columnstyle$`4`<-cs2
columnstyle$`5`<-cs2
columnstyle$`6`<-cs3
columnstyle$`11`<-cs3
columnstyle$`12`<-cs3
columnstyle$`13`<-cs4
addDatafr ame(df,sheet,row.names = F,colnamesStyle = cs1,colStyle = columnstyle)
setColumnWidth(sheet,colIndex = 1,colWidth = 34)
autoSizeColumn(sheet,colIndex = 2:ncol(df))
saveWorkbook(wb,path)

欢迎使用Markdown编辑器

经管之家：Do the best economic and management education！

你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。

功能快捷键

撤销：Ctrl/Command + Z
重做：Ctrl/Command + Y
加粗：Ctrl/Command + B
斜体：Ctrl/Command + I
标题：Ctrl/Command + Shift + H
无序列表：Ctrl/Command + Shift + U
有序列表：Ctrl/Command + Shift + O
检查列表：Ctrl/Command + Shift + C
插入代码：Ctrl/Command + Shift + K
插入链接：Ctrl/Command + Shift + L
插入图片：Ctrl/Command + Shift + G

合理的创建标题，有助于目录的生成

直接输入1次#，并按下space后，将生成1级标题。
输入2次#，并按下space后，将生成2级标题。
以此类推，我们支持6级标题。

如何改变文本的样式

强调文本 强调文本

加粗文本 加粗文本

标记文本

删除文本

引用文本

H₂O is是液体。

2¹⁰ 运算结果是 1024.

插入链接与图片

链接: 经管之家官网.

图片:

带尺寸的图片:

如何插入一段漂亮的代码片

选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.

def get_abs(x):
    if not isinstance(x, (int, float)):
        raise TypeError('bad operand type')
    if x >= 0:
        return x
    else:
        return -x

生成一个适合你的列表

• 项目
  • 项目
    • 项目

1. 项目1
2. 项目2
3. 项目3

• 计划任务
• 完成任务

创建一个表格

一个简单的表格是这么创建的：

项目	Value
电脑	$1600
手机	$12
导管	$1

设定内容居中、居左、居右

使用:---------:居中
使用:----------居左
使用----------:居右

第一列	第二列	第三列
第一列文本居中	第二列文本居右	第三列文本居左

SmartyPants

SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：

TYPE	ASCII	HTML
Single backticks	'Isn't this fun?'	‘Isn’t this fun?’
Quotes	"Isn't this fun?"	“Isn’t this fun?”
Dashes	-- is en-dash, --- is em-dash	– is en-dash, — is em-dash

创建一个自定义列表

Markdown

Text-to-HTML conversion tool

Authors

John

Luke

如何创建一个注脚

一个具有注脚的文本。¹

注释也是必不可少的

Markdown将文本转换为 HTML。

KaTeX数学公式

您可以使用渲染LaTeX数学表达式 KaTeX:

Gamma公式展示 $\Gamma(n) = (n-1)!\quad\forall n\in\mathbb N$ 是通过欧拉积分

$\Gamma(z) = \int_0^\infty t^{z-1}e^{-t}dt\,.$

你可以找到更多关于的信息 LaTeX 数学表达式[here][1].

新的甘特图功能，丰富你的文章

• 关于 甘特图 语法，参考 [这儿][2],

UML 图表

可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图：:

这将产生一个流程图。:

• 关于 Mermaid 语法，参考 [这儿][3],
  [1]: http://meta.math.stackexchange.com/questions/5020/mathjax-basic-tutorial-and-quick-reference
  [2]: https://mermaidjs.github.io/
  [3]: https://mermaidjs.github.io/
  [4]: http://adrai.github.io/flowchart.js/

---

1. 注脚的解释 ↩︎