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@]
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博客 ” ，链接：https://blog.itpub.net/24345566/viewspace-1054622/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
