基于单元值的范围

我需要代码来改变基于单元格值的范围：

我可以得到它的行号取决于单元格的值，如下所示，但我需要的列值是可变的：

For Nassets = 1 To ws_data.Range("d2") ws_data.Range("B" & Nassets).Value = 3 Next Nassets 

如果"d2"的值为4 ，范围B1:B4 = 3 ，但是我想要范围B4:E4 = 3

提前致谢！

Answer 1

基于下面的注释，它看起来像你需要改变代码，使D2中的值代表循环中的列 ，而不是行 – 在这种情况下：

 For Nassets = 1 To ws_data.Range("d2") ws_data.Cells(4, Nassets).Value = 3 '// Where 4 is the row number Next Nassets 

这可以重新编写，以完全排除循环，如下所示：

 ws_data.Range(Cells(4, 2), Cells(4, ws_data.Range("D2").Value)).Value = 3