3

パワークエリを介して API から Excel にデータをインポートしています。

一部のデータは分数であるため、これは悪夢のようなものです。このため「数値」を使用できず、エラーがスローされるため、テキストとしてインポートする必要があります。

これを行うと、データは次のようにインポートされます。先頭に「'」が付きます。 データエクセル

毎分データを更新して数式を実行する必要があるため、これは数値である必要があります。最も簡単な方法は何ですか ('15/2 から数値に変換するマクロ)、または Power Query を修正して分数をインポート/変換できるようにする (それは完璧です!)。

どうもありがとう

4

4 に答える 4

3

使用するマクロを次に示します (スクリーンショットの列の配置が正しいと仮定します)。行う必要がある唯一の調整は、データの最後の行で「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
于 2015-06-18T15:05:09.357 に答える
0

おそらく、これは別の問題で確認したいマクロ 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
于 2015-06-18T15:41:54.277 に答える