求段vba代码

mkm-_7605

就是a列的A4：A13中的数字  大于5位数，这些数字会自动换行显示出来而不是显示的e啥啥，我i试过设置成文本不行，设置成0也不行，不能批量显示出来 ，必须是一个 一个双击下，才能显示。问下大佬有没有更换的方法

feilanga

没有原始文件都是靠猜。情况不同方法不同，一般加丿号

3190496160

试试系统自带的分列功能呗，选定需要转换的单元格区域，选择数据-分列，第三步选择文本

3190496160

或者上传你的excel附件，办法很多的

mkm-_7605

3190496160 发表于 2024-5-20 09:29
试试系统自带的分列功能呗，选定需要转换的单元格区域，选择数据-分列，第三步选择文本

这个方法我试了 能实现 但是我的表格多，能不能有一键设置完的
，但是对应空表格设置不了

发哥76

a列不够宽造成的，加一句代码：Columns("A:A").EntireColumn.AutoFit

3190496160

mkm-_7605 发表于 2024-5-20 09:58
这个方法我试了 能实现 但是我的表格多，能不能有一键设置完的
，但是对应空表格设置不了

你连附件都懒得上传，肯定就没哟办法了嘛，

ykcbf1100

超过5位就强行换行显示。不过，这样会改变数据结构，所以，我又写了一段数据恢复代码。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.5.20
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .Range("a4:a" & r - 1)
   
5.         For i = 1 To UBound(arr)
   
6.             st = CStr(arr(i, 1))
   
7.             result = ""
   
8.             For x = 1 To Len(st) Step 5
   
9.                 result = result & Mid(st, x, 5) & vbCrLf
   
10.             Next
    
11.             arr(i, 1) = result
    
12.         Next
    
13.         .Range("a4:a" & r - 1) = arr
    
14.     End With
    
15. End Sub
    
16. 
    
17. Sub 数据恢复() '//2024.5.20
    
18.     With Sheets("Sheet1")
    
19.         r = .Cells(Rows.Count, 1).End(3).Row
    
20.         arr = .Range("a4:a" & r - 1)
    
21.         For i = 1 To UBound(arr)
    
22.             st = Split(arr(i, 1), Chr(10))
    
23.             result = ""
    
24.             For x = 0 To UBound(st)
    
25.                 result = result & st(x)
    
26.             Next
    
27.             arr(i, 1) = result
    
28.         Next
    
29.         .Range("a4:a" & r - 1) = arr
    
30.     End With
    
31. End Sub
    
32. 
    

复制代码

mkm-_7605

ykcbf1100 发表于 2024-5-20 10:39
参与一下。。。

这是不是也是真对有数据的表格设置 ，我是想提取设置好，然后复制进来数据都直接显示成要的效果了