0

我正在尝试将数据导入表。基本上它是一个多选题。我所有的问题都有上标和下标,例如 X 2和 log 5 2 ....

我有2000多条记录,我必须导入它。但是在导入后它以纯格式出现,而不是权力。我的数据库是MYSQL (UTF-8)

这是示例数据

If log5 2, log5 (2x - 5) and   log 5(2x - 7/2)  are in AP , then x is equal to

导入后它看起来像上面,但实际上它应该是

如果 log 5 2、 log5 (2 x - 5) 和 log 5(2 x - 7/2) 在 AP 中,则 x 等于

有人请建议我怎么做

4

1 回答 1

0

这是下标的快速修复:

Sub log_Script()
Dim cel As Range, rng As Range
Dim i&, k&
Dim myText$, findText$, curStr$


Set cel = Range("A1")
'myText = cel.Value

For i = 1 To Len(cel.Value)
    k = k + 1
    curStr = Mid(cel.Value, i, 1)
    If curStr <> " " Then
        findText = findText + curStr
    ElseIf curStr = " " Then
        findText = ""
    End If
    Debug.Print findText

    If findText = "log" Then
        If Mid(cel.Value, i + 1, 1) = " " Then
            With cel.Characters(Start:=k + 2, Length:=1).Font
                .Subscript = True
            End With
        Else
            With cel.Characters(Start:=k + 1, Length:=1).Font
                .Subscript = True
            End With
        End If
    End If
Next i

End Sub

这将通过一个范围(当前设置为A1:A10),并且对于每个单元格,它将查找log然后取下一个数字并将其设为下标。(注意:这是假设所有日志的基数 < 10,如果不一定如此,请告诉我)。

如果您可以从 CSV 中发布几行或单元格,我可能会做得更好,这样我就可以看到格式到底是什么样的。(或截取部分数据,也可以)。

于 2015-09-08T17:32:49.687 回答