单元格内大段文字，根据调整的列宽，在其它列自动分行

pc087

ivccav

这个其实挺复杂的，可能是我没研究过吧。比例字体每个字符的宽度都不是固定的，加上每个字体大小占用宽度也不同，每行容纳的字符是难以简单换算的，另外实际列宽也不是设定值，为了显示完整字形，软件自动微调列宽。当然，可以先设置成等宽字体，设定合适的字体大小，这样就可能相对方便处理，西文字符占1个位，中文字符占2个位。Excel列宽是按11号字体计算字体列宽的。

zldccmx

zldccmx

详见附件！

ivccav

zldccmx 发表于 2023-1-30 16:04

你这个程序换个字体大小就乱了。Excel列宽columnwidth是字体列宽，据说是按11号字体换算出的。你的目标列宽等于源列宽，也是一个限制条件。
更好的想法是根据需要的列宽和字体大小，换算出一行能容纳多少文字。当然，这个需求意义不大

tanglf188

B列列宽调整后运行代码，只对当前字体和大小有效，如果有调整字体需要重新计算

pykqzh

zldccmx 发表于 2023-1-30 16:06
详见附件！

谢谢，这个版本完美满足我的需要！！

pykqzh

tanglf188 发表于 2023-1-30 17:33
B列列宽调整后运行代码，只对当前字体和大小有效，如果有调整字体需要重新计算

气测显示：全烃由0.713%↑3.924%，净增值:3.211%，组份：C1:0.417%，C2:0.046%，C3:0.121%，iC4:0.032%，nC4:0.056%，iC5:0.011%，nC5:0.007%，H2:0.030%。CO2:0.117%。荧光显示：岩屑无油味，直照呈暗黄色星点状荧光，发光岩屑占本包岩屑约占3%，滴照乳白色，色环宽约0.5mm，氯仿浸泡液自然光下无色，荧光灯下呈淡乳白色，系列对比5级。滴5%稀盐酸不反应。槽面显示：无。钻井液性能：密度1.07g/cm3，粘度45s。现场评价：荧光。

ivccav

tanglf188 发表于 2023-1-30 17:33
B列列宽调整后运行代码，只对当前字体和大小有效，如果有调整字体需要重新计算

其实这是一个伪需求，微软在vba中并没有给出列宽和字体大小的换算方式。稍微聪明点的，有这种需求也会用其他方式规避。

leolee82

提示一下，转成PDF，每行后面就就会有个换行符了