Excel对特定化学式进行批量下标的窗体设计和VBA代码

Excel对特定化学式进行批量下标的窗体设计和VBA代码。

Function mynum(str0 As String)
Dim mychar As String
Dim i, j, k As Integer
Dim mychars() As Integer
i = 0
j = 0
k = 0
For n = 1 To Len(str0)
mychar = Mid(str0, n, 1)
If IsNumeric(mychar) Then
    i = i + 1
End If
Next n
ReDim mychars(1 To i)
For n = 1 To Len(str0)
mychar = Mid(str0, n, 1)
j = j + 1
If IsNumeric(mychar) Then
   k = k + 1
   mychars(k) = j
End If
Next n
mynum = mychars()
End Function
Private Sub CommandButton1_Click()
Dim str1, str2 As String
Dim r, c, k, j
Dim arr() As Integer
str2 = TextBox1.Value
j = Len(str2)
arr() = mynum(str2)
m = UBound(arr) - LBound(arr) + 1
For r = 1 To ActiveSheet.UsedRange.Rows.Count
    For c = 1 To ActiveSheet.UsedRange.Columns.Count
        str1 = ActiveSheet.Cells(r, c).Value
        k = InStr(str1, str2)
        If k > 0 Then
        For i = 1 To m
           Cells(r, c).Characters(Start:=k + arr(i) - 1, Length:=1).Font.Subscript = True
        Next
        End If
     Next
Next
End Sub