Question

我正在尝试实现一个SPLIT（）函数来解析EXCEL中的字符串，并将结果分发到同一表单上的相邻单元格。以下是按预期工作，除非解析的术语是数字。

＆＃34; 0.25＆＃34;解析为＆＃34; 1/0/1900 6:00:00 AM＆＃34;

我对生成的strAttr值尝试了cstr（），但似乎没有效果。有什么想法吗？

 Sub splitText()

 Dim i As Integer
 Dim x As Integer
 Dim strText As String
 Dim strAttr As Variant
 Dim strFirst As String
 Dim NumRows As Integer

    strFirst = "A4"

    Sheets("Data").Activate
    Range(strFirst).Select
    NumRows = Range(strFirst, Range(strFirst).End(xlDown)).Rows.Count

    For x = 1 To NumRows

        ActiveCell.Offset(1, 0).Select

        strText = ActiveCell.Value
        strAttr = Split(strText, " ")

        For i = 0 To UBound(strAttr)
            Cells(x + 4, i + 2).Value = strAttr(i)
        Next i

    Next

End Sub

Answer 1

注意：

我强制一个（'）到字符串的前面，这似乎提供了所需的结果，除了一切都是= TEXT：

    For i = 0 To UBound(strAttr)
        Cells(x + 4, i + 2).Value = "'" & strAttr(i)
    Next i

有没有更好的方法来实现这一点并将“0.25”保留为数值？

谢谢，

标记

Answer 2

这可能会有所帮助。替换：

strText = ActiveCell.Value

使用：

strText = ActiveCell.Text

Excel Split（）将数字转换为Date

2 个答案: