我这个程序在一个EXCEL中运行没问题，但是当我把代码复制到另一个EXCEL中是就提示如下：

Question

Public Sub format1()Dim ar, br(1 To 60000, 1 To 9), i, j, arr, t, k, n'maxrow1 = Cells(Rows.Count, "B").End(xlUp).RowColumns("E:E").Select' Range("E2").ActivateSelection.Replace What:="~*", Replacement:="×", LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=FalseColumns("E:E").Select' Range("E2").ActivateSelection.Replace What:="X", Replacement:="×", LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=Falsear = Range("a3", [f65536].End(3))For i = 1 To UBound(ar)arr = Split(ar(i, 5), "×")'If UBound(arr) - LBound(arr) + 1 > 2 Then ReDim Preserve arr(LBound(arr) To UBound(arr) - 1)ReDim Preserve arr(LBound(arr) To UBound(arr) - 1)t = Evaluate(Join(arr, "*"))n = n + t'For j = n To n - Val(ar(i, 5)) + 1 Step -1For j = n To n - t + 1 Step -1k = k + 1If j = n - t + 1 Thenbr(j, 1) = ar(i, 1)br(j, 2) = ar(i, 2)br(j, 3) = ar(i, 3)br(j, 4) = ar(i, 4)br(j, 5) = ar(i, 5)br(j, 9) = ar(i, 6)End Ifbr(j, 6) = t - k + 1Next jk = 0NextWith Sheets(1).Rows("3:" & .Rows.Count).ClearWith .[a3].Resize(n, 9).Value = br.Font.Size = 9.Resize(, 10).Borders.LineStyle = xlContinuousEnd WithEnd WithEnd Sub若点击调试的话会提出 t = Evaluate(Join(arr, "*"))这个语句有问题，请大神指导

Answer 1

应该是Join(arr, "*")的结果出错。

Answer 2

是不是你的arr中的数据中含有非计算符号？
实际上你不一定用split和join函数换来换去，直接用替换，把 "×"替换成“*"
用函表函数直接得到t值
t = Evaluate(replace(ar(i,5),"×", "*"))
你是根据E列算出插入的行数，是吗？