如何将文本转化成数字和日期

toria

附件中F列是文本数字，如何转变成可运算的数值？
已经试过，选择性粘贴乘1不行。

附件中G和H列是文本日期，如何转变成日期格式？
已经试过，分列功能不行。

请高手协助解决，谢谢！

wshcw

=--SUBSTITUTE(F2," ",)
=--TEXT(LEFT(H2,5),"d-m")

yc310224

F、G、H列数字后有一空格。请在查找替换中替换掉，空格的编码非32。

[ 本帖最后由 yc310224 于 2011-5-17 21:59 编辑 ]

wshcw

原帖由 yc310224 于 2011-5-17 21:57 发表
F、G、H列数字后有一空格。请在查找替换中替换掉，空格的编码非32。

编辑栏复制就行了,还记什么编码?说"空格"是误导,其实是不可见字符.

skyzxh

转变格式。。。。

yang504165668

楼主参考一下吧

ykcbf1100

借题练习，VBA，数据清洗

ykcbf1100

1. Sub ykcbf()         '//2025.3.27     数据清洗
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     On Error Resume Next
   
5.     With Sheets("Sheet2")
   
6.         For Each k In .UsedRange
   
7.             If k.Value <> Empty Then k.Value = ston(k.Value)
   
8.         Next
   
9.         arr = .UsedRange
   
10.         For i = 2 To UBound(arr)
    
11.             If arr(i, 1) <> Empty Then
    
12.              '   arr(i, 6) = Val(arr(i, 6))
    
13.                 rq = Split(arr(i, 7), "/")
    
14.                 arr(i, 7) = DateSerial(rq(2), rq(1), rq(0))
    
15.                 rq = Split(arr(i, 8), "/")
    
16.                 arr(i, 8) = DateSerial(rq(2), rq(1), rq(0))
    
17.             End If
    
18.         Next
    
19.         .UsedRange = arr
    
20.     End With
    
21.     Application.ScreenUpdating = True
    
22. End Sub

复制代码

422566739

F列直接用WPS的 开始里面 转换成数字
H列的 是dd/mm/yyyy格式，我的办法是把他构造下 data(yyyy/mm/dd)格式