excel完整顯示長(cháng)數字,并自動(dòng)加入分隔符

?? 做了一個(gè)宏來(lái)完成：（增加輔助列或使用分列功能再用函數合并也是辦法）

1、輸入時(shí)加'符號，轉換為文本格式

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 '臨時(shí)變量存儲當前單元格的值

Do Until Len(temp) "" Then '如果數組的值不為空

temp = temp & "," & s(i) '臨時(shí)變量等于自身+逗號+當前數組的值

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

已修改了，更改完之后提示是否恢復初始值。

這樣的功能還是不夠完善，萬(wàn)一不小心點(diǎn)了取消，再想恢復還是不可能了，干脆把初始值寫(xiě)到新的單元格也不錯。

初始值自動(dòng)寫(xiě)入下一列，要恢復時(shí)，自己復制粘貼回去就可以了，可以修改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 '臨時(shí)變量存儲當前單元格的值

Do Until Len(temp) "" Then '如果數組的值不為空

temp = temp & "," & s(i) '臨時(shí)變量等于自身+逗號+當前數組的值

End If

Next i

c。

??Value = "'" & temp '轉換成文本形式,賦予該單元格新的值

Next

End Sub

一般輸入數位較長(cháng)的數字后，顯示的是科學(xué)計數法的形式。

你只需選中該單元格，單擊鼠標右鍵，在“單元格格式”的“數字”選型中選擇“數字”、“使用千位分隔符”就可以了。

選中所有需要設置的單元格，單擊右鍵-設置單元格格式-數字-分類(lèi)-數值，然后在"使用千位分隔符”前面打對號選中即可。

見(jiàn)附件：