为何这个代码无法运行

wtujcf123

使用gpt，让编写一个excel vba脚本，点击按纽实现在b列数值不为1时，在a列填写这个公式：IF(B3>1,TRIM(LEFT(SUBSTITUTE(A2&".",".","."&REPT(" ",50),B3-1),50)),)&-LOOKUP(,-INT(LEFT(0&TRIM(RIGHT(SUBSTITUTE("."&A2,".",REPT(" ",50),B3),50)),ROW($1:$16))))+1。


程序给出的代码是

1. Sub ApplyFormula()
   
2.     Dim lastRow As Long
   
3.     lastRow = Cells(Rows.Count, "B").End(xlUp).Row
   
4.    
   
5.     For i = 3 To lastRow
   
6.         If Cells(i, "B").Value <> 1 Then
   
7.             Cells(i, "A").Formula = "=IF(B" & i & ">1,TRIM(LEFT(SUBSTITUTE(A" & i - 1 & "&""."",""."."&REPT("" "",50),B" & i & "-1),50)),)&-LOOKUP(,-INT(LEFT(0&TRIM(RIGHT(SUBSTITUTE(""."&A" & i - 1 & ",""."",REPT("" "",50),B" & i & "),50)),ROW($1:$16))))+1"
   
8.         End If
   
9.     Next i
   
10. End Sub
    

复制代码

但其中的这个代码一直显示红色，无法运行。

1. Cells(i, "A").Formula = "=IF(B" & i & ">1,TRIM(LEFT(SUBSTITUTE(A" & i - 1 & "&""."",""."."&REPT("" "",50),B" & i & "-1),50)),)&-LOOKUP(,-INT(LEFT(0&TRIM(RIGHT(SUBSTITUTE(""."&A" & i - 1 & ",""."",REPT("" "",50),B" & i & "),50)),ROW($1:$16))))+1"

复制代码

不知道该如何修改，麻烦各位老师帮忙修改下。
求助-自动填写公式.rar (14.89 KB, 下载次数: 0)

2023-5-23 08:58 上传

点击文件名下载附件

liulang0808

楼主一段单元格添加公式的宏，然后再对照修改

边缘码农

2楼的办法很好，Excel写代码，录制宏是很好的辅助工具。

Sub ApplyFormula()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
   
    For i = 3 To lastRow
        If Cells(i, "B").Value <> 1 Then
            Cells(i, 1).FormulaR1C1 = _
        "=IF(RC[1]>1,TRIM(LEFT(SUBSTITUTE(R[-1]C&""."",""."","".""&REPT("" "",50),RC[1]-1),50)),)&-LOOKUP(,-INT(LEFT(0&TRIM(RIGHT(SUBSTITUTE("".""&R[-1]C,""."",REPT("" "",50),RC[1]),50)),ROW(R1:R6))))+1"
        End If
    Next i
End Sub

录制、分析、修改，比自己蒙头写要好。

于箱长

第一：原公式中双引号上再加一层双引号，检查一下有没有忘了加的
第二：连接符&和其他字符之间加个空格，行不行

zxsea_7426

1. Cells(i, "A").Formula = "=IF(B" & i & ">1,TRIM(LEFT(SUBSTITUTE(A" & i - 1 & "&""."",""."","".""&REPT("" "",50),B" & i & "-1),50)),)&-LOOKUP(,-INT(LEFT(0&TRIM(RIGHT(SUBSTITUTE("".""&A" & i - 1 & ",""."",REPT("" "",50),B" & i & "),50)),ROW($1:$16))))+1"

复制代码

wtujcf123

zxsea_7426 发表于 2023-5-23 08:10

谢谢了。可以使用。

wtujcf123

liulang0808 发表于 2023-5-23 07:11
楼主一段单元格添加公式的宏，然后再对照修改

谢谢了，忘了这个操作了，还是需要自己多练习下。

liulang0808

wtujcf123 发表于 2023-5-23 08:56
谢谢了，忘了这个操作了，还是需要自己多练习下。

不好意思，应该是录制一段添加公式的宏，然后对照，特别是引号部分

wtujcf123

liulang0808 发表于 2023-5-23 10:17
不好意思，应该是录制一段添加公式的宏，然后对照，特别是引号部分

明白