把EXCEL所有单元格的格式设置为文本

HS = Sheets(1).Cells(65536, 1).End(xlUp).Row
LS = Sheets(1).UsedRange.Columns.Count
Dim H As Long
Dim L As Long
For H = 6 To HS
For L = 1 To LS
T = Sheets(1).Cells(H, L).Text
Sheets(1).Cells(H, L).NumberFormatLocal = "@"
Sheets(1).Cells(H, L) = T
Next L
Next H[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24345566/viewspace-1054622/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24345566/viewspace-1054622/