excel完整显示长数字,并自动加入分隔符
做了一个宏来完成：（增加辅助列或使用分列功能再用函数合并也是办法）
1、输入时加'符号，转换为文本格式
2、选中需要变更格式的区域，然后执行宏
宏内容如下：
Sub li()
Dim s(100), huifu(65535) '定义数组s,处理100*3位,即300位
For Each c In Selection
huifu(t) = c。 Value '作恢复用，存储当前单元格的值
t = t + 1 '递增
temp = c。Value '临时变量存储当前单元格的值
Do Until Len(temp) "" Then '如果数组的值不为空...全部
做了一个宏来完成：（增加辅助列或使用分列功能再用函数合并也是办法）
1、输入时加'符号，转换为文本格式
2、选中需要变更格式的区域，然后执行宏
宏内容如下：
Sub li()
Dim s(100), huifu(65535) '定义数组s,处理100*3位,即300位
For Each c In Selection
huifu(t) = c。
Value '作恢复用，存储当前单元格的值
t = t + 1 '递增
temp = c。Value '临时变量存储当前单元格的值
Do Until Len(temp) "" Then '如果数组的值不为空
temp = temp & "," & s(i) '临时变量等于自身+逗号+当前数组的值
End If
Next i
c。
Value = "'" & temp '转换成文本形式,赋予该单元格新的值
Next
tt = MsgBox("是否恢复初始值", vbOKCancel, "警告!") '选择是否恢复初始值
If tt = 1 Then
t = 0
For Each c In Selection
c。
Value = "'" & huifu(t)
t = t + 1
Next
End If
End Sub
已修改了，更改完之后提示是否恢复初始值。
这样的功能还是不够完善，万一不小心点了取消，再想恢复还是不可能了，干脆把初始值写到新的单元格也不错。
初始值自动写入下一列，要恢复时，自己复制粘贴回去就可以了，可以修改c。Column + 1部份，+1是当前列的下一列，+2是当前列的下两列，+3。。。
Sub li()
Dim s(100) '定义数组s,处理100*3位,即300位
For Each c In Selection
Cells(c。
Row, c。Column + 1)。Value = "'" & c。Value
temp = c。Value '临时变量存储当前单元格的值
Do Until Len(temp) "" Then '如果数组的值不为空
temp = temp & "," & s(i) '临时变量等于自身+逗号+当前数组的值
End If
Next i
c。
Value = "'" & temp '转换成文本形式,赋予该单元格新的值
Next
End Sub
。收起
