Question

我正在通过电源查询将API中的数据导入excel。

由于某些数据是分数，这导致了一些噩梦。我不能因为这个而使用'number'而且它会抛出错误，所以我必须导入为文本。

执行此操作时，数据导入如下，前面带有“'”： Data Excel

由于我需要每分钟更新数据，然后在其上运行公式，我需要将其作为数字。什么是最简单的方法（从'15 / 2转换为数字的宏）或修复Power Query并允许它导入/转换分数（这将是完美的！）。

非常感谢

Answer 1

这是一个要使用的宏（假设您的屏幕截图具有正确的列位置）。您需要进行的唯一调整是使用数据的最后一行调整“intLastRow”。

Sub SO()
    Dim intLastRow As Integer, strIn As String
    intLastRow = 100
    For I = 2 To intLastRow
        For t = 4 To 21
            If InStr(1, Cells(I, t).Value, "/") > 0 Then
                strIn = Cells(I, t).Value
                Cells(I, t).Value = Val(Left(strIn, InStr(1, strIn, "/") - 1)) / Val(Right(strIn, Len(strIn) - InStr(1, strIn, "/")))
            Else
                Cells(I, t).Value = Val(Cells(I, t).Value)
            End If
        Next t
    Next I
End Sub

Answer 2

然后，您可以逐步选择单元格并检查每个单元格的前缀字符是否为撇号。如果是，那么您需要做的就是让宏执行相当于手动重新输入单元格内容的方式，如下所示：

For Each c In Selection
    If c.PrefixCharacter = "'" Then
        c.Value = c.Value
    End If
Next c

请注意，宏检查PrefixCharacter属性中的内容。可以在VBA中读取此属性，但不能直接更改。这就是为什么宏需要使用看似简单的行来将每个单元格的值分配回单元格 - 基本上重新输入内容。

有关完整指南，请参阅： http://excel.tips.net/T003332_Searching_for_Leading_Apostrophes.html

这是我自己的代码：

Public Sub tryit()
Dim i As Long
For i = 1 To 20 'repeat until your last record
    With ThisWorkbook.Sheets("Sheet1")
        If .Cells(i, 5).PrefixCharacter = "'" Then
            MsgBox "removing 1 apostrophe..."
            .Cells(i, 5).FormulaR1C1 = "=" & .Cells(i, 5)
        End If
    End With
Next i
End Sub

而且......瞧！

Answer 3

也许这是你想要看到的另一个问题的宏vba代码：

Public Sub tryit()
    Dim i As Long
    For i = 1 To 20 'repeat until your last record
        With ThisWorkbook.Sheets("Sheet1")
            .Cells(i, 5).FormulaR1C1 = "=" & .Cells(i, 5)
        End With
    Next i
End Sub

Answer 4

将数学表达式解析为数字的Power Query解决方案非常简单！

只需添加自定义最终步骤Table.TransformColumns(SomeLastStep, {}, Expression.Evaluate)即可。这可以通过运行像9或15/2这样的文本输入作为返回数字的小程序来实现。

enter image description here

（您可能还希望之后将列转换为数字。）

查看＆gt;完整示例的高级编辑器：

let
    SomeLastStep = #table( {"data1", "data2"}, { {"9", "15/2"}, {"10", "8"}, {"11", "10"}, {"11", "10"} } ),
    Custom1 = Table.TransformColumns(SomeLastStep, {}, Expression.Evaluate),
    #"Changed Type" = Table.TransformColumnTypes(Custom1,{{"data1", type number}, {"data2", type number}})
in
    #"Changed Type"

Excel数据导入为'15 / 2，宏转换为数字？

4 个答案: