excel表格拆分成多个表格后编码显示不全如果解决？

Posted 2023-05-05

在用宏按科室拆分成多个表格后，物资编码因位数太长最后无法全部显示。使用的宏代码如下：Sub NewSheets()Dim d As Object, sht As Worksheet, arr, brr, r, kr, i&, j&, k&, x&Dim Rng As Range, Rg As Range, tRow&, tCol&, aCol&, pd&Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseSet d = CreateObject("scripting.dictionary")Set Rg = Application.InputBox("L", Title:="提示", Type:=8)tCol = Rg.ColumntRow = Val(Application.InputBox("1"))If tRow = 0 Then MsgBox "您未输入标题行行数，程序退出！": Exit SubSet Rng = ActiveSheet.UsedRangearr = RngtCol = tCol - Rng.Column + 1aCol = UBound(arr, 2)For i = tRow + 1 To UBound(arr)If Not d.exists(arr(i, tCol)) Thend(arr(i, tCol)) = iElsed(arr(i, tCol)) = d(arr(i, tCol)) & "," & iEnd IfNextFor Each sht In WorksheetsIf d.exists(sht.Name) Then sht.DeleteNextkr = d.keysFor i = 0 To UBound(kr)If kr(i) <> "" Thenr = Split(d(kr(i)), ",")ReDim brr(1 To UBound(r) + 1, 1 To aCol)k = 0For x = 0 To UBound(r)k = k + 1For j = 1 To aColbrr(k, j) = arr(r(x), j)NextNextWith Worksheets.Add(, Sheets(Sheets.Count)).Name = kr(i).[a1].Resize(tRow, aCol) = arr.[a1].Offset(tRow, 0).Resize(k, aCol) = brrRng.Copy.[a1].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False.[a1].SelectEnd WithEnd IfNextSheets(1).ActivateSet d = NothingErase arr: Erase brrMsgBox "数据拆分完成！"Application.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub

Excel总表按条件批量拆分多表（一表拆分多表）

参考技术A 先把C列设置为文本格式，然后再赋值到表格内。
Columns("C:C").NumberFormatLocal = "@" '设置单元格为文本格式
格式汇总：
with Range("A1:B10")
.HorizontalAlignment = xlLeft '左对齐
.HorizontalAlignment = xlCenter ' 居中
.HorizontalAlignment = xlRight '右对齐
.Font.Bold = True '粗体
.Font.Italic = True '斜体
.Font.Name = "宋体"
.Font.Size = 20
.Borders.LineStyle=1 '加边框
.Borders.LineStyle=0 '取消边框
.WrapText = True '自动换行
.NumberFormatLocal = "@" '设置单元格为文本格式
.NumberFormatLocal = "G/通用格式" '设置为常规格式
.Interior.Color = vbYellow '加底色
.Font.Color=vbRed '字体颜色
end with

java中把列表用流生成了Excel表格中的时间显示问题

java中把列表用流生成了Excel表格，然后里面有时间，生成时时间格式是字符串，生成后在Excel中也被默认为字符串，如何设置直接让Excel识别，自己用鼠标点了以后自动从字符串格式转为时间格式，但是信息太多的时候这肯定不科学，求赐教！！！
为什么只能传图片，不支持文档的上传呢

参考技术A 可以再Java代码中将时间格式进行设置，然后再导出excel文件。追问

设置了也是字符串格式，后面多个“.0”没关系的

追答

重新找出一个导出的Java代码，我用过一个poi的，导出后格式合适的。是不是你在上传文件的时候有格式验证，若果是图片格式能上传，文档格式不能上传呢？？？

追问

你用的是jar包嘛，我这是自己写的，发个链接地址吧

参考技术B 还是没有表述明白，你是想要带AM和PM的时间格式？追问

我的时间格式要弄字符串导出成Excel后，Excel默认时间格式为字符串，当我点击以后，给修改成了Excel认识的时间格式

这个是导出格式的问题，你说的这个我在鼠标点击后，可移执行单元格格式，在没有点击前，他是默认不能识别执行的