怎么把dat數(shù)據(jù)轉(zhuǎn)換成數(shù)據(jù)

你好，樓主想要的功能，可以使用VBA程序?qū)崿F(xiàn)。

（一）VBA程序代碼如下：（代碼運(yùn)行之前請(qǐng)做好數(shù)據(jù)備份，以免丟失）

Sub?abcd()
Dim?i1,?i2,?i3,?str
On?Error?Resume?Next
Set?mysheet1?=?ThisWorkbook.Worksheets("Sheet1")??'定義工作表Sheet1

For?i1?=?1?To?1000??'從第1行到1000行
?If?mysheet1.Cells(i1,?1)?<>?""?Then?????'如果單元格不是空白，則
??str?=?Mid(mysheet1.Cells(i1,?1),?1,?1)?'截取第一個(gè)字符
??If?IsNumeric(str)?=?True?Then??????????'如果截取的字符是數(shù)字，則
???i2?=?i1
???i3?=?1
??Else
???i3?=?i3?+?1
??mysheet1.Cells(i2,?i3)?=?mysheet1.Cells(i1,?1)??'把ABCD項(xiàng)寫入含有數(shù)字的那一行
?End?If
End?If
Next

End?Sub

（二）程序運(yùn)行前后的結(jié)果如下圖所示，望笑納。

你好，樓主想要的功能，可以使用VBA程序?qū)崿F(xiàn)。

（一）VBA程序代碼如下：（代碼運(yùn)行之前請(qǐng)做好數(shù)據(jù)備份，以免丟失）

Sub?abcd()
Dim?i1,?i2,?i3,?str
On?Error?Resume?Next
Set?mysheet1?=?ThisWorkbook.Worksheets("Sheet1")??'定義工作表Sheet1

For?i1?=?1?To?1000??'從第1行到1000行
?If?mysheet1.Cells(i1,?1)?<>?""?Then?????'如果單元格不是空白，則
??str?=?Mid(mysheet1.Cells(i1,?1),?1,?1)?'截取第一個(gè)字符
??If?IsNumeric(str)?=?True?Then??????????'如果截取的字符是數(shù)字，則
???i2?=?i1
???i3?=?1
??Else
???i3?=?i3?+?1
??mysheet1.Cells(i2,?i3)?=?mysheet1.Cells(i1,?1)??'把ABCD項(xiàng)寫入含有數(shù)字的那一行
?End?If
End?If
Next

End?Sub

（二）程序運(yùn)行前后的結(jié)果如下圖所示，望笑納。