循环参数的语句请教

天地一相

感谢帮助！见代码。我首先获取指定区域非空值单元格的个数。然后赋值给下一个循环语句，我需要循环的上限是这个赋值的2倍加1.然后测试，能循环结束，但没结果内容了。没添加判定非空值语句的时候，是正确的。我自己猜是乘2加1大概写的不对。特此请教

1. x = 32 - Application.WorksheetFunction.CountBlank(Sheet2.Range(Sheet2.Cells(i, 2), Sheet2.Cells(i, "AG")))
   
2.         For m = 1 To x * 2 + 1
   
3.               brr(n, m + 1) = Sheet2.Cells(i, m).Value
   
4.         Next m

复制代码

liulang0808

建议楼主结合自己的代码看下与需求描述是否相符？
另外建议上传问题附件，结合附件描述具体问题

天地一相

liulang0808 发表于 2023-7-6 08:29
建议楼主结合自己的代码看下与需求描述是否相符？
另外建议上传问题附件，结合附件描述具体问题

谢谢，我就问一下，我那个埃克斯乘二加一，能否那样写。我这样改动的目的是想减少不需要操作的单元格，看能不能提速。

天地一相

liulang0808 发表于 2023-7-6 08:29
建议楼主结合自己的代码看下与需求描述是否相符？
另外建议上传问题附件，结合附件描述具体问题

谢谢，我找到原因了，为了让代码看上去更漂亮，我调整了参数的字母符号，有一个地方没调整统一。