VBA range.formula问题

Question

我的代码中有一部分是我做不到的，

我试图在VBA =RIGHT(LEFT(X1;Z1-2);LEN(LEFT(X1;Z1-2))-FIND(":";X1))上执行以下命令

在单元格X1上，有一个文本：RESULTS:NG & MODEL:IJ

我的VBA代码是：

LR = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To LR
   cel = "A" & i
   cel2 = "Y" & i
   cel3 = "Z" & i
   cel4 = "X" & i

   Range("M" & i).Formula = "=RIGHT(LEFT(" & cel4 & "," & cel3 & "-" & 2 & "),LEN(LEFT(" & cel4 & "," & cel3 & "-" & 2 & "))-FIND(:" & cel4 & "))"

Next i

我也愿意用更好的方法来解决这个问题

提前感谢

Answer 1

尝试一次编写所有公式，并尽可能减少使用公式中的引号。

   Range(Cells(1, "M"), cells(lr, "M")).Formula = _
     "=RIGHT(LEFT(X1, Z1-2), LEN(LEFT(X1, Z1-2))-FIND(char(58), X1))"

子过程中的所有范围和单元格引用使用正确定义的父工作表引用更好。

dim lr as long
with worksheets("sheet1")
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range(.Cells(1, "M"), .cells(lr, "M")).Formula = _
      "=RIGHT(LEFT(X1, Z1-2), LEN(LEFT(X1, Z1-2))-FIND(char(58), X1))"
end with