如何成功地操作循环进行计算？
如何成功地操作循环进行计算？
提问于 2019-05-23 16:12:41
我必须在100.00行代码上进行计算，我必须执行循环并声明变量。但不可能将公式翻到最后，只填充了第一行。
'variable declaration
Dim ls As Worksheet
Set ls = ThisWorkbook.Worksheets("BASE2")
Dim Lrow As Long
Lrow = ls.Cells(ls.Rows.Count, "A").End(xlUp).Row
'calculation
ls.Range("I2:I" & Lrow).FormulaR1C1 = "=TRIM(LEFT(RC[-6],10))"
Range("I1").Select
ActiveCell.FormulaR1C1 = "Article sans désignation"
Columns("I:I").ColumnWidth = 20.71我想把这个公式降低到95,000行的底部(这将是可变的，这就是为什么我做了一个循环)
Stack Overflow用户
回答已采纳
发布于 2019-05-23 16:35:47
你的代码是正确的并且工作正常(见下文)。我只是认为您可能选择了错误的列来选择最后一行。因此，这是您的代码和一些调试信息。也许这会帮助你让事情变得正常。
'variable declaration
Dim ls As Worksheet
Set ls = ThisWorkbook.Worksheets("BASE2")
Dim Lrow As Long
Lrow = ls.Cells(ls.Rows.Count, "A").End(xlUp).Row
MsgBox "Column A is filled up to row " & Lrow & " with data. Therefore," & Chr(10) _
& "the following range will be used: " & ls.Range("I2:I" & Lrow).Address
'calculation
ls.Range("I2:I" & Lrow).FormulaR1C1 = "=TRIM(LEFT(RC[-6],10))"
Range("I1").Value2 = "Article sans désignation"
Columns("I:I").ColumnWidth = 20.71
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56270794
复制相关文章
相似问题
腾讯云开发者
