多次重印行并进行修改

大佬教程收集整理的这篇文章主要介绍了多次重印行并进行修改，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决多次重印行并进行修改？

开发过程中遇到多次重印行并进行修改的问题如何解决？下面主要结合日常开发的经验，给出你关于多次重印行并进行修改的解决方法建议，希望对你解决多次重印行并进行修改有所启发或帮助； @H_696_2@我提前为我的初学者道歉，但我有几行我想在文档的另一个位置重印 12 次，总和除以 12。

@H_696_2@我想要这个：

@H_696_2@

@H_696_2@看起来像这样：

@H_696_2@

Sub computeThis()
Dim rng As Range
Dim row As Range
Dim cell As Range

Set rng = Range("A2:D3")

For Each row In rng.Rows 'Throws no error but doesn't seem to loop twice either'
    
    Dim i As Integer
    
    'Set the starTing cell number'
    Dim x As Integer
    x = 2
    
    'Repeat 12 times..'
    For i = 1 To 12
        '..with new values'
        Cells(x,6).Value = Range("A2").Value 'Needs to update with each loop'
        Cells(x,7).Value = i 'Works OK'
        Cells(x,8).Value = Range("C2").Value 'Needs to update with each loop'
        Cells(x,9).Value = Range("D2").Value / 12 'Needs to update with each loop'
        
        x = x + 1
    Next i
Next row
End Sub
@H_262_25@
@H_696_2@问题如下：


它只运行了 12 次，所以它似乎只运行了 For 循环
A 列，即帐户列，需要根据下一行中的内容动态更改
C 列，即 Kst 列也需要动态更改
Sum 列也是如此，因为那里的值也会发生变化

@H_696_2@我意识到这个问题有点愚蠢，但我很想就这些问题提供一些建议，因为我并没有真正向前迈进。

@H_696_2@谢谢！
 
解决方法
@H_696_2@您的 X 在外循环开始时被重置为 2，因此看起来它运行了一次，但实际上覆盖了您的第一个循环。

@H_696_2@我添加了一个新变量来增加行号。我还将您的类型从 Integer 更改为 Long，不要在 VBA 中使用 Integer 类型，否则会导致溢出错误。

Sub computeThis()
Dim rng As Range
Dim row As Range
Dim cell As Range

Set rng = Range("A2:D3")
Dim x As Long
x = 2
Dim j As Long
j = 2
For Each row In rng.Rows 'Throws no error but doesn't seem to loop twice either'
    
    Dim i As Long

    
    'Repeat 12 times..'
    For i = 1 To 12
        '..with new values'
        Cells(j,6).Value = Range("A" & X).Value 'Needs to update with each loop'
        Cells(j,7).Value = i 'Works OK'
        Cells(j,8).Value = Range("C" & X).Value 'Needs to update with each loop'
        Cells(j,9).Value = Range("D" & X).Value / 12 'Needs to update with each loop'
        j = j + 1

    Next i
    x = x + 1
Next row
End Sub
@H_262_25@
 


 
 
      
大佬总结
       
以上是大佬教程为你收集整理的多次重印行并进行修改全部内容，希望文章能够帮你解决多次重印行并进行修改所遇到的程序开发问题。
		
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
		
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。