基于单元格值的范围

Question

我需要代码根据单元格值更改范围：

我可以在行号取决于单元格值的情况下使其工作，如下所示，但我需要将列值可变：

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