Question

VBA excel 宏 请教下，这个代码错在哪了

如题

Sub a()
Dim a, b, i
For H = 1 To 12
If InStr(Cells(i, 1), "[") > 0 Then
Dim M(), N()
i = 0
b = 0
a = Cells(i, 1)
Do While InStr(a, "[") <> 0
ReDim Preserve M(i + 1)
ReDim Preserve N(i + 1)
M(i) = InStr(a, "[") + b
N(i) = InStr(a, "]") + b
a = Mid(a, N(i) + 1)
b = Len(Cells(i, 1)) - Len(a)
i = i + 1
Loop
For J = 0 To UBound(M)
With Cells(a, b).Characters(M(J) + 1, N(J) - M(J) - 1).Font
.Color = -16776961
.Size = 16
End With
Next
End If
Next
End Sub

Answer 1

代码写得太混乱了，到处都是错或者不正规的写法。
声明变量最好声明类型，不然全部是Variant了
Cells(i, 1).value
H是什么，看意思应该是i
定义数组如果没使用Option Base 1的话，数组起始下标是0
Next后面，最好写完整，Next i, Next j，提高代码可读性。
算法部分懒得看了。