基于单元格值的范围

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中的值代表循环中的列，而不是行 - In哪种情况：

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