代码语句的问题请教

天地一相

感谢帮助！见代码：关于n 的问题。我是想着从第10列的第3行开始向下逐个写入内容，执行1次，这个N自动加1，模仿写的代码不对，停留在第3行反复写入了。请指点正确的写法。谢谢。之前用的是“ Cells(Rows.Count, "J").End(3).Offset(1) = str1” ，就用不着N这个参数。想着换个写法能更快点，可能想错了。请赐教。关闭了，醒悟是我想错了

1. Dim n As Long
   
2.         n = 2
   
3.     Calculate
   
4.     str1 = ""
   
5.     If [A1] = 100 Then  
   
6.     n = n + 1
   
7.         For Each x In [B1:K1]
   
8.             str1 = str1 & x
   
9.         Next x
   
10.         Cells(n, 10) = str1
    
11. End If

复制代码

杨建营

n = n + 1
        For Each x In [B1:K1]
            str1 = str1 & x
        Next x
        Cells(n, 10) = str1
改成
For Each x In [B1:K1]
n = n + 1
str1 = str1 & x
Cells(n, 10) = str1
Next x
       试试

盼盼198310

Dim n As Long
        n = 2
    Calculate
    str1 = ""
    If [A1] = 100 Then  
   
        For Each x In [B1:K1]
            n = n + 1
            str1 = str1 & x
            Cells(n, 10) = str1
        Next x
        
End If
试试这样写

天地一相

盼盼198310 发表于 2023-6-25 11:47
Dim n As Long
        n = 2
    Calculate

谢谢，不对，只能动与N有关的句子的位置，其它不能动，那是一个字符串

天地一相

杨建营 发表于 2023-6-25 11:45
n = n + 1
        For Each x In
            str1 = str1 & x

谢谢，不对，和楼下的是一样的错。

杨建营

天地一相 发表于 2023-6-25 11:56
谢谢，不对，和楼下的是一样的错。

没有循环，n怎么可以做到自动加1？

天地一相

杨建营 发表于 2023-6-25 12:00
没有循环，n怎么可以做到自动加1？

啊，难道不能做到点击执行1次自动加1吗？我这个宏是嵌套进别的循环里的。谢谢

沈默00

路过学习一下

天地一相

杨建营 发表于 2023-6-25 12:00
没有循环，n怎么可以做到自动加1？

谢谢，早上糊涂了。没有循环也能持续点击运行每次加1的。早上我把静态的N修改成动态的N了，就变成原地踏步了。